From b99cc8534de5fdad53804949772e68f1b7389541 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 1 Sep 2007 23:32:36 +0000 Subject: [PATCH] (byte-recompile-directory): Fix bug: Don't expand top-level file name more than once. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * emacs-lisp/bytecomp.el (byte-recompile-directory): + Fix bug: Don't expand top-level file name more than once. + 2007-09-01 Richard Stallman * 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) -- 2.39.2