comparison lisp/man.el @ 7268:e10dea2787a8

(Man-notify-when-ready): In newframe case, use save-excursion.

7267:4aa70d4d981c

(defun Man-notify-when-ready (man-buffer)
  "Notify the user when MAN-BUFFER is ready.
See the variable `Man-notify' for the different notification behaviors."
  (cond
   ((eq Man-notify 'newframe)
    (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))
    (pop-to-buffer man-buffer)
    (delete-other-windows))

7268:e10dea2787a8

(defun Man-notify-when-ready (man-buffer)
  "Notify the user when MAN-BUFFER is ready.
See the variable `Man-notify' for the different notification behaviors."
  (cond
   ((eq Man-notify 'newframe)
    ;; 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))
    (pop-to-buffer man-buffer)
    (delete-other-windows))