(Man-frame-parameters): New variable.

(Man-notify-when-ready): Handle `newframe' as Man-notify value.

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/man.el b/lisp/man.el
index 1e60e660b49..5e2027a2107 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -80,6 +80,7 @@
   "*Selects the behavior when manpage is ready.
 This variable may have one of the following values:
 
+newframe   -- put the manpage in its own frame (see `Man-frame-parameters')
 bully      -- make the manpage the current buffer and only window
 aggressive -- make the manpage the current buffer in the other window
 friendly   -- display manpage in other window but don't make current
@@ -89,6 +90,9 @@ meek       -- make no indication that manpage is ready
 
 Any other value of `Man-notify' is equivalent to `meek'.")
 
+(defvar Man-frame-parameters nil
+  "*Frame parameter list for creating a new frame for a manual page.")
+
 (defvar Man-reuse-okay-p t
   "*Reuse a manpage buffer if possible.
 When t, and a manpage buffer already exists with the same invocation,
@@ -448,6 +452,9 @@ start a background process even if a buffer already exists and
   "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)
     (pop-to-buffer man-buffer)
     (delete-other-windows))