mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-03-28 07:05:55 +00:00
parent ca2ec1c584
commit 3ea1f391da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View File

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