diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-08-12 22:21:12 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-08-12 22:21:12 +0000 |
commit | a3d38ed621a1de4c9abecbe48bcb393316b7a937 (patch) | |
tree | a42778e9184d4bf9128dbb6f628ad9b2b39bb77d /lisp/mouse.el | |
parent | 3efbad6c35f7917db86b64321c137ea54dcd719e (diff) | |
download | emacs-a3d38ed621a1de4c9abecbe48bcb393316b7a937.tar.gz |
(mouse-choose-completion): Really go to minibuffer; no save-excursion.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r-- | lisp/mouse.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d59bc57e74d..f15cc0f2bc8 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -880,16 +880,15 @@ and selects that window." (let ((beg (point))) (skip-chars-forward "^ \t\n") (setq choice (buffer-substring beg (point)))))) - (save-excursion - (set-buffer (window-buffer (minibuffer-window))) - (goto-char (max (point-min) (- (point-max) (length choice)))) - (while (and (not (eobp)) - (let ((tail (buffer-substring (point) (point-max)))) - (not (string= tail (substring choice 0 (length tail)))))) - (forward-char 1)) - (insert choice) - (delete-region (point) (point-max)) - (minibuffer-complete-and-exit)))) + (set-buffer (window-buffer (minibuffer-window))) + (goto-char (max (point-min) (- (point-max) (length choice)))) + (while (and (not (eobp)) + (let ((tail (buffer-substring (point) (point-max)))) + (not (string= tail (substring choice 0 (length tail)))))) + (forward-char 1)) + (insert choice) + (delete-region (point) (point-max)) + (minibuffer-complete-and-exit))) ;; Font selection. |