# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1188689471 0
# Node ID 4dcdcb6bc5441a2b6ad92b598a39728436a05f14
# Parent  009fdbf78aa52850473e62811345f2c7474d81d4
(byte-recompile-directory): Fix bug:
Don't expand top-level file name more than once.

diff -r 009fdbf78aa5 -r 4dcdcb6bc544 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sat Sep 01 16:24:03 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sat Sep 01 23:31:11 2007 +0000
@@ -1549,7 +1549,7 @@
     ;; 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)