From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 26 Nov 2005 19:05:52 +0000 (+0000)
Subject: (archive-extract): Use `posn-set-point' instead of `mouse-set-point'
X-Git-Tag: emacs-pretest-22.0.90~5663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=440e20fca8ca31db13d56cf46ccbca0925e1e501;p=emacs.git

(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 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))