Mercurial > emacs
comparison lisp/net/browse-url.el @ 31575:722700be186b
(browse-url-filename-alist): Use , not ,@ to add DOS/Windows specific association.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Tue, 12 Sep 2000 20:21:39 +0000 |
| parents | 8884b93379ef |
| children | 36892782f26a |
comparison
equal
deleted
inserted
replaced
| 31574:9dbe341d4d8f | 31575:722700be186b |
|---|---|
| 323 `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") | 323 `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") |
| 324 ;; The above loses the username to avoid the browser prompting for | 324 ;; The above loses the username to avoid the browser prompting for |
| 325 ;; it in anonymous cases. If it's not anonymous the next regexp | 325 ;; it in anonymous cases. If it's not anonymous the next regexp |
| 326 ;; applies. | 326 ;; applies. |
| 327 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") | 327 ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
| 328 ,@(if (memq system-type '(windows-nt ms-dos)) | 328 ,(if (memq system-type '(windows-nt ms-dos)) |
| 329 '("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")) | 329 '("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")) |
| 330 ("^/+" . "file:/")) | 330 ("^/+" . "file:/")) |
| 331 "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. | 331 "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. |
| 332 Any substring of a filename matching one of the REGEXPs is replaced by | 332 Any substring of a filename matching one of the REGEXPs is replaced by |
| 333 the corresponding STRING using `replace-match', not treating STRING | 333 the corresponding STRING using `replace-match', not treating STRING |