diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-09-01 23:32:36 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-09-01 23:32:36 +0000 |
| commit | b99cc8534de5fdad53804949772e68f1b7389541 (patch) | |
| tree | 17e16e51387995a083ba96e3d55605fd52125f3f /lisp/emacs-lisp | |
| parent | 70b49e57821df55da3e5797b2d79578731425f34 (diff) | |
| download | emacs-b99cc8534de5fdad53804949772e68f1b7389541.tar.gz emacs-b99cc8534de5fdad53804949772e68f1b7389541.tar.bz2 emacs-b99cc8534de5fdad53804949772e68f1b7389541.zip | |
(byte-recompile-directory): Fix bug:
Don't expand top-level file name more than once.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |