X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=install.el;h=f5a0d4eca9542b9714d700e85f0a442055ca0010;hb=6a5359dee2763bf52c359cf824a2e7f33bcabda2;hp=1b9b927d21de5bd62ef53bb80f65eb2a29968c96;hpb=e0a090a1e3b128b201efebfbe8fbb76a1dc11f53;p=elisp%2Fapel.git

diff --git a/install.el b/install.el
index 1b9b927..f5a0d4e 100644
--- a/install.el
+++ b/install.el
@@ -163,13 +163,12 @@
   (or
    (catch 'tag
      (let ((rest default-load-path)
+	   (pat (concat "^"
+			(expand-file-name (concat ".*/" elisp-prefix) prefix)
+			"/?$"))
 	   dir)
        (while (setq dir (car rest))
-	 (if (string-match
-	      `,(concat "^"
-			(expand-file-name (concat ".*/" elisp-prefix) prefix)
-			"/?$")
-	      dir)
+	 (if (string-match pat dir)
 	     (if (or allow-version-specific
 		     (not (string-match (format "%d\\.%d"
 						emacs-major-version