From 440e20fca8ca31db13d56cf46ccbca0925e1e501 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 26 Nov 2005 19:05:52 +0000 Subject: [PATCH] (archive-extract): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X. --- lisp/ChangeLog | 6 ++++++ lisp/arc-mode.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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)) -- 2.39.5