From 3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Mar 1994 07:05:55 +0000 Subject: (byte-compile-file): Use whole file name for errors. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/bytecomp.el') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index be117d1184f..d3fc441480b 100644 --- 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*")) -- cgit v1.2.3