Mercurial > hg > xemacs-beta

comparison lisp/info.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 d44af0c54775
children 41f2f0e326e9
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
575 ;; loading it if we won't need it. 575 ;; loading it if we won't need it.
576 ((string-match (concat "^\\(wais\\|solo\\|x-exec\\|newspost\\|www\\|" 576 ((string-match (concat "^\\(wais\\|solo\\|x-exec\\|newspost\\|www\\|"
577 "mailto\\|news\\|tn3270\\|ftp\\|http\\|file\\|" 577 "mailto\\|news\\|tn3270\\|ftp\\|http\\|file\\|"
578 "telnet\\|gopher\\):") 578 "telnet\\|gopher\\):")
579 filename) 579 filename)
580 (browse-url filename)) 580 (if (fboundp 'browse-url)
581 (browse-url filename)
582 (error "Cannot follow URLs in this XEmacs")))
581 (t 583 (t
582 (error "Info file %s does not exist" filename)))) 584 (error "Info file %s does not exist" filename))))
583 585
584 (defun Info-find-file-node (filename nodename 586 (defun Info-find-file-node (filename nodename
585 &optional no-going-back tryfile line) 587 &optional no-going-back tryfile line)