/[emacs]/emacs/lisp/net/browse-url.el
ViewVC logotype

Diff of /emacs/lisp/net/browse-url.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by kfstorm, Tue Jan 14 22:34:20 2003 UTC revision 1.27 by lektu, Fri Jan 31 15:20:36 2003 UTC
# Line 227  Line 227 
227    
228  ;;;###autoload  ;;;###autoload
229  (defcustom browse-url-browser-function  (defcustom browse-url-browser-function
230    (if (memq system-type '(windows-nt ms-dos))    (if (memq system-type '(windows-nt ms-dos cygwin))
231        'browse-url-default-windows-browser        'browse-url-default-windows-browser
232      'browse-url-default-browser)      'browse-url-default-browser)
233    "*Function to display the current buffer in a WWW browser.    "*Function to display the current buffer in a WWW browser.
# Line 381  commands reverses the effect of this var Line 381  commands reverses the effect of this var
381      ;; it in anonymous cases.  If it's not anonymous the next regexp      ;; it in anonymous cases.  If it's not anonymous the next regexp
382      ;; applies.      ;; applies.
383      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
384      (,@ (if (memq system-type '(windows-nt ms-dos))      (,@ (if (memq system-type '(windows-nt ms-dos cygwin))
385              '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")              '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
386                ("^[\\/][\\/]+" . "file://"))))                ("^[\\/][\\/]+" . "file://"))))
387      ("^/+" . "file:/")))      ("^/+" . "file:/")))
# Line 972  effect of `browse-url-new-window-flag'. Line 972  effect of `browse-url-new-window-flag'.
972    
973  When called non-interactively, optional second argument NEW-WINDOW is  When called non-interactively, optional second argument NEW-WINDOW is
974  used instead of `browse-url-new-window-flag'."  used instead of `browse-url-new-window-flag'."
975    (interactive (browse-url-interactive-arg "URL: "))      (interactive (browse-url-interactive-arg "URL: "))
976    (apply 'start-process (concat "gnome-moz-remote " url)    (apply 'start-process (concat "gnome-moz-remote " url)
977           nil           nil
978           "gnome-moz-remote"           "gnome-moz-remote"

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26