(mouse-choose-completion): Pass completion-base-size value

to choose-completion-string.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 189544ce2867a441c6a3c3d46cdc8699929dc4f6..aaa3e5d6573c0c7fa8287e85a6f31dbbea3105e1 100644 (file)
--- 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)))
 \f
 ;; Font selection.