diff options
-rw-r--r-- | lisp/mouse.el | 6 |
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. |