(Man-notify-when-ready) <newframe>:

Mark frame's window as dedicated.

diff --git a/lisp/man.el b/lisp/man.el
index 9bcdd8f8f0e5c4ac9291a421f5c307665dfd78b2..8e0fbf8d68005b5f2d09b0604c8864e01a988204 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -620,8 +620,9 @@ See the variable `Man-notify-method' for the different notification behaviors."
       ;; can't rely on the editor command loop to reselect the
       ;; selected window's buffer.
       (save-excursion
-       (set-buffer man-buffer)
-       (make-frame Man-frame-parameters)))
+       (let ((frame (make-frame Man-frame-parameters)))
+         (set-window-buffer (frame-selected-window frame) man-buffer)
+          (set-window-dedicated-p (frame-selected-window frame) t))))
      ((eq Man-notify-method 'pushy)
       (switch-to-buffer man-buffer))
      ((eq Man-notify-method 'bully)