diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-09-01 23:33:15 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-09-01 23:33:15 +0000 |
| commit | ea1cb2bdd6c998b4f22f73c4c3ecb9c5b467b8db (patch) | |
| tree | 417a980bd38cf5a08130344cdfe27f2a8e99f390 /lisp/emacs-lisp | |
| parent | 28aa2c3e65bfbbd8a1db965b41e5a2632d53f147 (diff) | |
| download | emacs-ea1cb2bdd6c998b4f22f73c4c3ecb9c5b467b8db.tar.gz emacs-ea1cb2bdd6c998b4f22f73c4c3ecb9c5b467b8db.tar.bz2 emacs-ea1cb2bdd6c998b4f22f73c4c3ecb9c5b467b8db.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 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index bfc21820b5c..e9846d5875f 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -975,7 +975,7 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'." (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 @@ 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) @@ -1659,7 +1659,7 @@ The value is non-nil if there were no errors, nil if errors." 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) |