Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 6554:5f8effa94d20
(byte-compile-file): Use whole file name for errors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Mar 1994 07:05:55 +0000 |
| parents | 649c8a929063 |
| children | 4fd40bd394fe |
comparison
equal
deleted
inserted
replaced
| 6553:fca6271b0983 | 6554:5f8effa94d20 |
|---|---|
| 1143 (y-or-n-p (format "save buffer %s first? " (buffer-name b)))) | 1143 (y-or-n-p (format "save buffer %s first? " (buffer-name b)))) |
| 1144 (save-excursion (set-buffer b) (save-buffer))))) | 1144 (save-excursion (set-buffer b) (save-buffer))))) |
| 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*")) |
| 1152 (set-buffer input-buffer) | 1152 (set-buffer input-buffer) |
| 1153 (erase-buffer) | 1153 (erase-buffer) |