Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 10836:3c9b3505feef
(byte-compile-file): Bind default-major-mode to avoid randomness.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Feb 1995 23:27:09 +0000 |
| parents | 5cf8a7a41664 |
| children | 34477ac36e6e |
comparison
equal
deleted
inserted
replaced
| 10835:cd9261d8d347 | 10836:3c9b3505feef |
|---|---|
| 1192 (erase-buffer) | 1192 (erase-buffer) |
| 1193 (insert-file-contents filename) | 1193 (insert-file-contents filename) |
| 1194 ;; Run hooks including the uncompression hook. | 1194 ;; Run hooks including the uncompression hook. |
| 1195 ;; If they change the file name, then change it for the output also. | 1195 ;; If they change the file name, then change it for the output also. |
| 1196 (let ((buffer-file-name filename) | 1196 (let ((buffer-file-name filename) |
| 1197 (default-major-mode 'emacs-lisp-mode) | |
| 1197 (enable-local-eval nil)) | 1198 (enable-local-eval nil)) |
| 1198 (normal-mode) | 1199 (normal-mode) |
| 1199 (setq filename buffer-file-name))) | 1200 (setq filename buffer-file-name))) |
| 1200 (setq byte-compiler-error-flag nil) | 1201 (setq byte-compiler-error-flag nil) |
| 1201 ;; It is important that input-buffer not be current at this call, | 1202 ;; It is important that input-buffer not be current at this call, |