Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/help.el	Mon Aug 13 10:08:36 2007 +0200
+++ b/lisp/help.el	Mon Aug 13 10:09:35 2007 +0200
@@ -623,12 +623,17 @@
 (defun xemacs-www-page ()
   "Go to the XEmacs World Wide Web page."
   (interactive)
-  (funcall browse-url-browser-function "http://www.xemacs.org/"))
+  (if (boundp 'browse-url-browser-function)
+      (funcall browse-url-browser-function "http://www.xemacs.org/")
+    (error "xemacs-www-page requires browse-url")))
 
 (defun xemacs-www-faq ()
   "View the latest and greatest XEmacs FAQ using the World Wide Web."
   (interactive)
-  (funcall browse-url-browser-function "http://www.xemacs.org/faq/index.html"))
+  (if (boundp 'browse-url-browser-function)
+      (funcall browse-url-browser-function
+	       "http://www.xemacs.org/faq/index.html")
+    (error "xemacs-www-faq requires browse-url")))
 
 (defun xemacs-local-faq ()
   "View the local copy of the XEmacs FAQ.