From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Aug 1994 18:09:18 +0000 (+0000)
Subject: (mouse-choose-completion): Pass completion-base-size value
X-Git-Tag: emacs-19.34~7376
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02680e9b5447def52c96fdb61885affc09789f21;p=emacs.git

(mouse-choose-completion): Pass completion-base-size value
to choose-completion-string.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 189544ce286..aaa3e5d6573 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1193,11 +1193,13 @@ and selects that window."
   "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 @@ and selects that window."
 	(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.