diff options
| author | Andreas Politz | 2017-03-04 05:58:34 +0100 |
|---|---|---|
| committer | Noam Postavsky | 2017-05-20 18:28:23 -0400 |
| commit | f151eb01418b80d102c767566e93ac332a8bf7c3 (patch) | |
| tree | e007692be8f9e80745a19097deb0e908fd0c3ce0 | |
| parent | 848c90e3d43ed7baebab5f2d02d0a9601c6a142b (diff) | |
| download | emacs-f151eb01418b80d102c767566e93ac332a8bf7c3.tar.gz 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.
| -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." | |||
| 1659 | (if arg (setq arg (prefix-numeric-value arg))) | 1659 | (if arg (setq arg (prefix-numeric-value arg))) |
| 1660 | (if noninteractive | 1660 | (if noninteractive |
| 1661 | nil | 1661 | nil |
| 1662 | (save-some-buffers) | 1662 | (save-some-buffers |
| 1663 | nil (lambda () | ||
| 1664 | (let ((file (buffer-file-name))) | ||
| 1665 | (and file | ||
| 1666 | (string-match-p emacs-lisp-file-regexp file) | ||
| 1667 | (file-in-directory-p file directory))))) | ||
| 1663 | (force-mode-line-update)) | 1668 | (force-mode-line-update)) |
| 1664 | (with-current-buffer (get-buffer-create byte-compile-log-buffer) | 1669 | (with-current-buffer (get-buffer-create byte-compile-log-buffer) |
| 1665 | (setq default-directory (expand-file-name directory)) | 1670 | (setq default-directory (expand-file-name directory)) |