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

to choose-completion-string.

1 files changed, 4 insertions, 2 deletions

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.