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

because the latter is not fbound when configured without X.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60e6f053e0ef4222fb42dff8c2b810c60528d3c2..59d6cfb0e2c22b40dd4ed7f3771ac3bf0aa6e585 100644 (file)
--- 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 ae5ff9a4dbcbd54a2f8900443351dd58db73948a..c376070ea3b2136431388bbebbab386a3d33a368 100644 (file)
--- 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))