diff lisp/info.el @ 219:262b8bb4a523 r20-4b8

Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents d44af0c54775
children 41f2f0e326e9
line wrap: on
line diff
--- a/lisp/info.el	Mon Aug 13 10:08:36 2007 +0200
+++ b/lisp/info.el	Mon Aug 13 10:09:35 2007 +0200
@@ -577,7 +577,9 @@
 			   "mailto\\|news\\|tn3270\\|ftp\\|http\\|file\\|"
 			   "telnet\\|gopher\\):")
 		   filename)
-    (browse-url filename))
+    (if (fboundp 'browse-url)
+	(browse-url filename)
+      (error "Cannot follow URLs in this XEmacs")))
    (t
     (error "Info file %s does not exist" filename))))