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) |