From 9fbe132705339bc94121853b7bc9ec837286109c Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 2 Jan 2001 23:17:24 +0000 Subject: [PATCH] (browse-url-filename-alist): Avoid backquote read syntax. --- lisp/net/browse-url.el | 9 +++++---- 1 file 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 -- 2.39.5