diff options
| author | Richard M. Stallman | 1994-03-28 07:05:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-28 07:05:55 +0000 |
| commit | 3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca (patch) | |
| tree | 72b92c09021eb46d87db2ae0dc228b5cbfbf4d13 | |
| parent | ca2ec1c584059c787da2101de9b03baecff5f5ce (diff) | |
| download | emacs-3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca.tar.gz emacs-3ea1f391dac6e2f78c046b0f3cb8bf150b70f4ca.zip | |
(byte-compile-file): Use whole file name for errors.
| -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." | |||
| 1145 | 1145 | ||
| 1146 | (if byte-compile-verbose | 1146 | (if byte-compile-verbose |
| 1147 | (message "Compiling %s..." filename)) | 1147 | (message "Compiling %s..." filename)) |
| 1148 | (let ((byte-compile-current-file (file-name-nondirectory filename)) | 1148 | (let ((byte-compile-current-file filename) |
| 1149 | target-file input-buffer output-buffer) | 1149 | target-file input-buffer output-buffer) |
| 1150 | (save-excursion | 1150 | (save-excursion |
| 1151 | (setq input-buffer (get-buffer-create " *Compiler Input*")) | 1151 | (setq input-buffer (get-buffer-create " *Compiler Input*")) |