Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 1f0dabaa0855
children 2c611d1463a6
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
621 (find-file (expand-file-name "NEWS" data-directory))) 621 (find-file (expand-file-name "NEWS" data-directory)))
622 622
623 (defun xemacs-www-page () 623 (defun xemacs-www-page ()
624 "Go to the XEmacs World Wide Web page." 624 "Go to the XEmacs World Wide Web page."
625 (interactive) 625 (interactive)
626 (funcall browse-url-browser-function "http://www.xemacs.org/")) 626 (if (boundp 'browse-url-browser-function)
627 (funcall browse-url-browser-function "http://www.xemacs.org/")
628 (error "xemacs-www-page requires browse-url")))
627 629
628 (defun xemacs-www-faq () 630 (defun xemacs-www-faq ()
629 "View the latest and greatest XEmacs FAQ using the World Wide Web." 631 "View the latest and greatest XEmacs FAQ using the World Wide Web."
630 (interactive) 632 (interactive)
631 (funcall browse-url-browser-function "http://www.xemacs.org/faq/index.html")) 633 (if (boundp 'browse-url-browser-function)
634 (funcall browse-url-browser-function
635 "http://www.xemacs.org/faq/index.html")
636 (error "xemacs-www-faq requires browse-url")))
632 637
633 (defun xemacs-local-faq () 638 (defun xemacs-local-faq ()
634 "View the local copy of the XEmacs FAQ. 639 "View the local copy of the XEmacs FAQ.
635 If you have access to the World Wide Web, you should use `xemacs-www-faq' 640 If you have access to the World Wide Web, you should use `xemacs-www-faq'
636 instead, to ensure that you get the most up-to-date information." 641 instead, to ensure that you get the most up-to-date information."