diff options
| author | Juanma Barranquero | 2003-01-31 15:24:20 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-01-31 15:24:20 +0000 |
| commit | c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1 (patch) | |
| tree | 7d28300d64e41bf2aeed37bc8f1293f9fc52a36a /lisp/net | |
| parent | 2454c12d458c60b871f6f36c3fd6ba752aad61bf (diff) | |
| download | emacs-c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1.tar.gz emacs-c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1.zip | |
Cygwin support patch.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/browse-url.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 0a417a22f0f..0ebc41150df 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -227,7 +227,7 @@ | |||
| 227 | 227 | ||
| 228 | ;;;###autoload | 228 | ;;;###autoload |
| 229 | (defcustom browse-url-browser-function | 229 | (defcustom browse-url-browser-function |
| 230 | (if (memq system-type '(windows-nt ms-dos)) | 230 | (if (memq system-type '(windows-nt ms-dos cygwin)) |
| 231 | 'browse-url-default-windows-browser | 231 | 'browse-url-default-windows-browser |
| 232 | 'browse-url-default-browser) | 232 | 'browse-url-default-browser) |
| 233 | "*Function to display the current buffer in a WWW browser. | 233 | "*Function to display the current buffer in a WWW browser. |
| @@ -381,7 +381,7 @@ commands reverses the effect of this variable. Requires Netscape version | |||
| 381 | ;; it in anonymous cases. If it's not anonymous the next regexp | 381 | ;; it in anonymous cases. If it's not anonymous the next regexp |
| 382 | ;; applies. | 382 | ;; applies. |
| 383 | ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") | 383 | ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
| 384 | (,@ (if (memq system-type '(windows-nt ms-dos)) | 384 | (,@ (if (memq system-type '(windows-nt ms-dos cygwin)) |
| 385 | '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") | 385 | '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
| 386 | ("^[\\/][\\/]+" . "file://")))) | 386 | ("^[\\/][\\/]+" . "file://")))) |
| 387 | ("^/+" . "file:/"))) | 387 | ("^/+" . "file:/"))) |
| @@ -972,7 +972,7 @@ effect of `browse-url-new-window-flag'. | |||
| 972 | 972 | ||
| 973 | When called non-interactively, optional second argument NEW-WINDOW is | 973 | When called non-interactively, optional second argument NEW-WINDOW is |
| 974 | used instead of `browse-url-new-window-flag'." | 974 | used instead of `browse-url-new-window-flag'." |
| 975 | (interactive (browse-url-interactive-arg "URL: ")) | 975 | (interactive (browse-url-interactive-arg "URL: ")) |
| 976 | (apply 'start-process (concat "gnome-moz-remote " url) | 976 | (apply 'start-process (concat "gnome-moz-remote " url) |
| 977 | nil | 977 | nil |
| 978 | "gnome-moz-remote" | 978 | "gnome-moz-remote" |