Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents cf808b4c4290
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
54 (define-key help-map "\C-w" 'describe-no-warranty) 54 (define-key help-map "\C-w" 'describe-no-warranty)
55 (define-key help-map "a" 'hyper-apropos) ; 'command-apropos in FSFmacs 55 (define-key help-map "a" 'hyper-apropos) ; 'command-apropos in FSFmacs
56 (define-key help-map "A" 'command-apropos) 56 (define-key help-map "A" 'command-apropos)
57 57
58 (define-key help-map "b" 'describe-bindings) 58 (define-key help-map "b" 'describe-bindings)
59 (define-key help-map "B" 'describe-beta)
59 (define-key help-map "\C-p" 'describe-pointer) 60 (define-key help-map "\C-p" 'describe-pointer)
60 61
61 (define-key help-map "c" 'describe-key-briefly) 62 (define-key help-map "c" 'describe-key-briefly)
62 (define-key help-map "k" 'describe-key) 63 (define-key help-map "k" 'describe-key)
63 64
383 (shrink-window-if-larger-than-buffer helpwin)))))))) 384 (shrink-window-if-larger-than-buffer helpwin))))))))
384 385
385 (defun describe-key (key) 386 (defun describe-key (key)
386 "Display documentation of the function invoked by KEY. 387 "Display documentation of the function invoked by KEY.
387 KEY is a string, or vector of events. 388 KEY is a string, or vector of events.
388 When called interactvely, KEY may also be a menu selection." 389 When called interactively, KEY may also be a menu selection."
389 (interactive "kDescribe key: ") 390 (interactive "kDescribe key: ")
390 (let ((defn (key-or-menu-binding key))) 391 (let ((defn (key-or-menu-binding key)))
391 (if (or (null defn) (integerp defn)) 392 (if (or (null defn) (integerp defn))
392 (message "%s is undefined" (key-description key)) 393 (message "%s is undefined" (key-description key))
393 (with-displaying-help-buffer 394 (with-displaying-help-buffer
461 (defun describe-distribution () 462 (defun describe-distribution ()
462 "Display info on how to obtain the latest version of XEmacs." 463 "Display info on how to obtain the latest version of XEmacs."
463 (interactive) 464 (interactive)
464 (find-file-read-only 465 (find-file-read-only
465 (expand-file-name "DISTRIB" data-directory))) 466 (expand-file-name "DISTRIB" data-directory)))
467
468 (defun describe-beta ()
469 "Display info on how to deal with Beta versions of XEmacs."
470 (interactive)
471 (find-file-read-only
472 (expand-file-name "BETA" data-directory))
473 (goto-char (point-min)))
466 474
467 (defun describe-copying () 475 (defun describe-copying ()
468 "Display info on how you may redistribute copies of XEmacs." 476 "Display info on how you may redistribute copies of XEmacs."
469 (interactive) 477 (interactive)
470 (find-file-read-only 478 (find-file-read-only