aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2019-06-16 17:36:52 -0700
committerGlenn Morris2019-06-16 17:37:21 -0700
commit421220e2946dadab77fbfc79cf4f0daa49961c41 (patch)
treef1a0b6849481f19870bb1703a9e156a6d17b5027
parent78a609d454ecf2d8eaf12817fd04ce9869b49a5b (diff)
downloademacs-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.el6
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)