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

3ea1f391 · Richard M. Stallman · ca2ec1c5 · 3ea1f391
Commit 3ea1f391 authored Mar 28, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/bytecomp.el +1 -1

No files found.
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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)
    (save-excursion
      (setq input-buffer (get-buffer-create " *Compiler Input*"))