diff options
| author | Richard M. Stallman | 1995-02-25 23:27:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-02-25 23:27:09 +0000 |
| commit | a096f13fc6380cb037bd487426bd3e4e799337db (patch) | |
| tree | aa3b1baf6990ddd53ddeca2abc1a76e0cb2e6370 | |
| parent | ac8f8f7d8cf769319a8d21b4d04e323f3b4d55b5 (diff) | |
| download | emacs-a096f13fc6380cb037bd487426bd3e4e799337db.tar.gz emacs-a096f13fc6380cb037bd487426bd3e4e799337db.zip | |
(byte-compile-file): Bind default-major-mode to avoid randomness.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f0015b8309c..9d4f632a485 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1194,6 +1194,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling." | |||
| 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))) |