aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-05-30 19:15:39 +0000
committerRichard M. Stallman1993-05-30 19:15:39 +0000
commite0fcbb593168118e313ced4a9357dc0971ef2573 (patch)
tree85b346e0af71141d6bcdaf299243492d9d78482f
parent5ab57b9f0ae714047e5875f94d0ef05b44e93cbb (diff)
downloademacs-e0fcbb593168118e313ced4a9357dc0971ef2573.tar.gz
emacs-e0fcbb593168118e313ced4a9357dc0971ef2573.zip
(Man-notify-when-ready): Correct previous change.
-rw-r--r--lisp/man.el14
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.
448See the variable Man-notify for the different notification behaviors." 448See 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 ))