diff options
| author | Glenn Morris | 2019-06-16 17:36:52 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-06-16 17:37:21 -0700 |
| commit | 421220e2946dadab77fbfc79cf4f0daa49961c41 (patch) | |
| tree | f1a0b6849481f19870bb1703a9e156a6d17b5027 | |
| parent | 78a609d454ecf2d8eaf12817fd04ce9869b49a5b (diff) | |
| download | emacs-421220e2946dadab77fbfc79cf4f0daa49961c41.tar.gz emacs-421220e2946dadab77fbfc79cf4f0daa49961c41.zip | |
Tweak compilation mode used by byte-recompile-directory
* lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-mode):
Doc fix.
(byte-recompile-directory): Use emacs-lisp-compilation-mode.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b917b713c06..66dfe4302f4 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1050,7 +1050,7 @@ The value nil as an element means to try the default directory." | |||
| 1050 | (string :tag "Directory")))) | 1050 | (string :tag "Directory")))) |
| 1051 | 1051 | ||
| 1052 | (define-compilation-mode emacs-lisp-compilation-mode "elisp-compile" | 1052 | (define-compilation-mode emacs-lisp-compilation-mode "elisp-compile" |
| 1053 | "The variant of `compilation-mode' used for emacs-lisp error buffers") | 1053 | "The variant of `compilation-mode' used for emacs-lisp compilation buffers.") |
| 1054 | 1054 | ||
| 1055 | (defvar byte-compile-current-form nil) | 1055 | (defvar byte-compile-current-form nil) |
| 1056 | (defvar byte-compile-dest-file nil) | 1056 | (defvar byte-compile-dest-file nil) |
| @@ -1749,8 +1749,8 @@ that already has a `.elc' file." | |||
| 1749 | (with-current-buffer (get-buffer-create byte-compile-log-buffer) | 1749 | (with-current-buffer (get-buffer-create byte-compile-log-buffer) |
| 1750 | (setq default-directory (expand-file-name directory)) | 1750 | (setq default-directory (expand-file-name directory)) |
| 1751 | ;; compilation-mode copies value of default-directory. | 1751 | ;; compilation-mode copies value of default-directory. |
| 1752 | (unless (eq major-mode 'compilation-mode) | 1752 | (unless (derived-mode-p 'compilation-mode) |
| 1753 | (compilation-mode)) | 1753 | (emacs-lisp-compilation-mode)) |
| 1754 | (let ((directories (list default-directory)) | 1754 | (let ((directories (list default-directory)) |
| 1755 | (default-directory default-directory) | 1755 | (default-directory default-directory) |
| 1756 | (skip-count 0) | 1756 | (skip-count 0) |