Commit 3ea1f391 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-file): Use whole file name for errors.

parent ca2ec1c5
...@@ -1145,7 +1145,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling." ...@@ -1145,7 +1145,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
(if byte-compile-verbose (if byte-compile-verbose
(message "Compiling %s..." filename)) (message "Compiling %s..." filename))
(let ((byte-compile-current-file (file-name-nondirectory filename)) (let ((byte-compile-current-file filename)
target-file input-buffer output-buffer) target-file input-buffer output-buffer)
(save-excursion (save-excursion
(setq input-buffer (get-buffer-create " *Compiler Input*")) (setq input-buffer (get-buffer-create " *Compiler Input*"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment