Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
57 (define-key help-map "\C-w" 'describe-no-warranty) 57 (define-key help-map "\C-w" 'describe-no-warranty)
58 (define-key help-map "a" 'hyper-apropos) ; 'command-apropos in FSFmacs 58 (define-key help-map "a" 'hyper-apropos) ; 'command-apropos in FSFmacs
59 (define-key help-map "A" 'command-apropos) 59 (define-key help-map "A" 'command-apropos)
60 60
61 (define-key help-map "b" 'describe-bindings) 61 (define-key help-map "b" 'describe-bindings)
62 (define-key help-map "B" 'describe-beta)
62 (define-key help-map "\C-p" 'describe-pointer) 63 (define-key help-map "\C-p" 'describe-pointer)
63 64
64 (define-key help-map "c" 'describe-key-briefly) 65 (define-key help-map "c" 'describe-key-briefly)
65 (define-key help-map "k" 'describe-key) 66 (define-key help-map "k" 'describe-key)
66 67
386 (shrink-window-if-larger-than-buffer helpwin)))))))) 387 (shrink-window-if-larger-than-buffer helpwin))))))))
387 388
388 (defun describe-key (key) 389 (defun describe-key (key)
389 "Display documentation of the function invoked by KEY. 390 "Display documentation of the function invoked by KEY.
390 KEY is a string, or vector of events. 391 KEY is a string, or vector of events.
391 When called interactvely, KEY may also be a menu selection." 392 When called interactively, KEY may also be a menu selection."
392 (interactive "kDescribe key: ") 393 (interactive "kDescribe key: ")
393 (let ((defn (key-or-menu-binding key))) 394 (let ((defn (key-or-menu-binding key)))
394 (if (or (null defn) (integerp defn)) 395 (if (or (null defn) (integerp defn))
395 (message "%s is undefined" (key-description key)) 396 (message "%s is undefined" (key-description key))
396 (with-displaying-help-buffer 397 (with-displaying-help-buffer
464 (defun describe-distribution () 465 (defun describe-distribution ()
465 "Display info on how to obtain the latest version of XEmacs." 466 "Display info on how to obtain the latest version of XEmacs."
466 (interactive) 467 (interactive)
467 (find-file-read-only 468 (find-file-read-only
468 (expand-file-name "DISTRIB" data-directory))) 469 (expand-file-name "DISTRIB" data-directory)))
470
471 (defun describe-beta ()
472 "Display info on how to deal with Beta versions of XEmacs."
473 (interactive)
474 (find-file-read-only
475 (expand-file-name "BETA" data-directory))
476 (goto-char (point-min)))
469 477
470 (defun describe-copying () 478 (defun describe-copying ()
471 "Display info on how you may redistribute copies of XEmacs." 479 "Display info on how you may redistribute copies of XEmacs."
472 (interactive) 480 (interactive)
473 (find-file-read-only 481 (find-file-read-only