Mercurial > emacs

changeset 35008:392d90bba860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-filename-alist): Avoid backquote read syntax.
author Dave Love <fx@gnu.org>
date Tue, 02 Jan 2001 23:17:24 +0000
parents 0d249b1dfcc7
children d80f2bfd0e05
files lisp/net/browse-url.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/browse-url.el	Tue Jan 02 22:57:41 2001 +0000
+++ b/lisp/net/browse-url.el	Tue Jan 02 23:17:24 2001 +0000
@@ -323,14 +323,15 @@
   :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