# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776282958 0
# Node ID f4aa7a288cb69ecd5f6106f5605b3906c74a538f
# Parent  1a837ee93535a7a13f2db439b7d7b86a115d02f0
(mouse-choose-completion): Pass completion-base-size value
to choose-completion-string.

diff -r 1a837ee93535 -r f4aa7a288cb6 lisp/mouse.el
--- 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.