Mercurial > emacs
comparison lisp/man.el @ 4915:c0523a78e6a5
(Man-frame-parameters): New variable.
(Man-notify-when-ready): Handle `newframe' as Man-notify value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 Nov 1993 04:16:34 +0000 |
| parents | 0a428f48e71a |
| children | 1607732e7712 |
comparison
equal
deleted
inserted
replaced
| 4914:56bc426b1eb4 | 4915:c0523a78e6a5 |
|---|---|
| 78 | 78 |
| 79 (defvar Man-notify 'friendly | 79 (defvar Man-notify 'friendly |
| 80 "*Selects the behavior when manpage is ready. | 80 "*Selects the behavior when manpage is ready. |
| 81 This variable may have one of the following values: | 81 This variable may have one of the following values: |
| 82 | 82 |
| 83 newframe -- put the manpage in its own frame (see `Man-frame-parameters') | |
| 83 bully -- make the manpage the current buffer and only window | 84 bully -- make the manpage the current buffer and only window |
| 84 aggressive -- make the manpage the current buffer in the other window | 85 aggressive -- make the manpage the current buffer in the other window |
| 85 friendly -- display manpage in other window but don't make current | 86 friendly -- display manpage in other window but don't make current |
| 86 polite -- don't display manpage, but prints message when ready (beeps) | 87 polite -- don't display manpage, but prints message when ready (beeps) |
| 87 quiet -- like `polite', but don't beep | 88 quiet -- like `polite', but don't beep |
| 88 meek -- make no indication that manpage is ready | 89 meek -- make no indication that manpage is ready |
| 89 | 90 |
| 90 Any other value of `Man-notify' is equivalent to `meek'.") | 91 Any other value of `Man-notify' is equivalent to `meek'.") |
| 92 | |
| 93 (defvar Man-frame-parameters nil | |
| 94 "*Frame parameter list for creating a new frame for a manual page.") | |
| 91 | 95 |
| 92 (defvar Man-reuse-okay-p t | 96 (defvar Man-reuse-okay-p t |
| 93 "*Reuse a manpage buffer if possible. | 97 "*Reuse a manpage buffer if possible. |
| 94 When t, and a manpage buffer already exists with the same invocation, | 98 When t, and a manpage buffer already exists with the same invocation, |
| 95 man just indicates the manpage is ready according to the value of | 99 man just indicates the manpage is ready according to the value of |
| 446 | 450 |
| 447 (defun Man-notify-when-ready (man-buffer) | 451 (defun Man-notify-when-ready (man-buffer) |
| 448 "Notify the user when MAN-BUFFER is ready. | 452 "Notify the user when MAN-BUFFER is ready. |
| 449 See the variable `Man-notify' for the different notification behaviors." | 453 See the variable `Man-notify' for the different notification behaviors." |
| 450 (cond | 454 (cond |
| 455 ((eq Man-notify 'newframe) | |
| 456 (set-buffer man-buffer) | |
| 457 (new-frame Man-frame-parameters)) | |
| 451 ((eq Man-notify 'bully) | 458 ((eq Man-notify 'bully) |
| 452 (pop-to-buffer man-buffer) | 459 (pop-to-buffer man-buffer) |
| 453 (delete-other-windows)) | 460 (delete-other-windows)) |
| 454 ((eq Man-notify 'aggressive) | 461 ((eq Man-notify 'aggressive) |
| 455 (pop-to-buffer man-buffer)) | 462 (pop-to-buffer man-buffer)) |