Mercurial > emacs

changeset 8477:f4aa7a288cb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-choose-completion): Pass completion-base-size value to choose-completion-string.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Aug 1994 18:09:18 +0000
parents 1a837ee93535
children 9d3d84a3c3fa
files lisp/mouse.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sun Aug 07 17:23:44 1994 +0000
+++ b/lisp/mouse.el	Sun Aug 07 18:09:18 1994 +0000
@@ -1193,11 +1193,13 @@
   "Click on an alternative in the `*Completions*' buffer to choose it."
   (interactive "e")
   (let ((buffer (window-buffer))
-        choice)
+        choice
+	base-size)
     (save-excursion
       (set-buffer (window-buffer (posn-window (event-start event))))
       (if completion-reference-buffer
 	  (setq buffer completion-reference-buffer))
+      (setq base-size completion-base-size)
       (save-excursion
 	(goto-char (posn-point (event-start event)))
 	(let (beg end)
@@ -1218,7 +1220,7 @@
 	(or (window-dedicated-p (selected-window))
 	    (bury-buffer)))
       (select-window owindow))
-    (choose-completion-string choice buffer)))
+    (choose-completion-string choice buffer base-size)))
 
 ;; Font selection.