mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-11 21:25:52 +00:00
parent 6096f36286
commit 9a43a5943d
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/mouse.el
View File

@ -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)))