diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-07 03:37:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-07 03:37:55 +0000 |
| commit | 1e74d97b8e7c4b972fd096b52efb084e5317566f (patch) | |
| tree | b18ee63eee3320f41ccb9972393122d8103816f7 | |
| parent | 87c8bfa9c48bb3cf77ce3432e816ca22444778a5 (diff) | |
| download | emacs-1e74d97b8e7c4b972fd096b52efb084e5317566f.tar.gz | |
(mouse-choose-completion): Bury the completion buffer.
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index fb49a2ced32..4ff1b9659e4 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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) |