(archive-extract): Use `posn-set-point' instead of `mouse-set-point'

because the latter is not fbound when configured without X.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60e6f053e0e..59d6cfb0e2c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-26  John Paul Wallington  <jpw@pobox.com>
+
+        * arc-mode.el (archive-extract):  Use `posn-set-point' instead of
+        `mouse-set-point' because the latter is not fbound when configured
+        without X.
+
 2005-11-26  Thien-Thi Nguyen  <ttn@gnu.org>
 
         * files.el (file-relative-name): Doc fix.
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ae5ff9a4dbc..c376070ea3b 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -895,7 +895,7 @@ using `make-temp-file', and the generated name is returned."
 (defun archive-extract (&optional other-window-p event)
   "In archive mode, extract this entry of the archive into its own buffer."
   (interactive (list nil last-input-event))
-  (if event (mouse-set-point event))
+  (if event (posn-set-point (event-end event)))
   (let* ((view-p (eq other-window-p 'view))
          (descr (archive-get-descr))
          (ename (aref descr 0))