Commit 02680e9b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

to choose-completion-string.
parent 440c10f8
...@@ -1193,11 +1193,13 @@ and selects that window." ...@@ -1193,11 +1193,13 @@ and selects that window."
"Click on an alternative in the `*Completions*' buffer to choose it." "Click on an alternative in the `*Completions*' buffer to choose it."
(interactive "e") (interactive "e")
(let ((buffer (window-buffer)) (let ((buffer (window-buffer))
choice) choice
base-size)
(save-excursion (save-excursion
(set-buffer (window-buffer (posn-window (event-start event)))) (set-buffer (window-buffer (posn-window (event-start event))))
(if completion-reference-buffer (if completion-reference-buffer
(setq buffer completion-reference-buffer)) (setq buffer completion-reference-buffer))
(setq base-size completion-base-size)
(save-excursion (save-excursion
(goto-char (posn-point (event-start event))) (goto-char (posn-point (event-start event)))
(let (beg end) (let (beg end)
...@@ -1218,7 +1220,7 @@ and selects that window." ...@@ -1218,7 +1220,7 @@ and selects that window."
(or (window-dedicated-p (selected-window)) (or (window-dedicated-p (selected-window))
(bury-buffer))) (bury-buffer)))
(select-window owindow)) (select-window owindow))
(choose-completion-string choice buffer))) (choose-completion-string choice buffer base-size)))
;; Font selection. ;; Font selection.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment