Mercurial > emacs
comparison lisp/net/browse-url.el @ 37666:16a7e84d5ff3
(browse-url-filename-alist): Allow UNC file
names for MS-Windows and MS-DOS. From Dan Holmsand
<dan@eyebee.com>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 10 May 2001 11:54:15 +0000 |
| parents | c5e0aa9cbe69 |
| children | ae3f8f955b05 |
comparison
equal
deleted
inserted
replaced
| 37665:ebd292552bfe | 37666:16a7e84d5ff3 |
|---|---|
| 329 ;; The above loses the username to avoid the browser prompting for | 329 ;; The above loses the username to avoid the browser prompting for |
| 330 ;; it in anonymous cases. If it's not anonymous the next regexp | 330 ;; it in anonymous cases. If it's not anonymous the next regexp |
| 331 ;; applies. | 331 ;; applies. |
| 332 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") | 332 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
| 333 (,@ (if (memq system-type '(windows-nt ms-dos)) | 333 (,@ (if (memq system-type '(windows-nt ms-dos)) |
| 334 '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")))) | 334 '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
| 335 ("^[\\/][\\/]+" . "file://")))) | |
| 335 ("^/+" . "file:/"))) | 336 ("^/+" . "file:/"))) |
| 336 "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. | 337 "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. |
| 337 Any substring of a filename matching one of the REGEXPs is replaced by | 338 Any substring of a filename matching one of the REGEXPs is replaced by |
| 338 the corresponding STRING using `replace-match', not treating STRING | 339 the corresponding STRING using `replace-match', not treating STRING |
| 339 literally. All pairs are applied in the order given. The default | 340 literally. All pairs are applied in the order given. The default |