[elpa] master 9b835e3 123/187: * async-bytecomp.el: Send errors in single buffer (#36).

[Michael Albinus]

branch: master
commit 9b835e3db30b75da0405e75d6b49c8988c33f2fa
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    * 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)