diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-02 06:01:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-02 06:01:55 +0000 |
| commit | ec334d84c036de531886bf1559ae591c3f77239a (patch) | |
| tree | 36c3dead76c7f3dd169ad25e09be87bb5c6fe466 /lisp/man.el | |
| parent | 813f532d2f0d18dcda7d93be2c6cd841815ff8b8 (diff) | |
| download | emacs-ec334d84c036de531886bf1559ae591c3f77239a.tar.gz | |
(Man-notify-when-ready): In newframe case, use save-excursion.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 9d5c97bacaf..7fd87f7996d 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -481,8 +481,13 @@ start a background process even if a buffer already exists and See the variable `Man-notify' for the different notification behaviors." (cond ((eq Man-notify 'newframe) - (set-buffer man-buffer) - (new-frame Man-frame-parameters)) + ;; Since we run asynchronously, perhaps while Emacs is waiting for input, + ;; we must not leave a different buffer current. + ;; We can't rely on the editor command loop to reselect + ;; the selected window's buffer. + (save-excursion + (set-buffer man-buffer) + (new-frame Man-frame-parameters))) ((eq Man-notify 'bully) (and (frame-live-p Man-original-frame) (select-frame Man-original-frame)) |