Mercurial > emacs
changeset 78711:4dcdcb6bc544
(byte-recompile-directory): Fix bug:
Don't expand top-level file name more than once.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Sat, 01 Sep 2007 23:31:11 +0000 |
| parents | 009fdbf78aa5 |
| children | 9fb15fe54f48 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)