# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773961952 0
# Node ID f5c8a4e8c4a57e6e6300c5ecde049fabc85fc417
# Parent  7f13bc5470d9e457b72a7c21079e66007fb61b72
(mouse-choose-completion): Use mouse-face properties to find string to use.

diff -r 7f13bc5470d9 -r f5c8a4e8c4a5 lisp/mouse.el
--- a/lisp/mouse.el	Mon Jul 11 21:25:19 1994 +0000
+++ b/lisp/mouse.el	Mon Jul 11 21:25:52 1994 +0000
@@ -1195,18 +1195,12 @@
       (save-excursion
 	(goto-char (posn-point (event-start event)))
 	(let (beg end)
-	  (skip-chars-forward "^ \t\n")
-	  (while (looking-at " [^ \n\t]")
-	    (forward-char 1)
-	    (skip-chars-forward "^ \t\n"))
-	  (setq end (point))
-	  (skip-chars-backward "^ \t\n")
-	  (while (and (= (preceding-char) ?\ )
-		      (not (and (> (point) (1+ (point-min)))
-				(= (char-after (- (point) 2)) ?\ ))))
-	    (backward-char 1)
-	    (skip-chars-backward "^ \t\n"))
-	  (setq beg (point))
+	  (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
+	      (setq end (point) beg (1+ (point))))
+	  (if (null beg)
+	      (error "No completion here"))
+	  (setq beg (previous-single-property-change beg 'mouse-face))
+	  (setq end (next-single-property-change end 'mouse-face))
 	  (setq choice (buffer-substring beg end)))))
     (let ((owindow (selected-window)))
       (select-window (posn-window (event-start event)))