From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 28 Mar 1994 07:05:55 +0000 (+0000)
Subject: (byte-compile-file): Use whole file name for errors.
X-Git-Tag: emacs-19.34~9298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca;p=emacs.git

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

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*"))