Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents b82b59fe008d
children 9ee227acff29
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
377 (was-one-window 377 (was-one-window
378 (message 378 (message
379 (substitute-command-keys "Type \\[delete-other-windows] to remove help window, \\[scroll-other-window] to scroll the help."))) 379 (substitute-command-keys "Type \\[delete-other-windows] to remove help window, \\[scroll-other-window] to scroll the help.")))
380 (t 380 (t
381 (message 381 (message
382 (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help.")))))))))) 382 (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))
383 (shrink-window-if-larger-than-buffer helpwin)))))))
383 384
384 (defun describe-key (key) 385 (defun describe-key (key)
385 "Display documentation of the function invoked by KEY. 386 "Display documentation of the function invoked by KEY.
386 KEY is a string, or vector of events. 387 KEY is a string, or vector of events.
387 When called interactvely, KEY may also be a menu selection." 388 When called interactvely, KEY may also be a menu selection."
677 (eq char ??) 678 (eq char ??)
678 (eq 'help-command (key-binding event)) 679 (eq 'help-command (key-binding event))
679 (eq char ? ) 680 (eq char ? )
680 (eq 'scroll-up (key-binding event)) 681 (eq 'scroll-up (key-binding event))
681 (eq char ?\177) 682 (eq char ?\177)
682 (eq 'scroll-down (key-binding event))) 683 (and (not (eq char ?b))
684 (eq 'scroll-down (key-binding event))))
683 (if (or (eq char ? ) 685 (if (or (eq char ? )
684 (eq 'scroll-up (key-binding event))) 686 (eq 'scroll-up (key-binding event)))
685 (scroll-up)) 687 (scroll-up))
686 (if (or (eq char ?\177) 688 (if (or (eq char ?\177)
687 (eq 'scroll-down (key-binding event))) 689 (and (not (eq char ?b))
690 (eq 'scroll-down (key-binding event))))
688 (scroll-down)) 691 (scroll-down))
689 ;; write this way for I18N3 snarfing 692 ;; write this way for I18N3 snarfing
690 (if (pos-visible-in-window-p (point-max)) 693 (if (pos-visible-in-window-p (point-max))
691 (message "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f: ") 694 (message "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f: ")
692 (message "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f or Space to scroll: ")) 695 (message "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f or Space to scroll: "))