procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Man-frame-parameters): New variable.

Browse source 
(Man-notify-when-ready): Handle `newframe' as Man-notify value.
This commit is contained in:
Richard M. Stallman 1993-11-06 04:16:34 +00:00
parent 1d2c16fa6d
commit b51aeeffe4
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/man.el
View file

@ -80,6 +80,7 @@
"*Selects the behavior when manpage is ready. "*Selects the behavior when manpage is ready.
This variable may have one of the following values: 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 bully -- make the manpage the current buffer and only window
aggressive -- make the manpage the current buffer in the other window aggressive -- make the manpage the current buffer in the other window
friendly -- display manpage in other window but don't make current 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'.") 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 (defvar Man-reuse-okay-p t
"*Reuse a manpage buffer if possible. "*Reuse a manpage buffer if possible.
When t, and a manpage buffer already exists with the same invocation, 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. "Notify the user when MAN-BUFFER is ready.
See the variable `Man-notify' for the different notification behaviors." See the variable `Man-notify' for the different notification behaviors."
(cond (cond
((eq Man-notify 'newframe)
(set-buffer man-buffer)
(new-frame Man-frame-parameters))
((eq Man-notify 'bully) ((eq Man-notify 'bully)
(pop-to-buffer man-buffer) (pop-to-buffer man-buffer)
(delete-other-windows)) (delete-other-windows))