(Man-notify-when-ready): Don't use window-system. If

Man-notify-method is newframe, and the display is not
multi-frame, select the frame created for the man page.
(Man-init-defvars): Doc fix.

1 files changed, 7 insertions, 8 deletions

diff --git a/lisp/man.el b/lisp/man.el
index 7fdfdb99e2d..9ed269a23b5 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -364,7 +364,7 @@ This regular expression should start with a `^' character.")
 ;; utilities
 
 (defun Man-init-defvars ()
-  "Used for initialising variables based on the value of `window-system'.
+  "Used for initialising variables based on display's color support.
 This is necessary if one wants to dump man.el with Emacs."
 
   ;; The following is necessary until fonts are implemented on
@@ -634,23 +634,22 @@ See the variable `Man-notify-method' for the different notification behaviors."
       (save-excursion
         (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))))
+          (set-window-dedicated-p (frame-selected-window frame) t)
+          (or (display-multi-frame-p frame)
+              (select-frame frame)))))
      ((eq Man-notify-method 'pushy)
       (switch-to-buffer man-buffer))
      ((eq Man-notify-method 'bully)
-      (and window-system
-           (frame-live-p saved-frame)
+      (and (frame-live-p saved-frame)
            (select-frame saved-frame))
       (pop-to-buffer man-buffer)
       (delete-other-windows))
      ((eq Man-notify-method 'aggressive)
-      (and window-system
-           (frame-live-p saved-frame)
+      (and (frame-live-p saved-frame)
            (select-frame saved-frame))
       (pop-to-buffer man-buffer))
      ((eq Man-notify-method 'friendly)
-      (and window-system
-           (frame-live-p saved-frame)
+      (and (frame-live-p saved-frame)
            (select-frame saved-frame))
       (display-buffer man-buffer 'not-this-window))
      ((eq Man-notify-method 'polite)