branch: master
commit 9b835e3db30b75da0405e75d6b49c8988c33f2fa
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* async-bytecomp.el: Send errors in single buffer (#36).
Don't select log buffer unless using special-display.
---
async-bytecomp.el | 13 +++++++------
1 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/async-bytecomp.el b/async-bytecomp.el
index ec57b88..5279cb7 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -56,11 +56,12 @@
`(lambda (&optional ignore)
(if (file-exists-p async-byte-compile-log-file)
(progn
- (pop-to-buffer (generate-new-buffer-name
- byte-compile-log-buffer))
- (erase-buffer)
- (insert-file-contents async-byte-compile-log-file)
- (compilation-mode)
+ (display-buffer (get-buffer-create
+ byte-compile-log-buffer))
+ (goto-char (point-max))
+ (let ((inhibit-read-only t))
+ (insert-file-contents async-byte-compile-log-file)
+ (compilation-mode))
(delete-file async-byte-compile-log-file)
(let ((n 0))
(save-excursion
@@ -70,7 +71,7 @@
(if (> n 0)
(message "Failed to compile %d files in directory
`%s'" n ,directory)
(message "Directory `%s' compiled asynchronously with
warnings" ,directory))))
- (message "Directory `%s' compiled asynchronously with success"
,directory)))))
+ (message "Directory `%s' compiled asynchronously with
success" ,directory)))))
(async-start
`(lambda ()
(require 'bytecomp)
