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. |
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:/"))) |
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" |