diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-31 05:31:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-31 05:31:58 +0000 |
| commit | ba3df9540631fa24bf4e9ad6a516d160332d22ff (patch) | |
| tree | 9437a16af753919906e31f377423caea4a67b663 /lisp/mouse.el | |
| parent | 023cbf1c885a3e5119db09f022d838d08c6d8304 (diff) | |
| download | emacs-ba3df9540631fa24bf4e9ad6a516d160332d22ff.tar.gz | |
(mouse-choose-completion): Actually choose that alternative,
don't just insert its name.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index b3ce6da6688..904227727e9 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -843,6 +843,7 @@ and selects that window." ;; Choose a completion with the mouse. (defun mouse-choose-completion (event) + "Click on an alternative in the `*Completions*' buffer to choose it." (interactive "e") (let (choice) (save-excursion @@ -861,7 +862,8 @@ and selects that window." (not (string= tail (substring choice 0 (length tail)))))) (forward-char 1)) (insert choice) - (delete-region (point) (point-max))))) + (delete-region (point) (point-max)) + (minibuffer-complete-and-exit)))) ;; Font selection. |