(byte-recompile-directory): Fix bug:

Don't expand top-level file name more than once.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 589e69f2d4130b5f64adc3773664084c26c47f42..dfe346a843ad48be4db20f9947aabc95c22b5190 100644 (file)
--- 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 932d94fb368de191f0552223e22936fcfc7bac98..6cc61426f3b6b8d8c6f90f2868d1760e6d1df03c 100644 (file)
--- 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)