From 49e61c42679385a7dca711a56b67c426e95417cf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 Jul 1993 05:31:58 +0000 Subject: [PATCH] (mouse-choose-completion): Actually choose that alternative, don't just insert its name. --- lisp/mouse.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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. -- 2.39.5