diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2017-03-04 05:58:34 +0100 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-05-20 18:28:23 -0400 |
| commit | f151eb01418b80d102c767566e93ac332a8bf7c3 (patch) | |
| tree | e007692be8f9e80745a19097deb0e908fd0c3ce0 /lisp/emacs-lisp | |
| parent | 848c90e3d43ed7baebab5f2d02d0a9601c6a142b (diff) | |
| download | emacs-f151eb01418b80d102c767566e93ac332a8bf7c3.tar.gz emacs-f151eb01418b80d102c767566e93ac332a8bf7c3.tar.bz2 emacs-f151eb01418b80d102c767566e93ac332a8bf7c3.zip | |
Don't save unrelated buffers before recompiling directory (Bug#25964)
* lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Only save
buffers visiting lisp files under the directory being compiled.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index e716eef10ad..6c12e5d8e25 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1659,7 +1659,12 @@ that already has a `.elc' file." (if arg (setq arg (prefix-numeric-value arg))) (if noninteractive nil - (save-some-buffers) + (save-some-buffers + nil (lambda () + (let ((file (buffer-file-name))) + (and file + (string-match-p emacs-lisp-file-regexp file) + (file-in-directory-p file directory))))) (force-mode-line-update)) (with-current-buffer (get-buffer-create byte-compile-log-buffer) (setq default-directory (expand-file-name directory)) |