diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-28 07:05:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-28 07:05:55 +0000 |
| commit | 3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca (patch) | |
| tree | 72b92c09021eb46d87db2ae0dc228b5cbfbf4d13 /lisp/emacs-lisp | |
| parent | ca2ec1c584059c787da2101de9b03baecff5f5ce (diff) | |
| download | emacs-3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca.tar.gz emacs-3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca.tar.bz2 emacs-3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca.zip | |
(byte-compile-file): Use whole file name for errors.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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*")) |