From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Apr 1998 06:25:11 +0000 (+0000)
Subject: (Man-notify-when-ready) <newframe>:
X-Git-Tag: emacs-20.3~1494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42a9dc84361685b533734f21560f8bce76e3df73;p=emacs.git

(Man-notify-when-ready) <newframe>:
Mark frame's window as dedicated.
---

diff --git a/lisp/man.el b/lisp/man.el
index 9bcdd8f8f0e..8e0fbf8d680 100644
--- 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)