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."
(if byte-compile-verbose
(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)
(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