# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764838355 0
# Node ID 5f8effa94d2087264429957657ca51d08b019d53
# Parent  fca6271b0983784a585410c7de47313fc6874e06
(byte-compile-file): Use whole file name for errors.

diff -r fca6271b0983 -r 5f8effa94d20 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Mon Mar 28 06:08:35 1994 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon Mar 28 07:05:55 1994 +0000
@@ -1145,7 +1145,7 @@
 
   (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*"))