Mercurial > emacs

changeset 6163:f349bcb0ff59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-choose-completion): Use that as the buffer to edit.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Mar 1994 23:26:06 +0000
parents b7172feaf0b9
children d047d5a48e0e
files lisp/mouse.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Wed Mar 02 23:18:54 1994 +0000
+++ b/lisp/mouse.el	Wed Mar 02 23:26:06 1994 +0000
@@ -1206,6 +1206,8 @@
         choice)
     (save-excursion
       (set-buffer (window-buffer (posn-window (event-start event))))
+      (if completion-reference-buffer
+	  (setq buffer completion-reference-buffer))
       (save-excursion
 	(goto-char (posn-point (event-start event)))
 	(skip-chars-backward "^ \t\n")
@@ -1215,6 +1217,9 @@
     (set-buffer buffer)
     (mouse-delete-max-match choice)
     (insert choice)
+    ;; Update point in the window that BUFFER is showing in.
+    (let ((window (get-buffer-window buffer t)))
+      (set-window-point window (point)))
     (and (equal buffer (window-buffer (minibuffer-window)))
 	 (minibuffer-complete-and-exit))))