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))