Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mouse-choose-completion): Bury the completion buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-07 03:37:55 +00:00
parent 0a688fd0fc
commit 73e2025fcd
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -1214,6 +1214,10 @@ and selects that window."
(let ((beg (point)))
(skip-chars-forward "^ \t\n")
(setq choice (buffer-substring beg (point))))))
(let ((owindow (selected-window)))
(select-window (posn-window (event-start event)))
(bury-buffer)
(select-window owindow))
(set-buffer buffer)
(mouse-delete-max-match choice)
(insert choice)