# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744096718 0
# Node ID fb0e37e7afae03f3bc8addc57cef4059771851d8
# Parent  605e06926c357a44cb688972365aaf79f1b555e8
(mouse-choose-completion): Actually choose that alternative,
don't just insert its name.

diff -r 605e06926c35 -r fb0e37e7afae lisp/mouse.el
--- a/lisp/mouse.el	Sat Jul 31 01:40:35 1993 +0000
+++ b/lisp/mouse.el	Sat Jul 31 05:31:58 1993 +0000
@@ -843,6 +843,7 @@
 ;; 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 @@
 		    (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.