Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 1ce6082ce73f
children 4be1180a9e89
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
43 "Keymap for characters following the Help key.") 43 "Keymap for characters following the Help key.")
44 44
45 ;; global-map definitions moved to keydefs.el 45 ;; global-map definitions moved to keydefs.el
46 (fset 'help-command help-map) 46 (fset 'help-command help-map)
47 47
48 (let ((ch help-char)) 48 (define-key help-map (vector help-char) 'help-for-help)
49 (if (or (characterp ch) (integerp ch))
50 (setq ch (char-to-string ch)))
51 (define-key help-map ch 'help-for-help))
52 (define-key help-map "?" 'help-for-help) 49 (define-key help-map "?" 'help-for-help)
53 (define-key help-map 'help 'help-for-help) 50 (define-key help-map 'help 'help-for-help)
54 51
55 (define-key help-map "\C-l" 'describe-copying) ; on \C-c in FSFmacs 52 (define-key help-map "\C-l" 'describe-copying) ; on \C-c in FSFmacs
56 (define-key help-map "\C-d" 'describe-distribution) 53 (define-key help-map "\C-d" 'describe-distribution)
380 (message 377 (message
381 (substitute-command-keys "Type \\[delete-other-windows] to remove help window, \\[scroll-other-window] to scroll the help."))) 378 (substitute-command-keys "Type \\[delete-other-windows] to remove help window, \\[scroll-other-window] to scroll the help.")))
382 (t 379 (t
383 (message 380 (message
384 (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help.")))) 381 (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))
385 (shrink-window-if-larger-than-buffer helpwin))))))) 382 (when temp-buffer-shrink-to-fit
383 (shrink-window-if-larger-than-buffer helpwin))))))))
386 384
387 (defun describe-key (key) 385 (defun describe-key (key)
388 "Display documentation of the function invoked by KEY. 386 "Display documentation of the function invoked by KEY.
389 KEY is a string, or vector of events. 387 KEY is a string, or vector of events.
390 When called interactvely, KEY may also be a menu selection." 388 When called interactvely, KEY may also be a menu selection."