Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 4246:9fec7fedbf1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-31 11:21:02 by aidan] Use correct coding system information for Installation-string.
author aidan
date Wed, 31 Oct 2007 11:21:15 +0000
parents b4f4e0cc90f1
children 4ba890988caa
comparison
equal deleted inserted replaced
4245:119b227b734c 4246:9fec7fedbf1b
827 (setq prefix-help-command 'describe-prefix-bindings) 827 (setq prefix-help-command 'describe-prefix-bindings)
828 828
829 (defun describe-installation () 829 (defun describe-installation ()
830 "Display a buffer showing information about this XEmacs was compiled." 830 "Display a buffer showing information about this XEmacs was compiled."
831 (interactive) 831 (interactive)
832 (if (and (boundp 'Installation-string) 832 (if (and-boundp 'Installation-string
833 (stringp Installation-string)) 833 (stringp Installation-string))
834 (with-displaying-help-buffer 834 (with-displaying-help-buffer
835 (lambda () 835 (lambda ()
836 (princ 836 (princ Installation-string))
837 (if (fboundp 'decode-coding-string)
838 (decode-coding-string Installation-string 'automatic-conversion)
839 Installation-string)))
840 "Installation") 837 "Installation")
841 (error "No Installation information available."))) 838 (error 'unimplemented "No Installation information available.")))
842 839
843 (defun view-emacs-news () 840 (defun view-emacs-news ()
844 "Display info on recent changes to XEmacs." 841 "Display info on recent changes to XEmacs."
845 (interactive) 842 (interactive)
846 (Help-find-file (expand-file-name "NEWS" data-directory))) 843 (Help-find-file (expand-file-name "NEWS" data-directory)))