diff options
| author | Richard M. Stallman | 1993-05-30 19:15:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-30 19:15:39 +0000 |
| commit | e0fcbb593168118e313ced4a9357dc0971ef2573 (patch) | |
| tree | 85b346e0af71141d6bcdaf299243492d9d78482f | |
| parent | 5ab57b9f0ae714047e5875f94d0ef05b44e93cbb (diff) | |
| download | emacs-e0fcbb593168118e313ced4a9357dc0971ef2573.tar.gz emacs-e0fcbb593168118e313ced4a9357dc0971ef2573.zip | |
(Man-notify-when-ready): Correct previous change.
| -rw-r--r-- | lisp/man.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/man.el b/lisp/man.el index 03437445d9f..db6a973c41d 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -445,21 +445,21 @@ Man-reuse-okay-p is non-nil." | |||
| 445 | 445 | ||
| 446 | (defun Man-notify-when-ready (man-buffer) | 446 | (defun Man-notify-when-ready (man-buffer) |
| 447 | "Notify the user when MAN-BUFFER is ready. | 447 | "Notify the user when MAN-BUFFER is ready. |
| 448 | See the variable Man-notify for the different notification behaviors." | 448 | See the variable `Man-notify' for the different notification behaviors." |
| 449 | (cond | 449 | (cond |
| 450 | ((eq man-notify 'bully) | 450 | ((eq Man-notify 'bully) |
| 451 | (pop-to-buffer man-buffer) | 451 | (pop-to-buffer man-buffer) |
| 452 | (delete-other-windows)) | 452 | (delete-other-windows)) |
| 453 | ((eq man-notify 'aggressive) | 453 | ((eq Man-notify 'aggressive) |
| 454 | (pop-to-buffer man-buffer)) | 454 | (pop-to-buffer man-buffer)) |
| 455 | ((eq man-notify 'friendly) | 455 | ((eq Man-notify 'friendly) |
| 456 | (display-buffer man-buffer 'not-this-window)) | 456 | (display-buffer man-buffer 'not-this-window)) |
| 457 | ((eq man-notify 'polite) | 457 | ((eq Man-notify 'polite) |
| 458 | (beep) | 458 | (beep) |
| 459 | (message "Manual buffer %s is ready." (buffer-name man-buffer))) | 459 | (message "Manual buffer %s is ready." (buffer-name man-buffer))) |
| 460 | ((eq man-notify 'quiet) | 460 | ((eq Man-notify 'quiet) |
| 461 | (message "Manual buffer %s is ready." (buffer-name man-buffer))) | 461 | (message "Manual buffer %s is ready." (buffer-name man-buffer))) |
| 462 | ((or (eq man-notify 'meek) | 462 | ((or (eq Man-notify 'meek) |
| 463 | t) | 463 | t) |
| 464 | (message "")) | 464 | (message "")) |
| 465 | )) | 465 | )) |