From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sat, 1 Sep 2007 23:32:36 +0000 (+0000)
Subject: (byte-recompile-directory): Fix bug:
X-Git-Tag: emacs-pretest-22.1.90~875
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b99cc8534de5fdad53804949772e68f1b7389541;p=emacs.git

(byte-recompile-directory): Fix bug:
Don't expand top-level file name more than once.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 589e69f2d41..dfe346a843a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-01  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+	* emacs-lisp/bytecomp.el (byte-recompile-directory):
+	Fix bug: Don't expand top-level file name more than once.
+
 2007-09-01  Richard Stallman  <rms@gnu.org>
 
 	* files.el (hack-local-variables-confirm): Rename arg VARS to ALL-VARS.
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 932d94fb368..6cc61426f3b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1549,7 +1549,7 @@ recompile every `.el' file that already has a `.elc' file."
     ;; compilation-mode copies value of default-directory.
     (unless (eq major-mode 'compilation-mode)
       (compilation-mode))
-    (let ((directories (list (expand-file-name directory)))
+    (let ((directories (list default-directory))
 	  (default-directory default-directory)
 	  (skip-count 0)
 	  (fail-count 0)