From 42a9dc84361685b533734f21560f8bce76e3df73 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Apr 1998 06:25:11 +0000 Subject: [PATCH] (Man-notify-when-ready) : Mark frame's window as dedicated. --- lisp/man.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2