Mercurial > emacs

changeset 83836:cbeb8c965cdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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:33:15 +0000
parents 201d3c4ab213
children 60095f798fcf
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Sat Sep 01 23:26:52 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sat Sep 01 23:33:15 2007 +0000
@@ -975,7 +975,7 @@
 	 (pos (if (and byte-compile-current-file
 		       (integerp byte-compile-read-position))
 		  (with-current-buffer byte-compile-current-buffer
-		    (format "%d:%d:" 
+		    (format "%d:%d:"
 			    (save-excursion
 			      (goto-char byte-compile-last-position)
 			      (1+ (count-lines (point-min) (point-at-bol))))
@@ -1552,7 +1552,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)
@@ -1659,7 +1659,7 @@
 	byte-compile-dest-file)
     (setq target-file (byte-compile-dest-file filename))
     (setq byte-compile-dest-file target-file)
-    (with-current-buffer 
+    (with-current-buffer
         (setq input-buffer (get-buffer-create " *Compiler Input*"))
       (erase-buffer)
       (setq buffer-file-coding-system nil)