Mercurial > hg > xemacs-beta
comparison lisp/help.el @ 261:405dd6d1825b r20-5b29
Import from CVS: tag r20-5b29
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:23:51 +0200 |
parents | 11cf20601dec |
children | c5d627a313b1 |
comparison
equal
deleted
inserted
replaced
260:052205f7dd5f | 261:405dd6d1825b |
---|---|
692 (describe-bindings-1 prefix nil)))) | 692 (describe-bindings-1 prefix nil)))) |
693 | 693 |
694 ;; Make C-h after a prefix, when not specifically bound, | 694 ;; Make C-h after a prefix, when not specifically bound, |
695 ;; run describe-prefix-bindings. | 695 ;; run describe-prefix-bindings. |
696 (setq prefix-help-command 'describe-prefix-bindings) | 696 (setq prefix-help-command 'describe-prefix-bindings) |
697 | |
698 (defun describe-installation () | |
699 "Display a buffer showing information about this XEmacs was compiled." | |
700 (interactive) | |
701 (if (and (boundp 'Installation-string) | |
702 (stringp Installation-string)) | |
703 (with-displaying-help-buffer "Installation" | |
704 (princ Installation-string)) | |
705 (error "No Installation information available."))) | |
697 | 706 |
698 (defun view-emacs-news () | 707 (defun view-emacs-news () |
699 "Display info on recent changes to XEmacs." | 708 "Display info on recent changes to XEmacs." |
700 (interactive) | 709 (interactive) |
701 (find-file (locate-data-file "NEWS"))) | 710 (find-file (locate-data-file "NEWS"))) |