# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1133031871 0
# Node ID aa8ad01ef0c1e39d21db27e8dfe29b216da8fa75
# Parent  e7255c96eae52fcb47d440713c33dd894b3fa28c
(archive-extract): Use `posn-set-point' instead of `mouse-set-point'
because the latter is not fbound when configured without X.

diff -r e7255c96eae5 -r aa8ad01ef0c1 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Sat Nov 26 15:52:10 2005 +0000
+++ b/lisp/arc-mode.el	Sat Nov 26 19:04:31 2005 +0000
@@ -895,7 +895,7 @@
 (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))