diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-07 18:09:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-07 18:09:18 +0000 |
| commit | 9509bc27b7b69b146a1ea23de902f53e51a6bbd3 (patch) | |
| tree | 27982f981cd0d7f77b25b77ff879b360521bf445 /lisp/mouse.el | |
| parent | 3c05814958a6cf6dea583ae097a4d7fe3190841c (diff) | |
| download | emacs-9509bc27b7b69b146a1ea23de902f53e51a6bbd3.tar.gz | |
(mouse-choose-completion): Pass completion-base-size value
to choose-completion-string.
Diffstat (limited to 'lisp/mouse.el')
| -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. |