Commit 9a43a594 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-choose-completion): Use mouse-face properties to find string to use.

parent 6096f362
......@@ -1195,18 +1195,12 @@ and selects that window."
(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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment