diff options
author | Dave Love <fx@gnu.org> | 2001-01-02 23:17:24 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2001-01-02 23:17:24 +0000 |
commit | 9fbe132705339bc94121853b7bc9ec837286109c (patch) | |
tree | b587ed3dabb9bc24982aa16d81f6544073c57204 | |
parent | 13d6a61c2874b57d7db631651841b8ecbafa8ef8 (diff) | |
download | emacs-9fbe132705339bc94121853b7bc9ec837286109c.tar.gz |
(browse-url-filename-alist): Avoid backquote
read syntax.
-rw-r--r-- | lisp/net/browse-url.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index b4bb7a5accc..fba2938d44a 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -323,14 +323,15 @@ commands reverses the effect of this variable. Requires Netscape version :group 'browse-url) (defcustom browse-url-filename-alist - `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") + (\` ; Backquote syntax won't work. + (("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") ;; The above loses the username to avoid the browser prompting for ;; it in anonymous cases. If it's not anonymous the next regexp ;; applies. ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") - ,(if (memq system-type '(windows-nt ms-dos)) - '("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")) - ("^/+" . "file:/")) + (,@ (if (memq system-type '(windows-nt ms-dos)) + '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")))) + ("^/+" . "file:/"))) "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'. Any substring of a filename matching one of the REGEXPs is replaced by the corresponding STRING using `replace-match', not treating STRING |