[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 914a284 124/187: * async-bytecomp.el: Fix callback.
From: |
Michael Albinus |
Subject: |
[elpa] master 914a284 124/187: * async-bytecomp.el: Fix callback. |
Date: |
Wed, 30 Dec 2015 11:50:07 +0000 |
branch: master
commit 914a284df316bee79794b7a1c11c6a8c03d2da79
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>
* async-bytecomp.el: Fix callback.
Now we use display-buffer, the buffer is not current, so use
with-current-buffer.
---
async-bytecomp.el | 28 ++++++++++++++--------------
1 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/async-bytecomp.el b/async-bytecomp.el
index 5279cb7..3c25df8 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -55,23 +55,23 @@
(let ((call-back
`(lambda (&optional ignore)
(if (file-exists-p async-byte-compile-log-file)
- (progn
- (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))
+ (let ((buf (get-buffer-create byte-compile-log-buffer))
+ (n 0))
+ (with-current-buffer buf
+ (goto-char (point-max))
+ (let ((inhibit-read-only t))
+ (insert-file-contents async-byte-compile-log-file)
+ (compilation-mode))
+ (display-buffer buf)
+ (delete-file async-byte-compile-log-file)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^.*:Error:" nil t)
- (incf n)))
- (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)))))
+ (incf n))))
+ (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)))))
(async-start
`(lambda ()
(require 'bytecomp)
- [elpa] master 6d4e1a5 119/187: Merge branch 'master' of github.com:jwiegley/emacs-async, (continued)
- [elpa] master 6d4e1a5 119/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 8cfde3d 121/187: * async-bytecomp.el: Add comment., Michael Albinus, 2015/12/30
- [elpa] master 9b835e3 123/187: * async-bytecomp.el: Send errors in single buffer (#36)., Michael Albinus, 2015/12/30
- [elpa] master 228d022 122/187: * dired-async.el (dired-create-file): require dired-x for newer emacs versions., Michael Albinus, 2015/12/30
- [elpa] master 057d002 110/187: * async.el: Fix recompilation of async dir., Michael Albinus, 2015/12/30
- [elpa] master 57efc8d 120/187: * async-pkg.el: Don't compile., Michael Albinus, 2015/12/30
- [elpa] master aef3412 126/187: * async-bytecomp.el: emacs-24 indent., Michael Albinus, 2015/12/30
- [elpa] master d990787 127/187: * async-bytecomp.el (package--compile): load async-bytecomp., Michael Albinus, 2015/12/30
- [elpa] master 2f28229 134/187: Use cl-incf and don't compile test file., Michael Albinus, 2015/12/30
- [elpa] master f1b0fc5 125/187: * async-bytecomp.el: Be quiet when compiling for elpa., Michael Albinus, 2015/12/30
- [elpa] master 914a284 124/187: * async-bytecomp.el: Fix callback.,
Michael Albinus <=
- [elpa] master 8bb0876 130/187: Marked up file and buffer names, Michael Albinus, 2015/12/30
- [elpa] master 8464261 128/187: Changed symbol markup from Lisp idiom to Markdown, Michael Albinus, 2015/12/30
- [elpa] master 64d862f 129/187: Marked up 'nil' throughout, Michael Albinus, 2015/12/30
- [elpa] master 0ddafcf 131/187: Merge pull request #41 from PhilHudson/master, Michael Albinus, 2015/12/30
- [elpa] master a96e6d4 141/187: Fix doctring (#46)., Michael Albinus, 2015/12/30
- [elpa] master dc63b59 132/187: Documentation tweaks; mention DEFAULT-DIRECTORY, Michael Albinus, 2015/12/30
- [elpa] master 005714e 142/187: Don't run the loop when async-bytecomp-allowed-packages is nil., Michael Albinus, 2015/12/30
- [elpa] master bafc3fa 145/187: Allow setting async-bytecomp-get-allowed-pkgs to compile async all packages., Michael Albinus, 2015/12/30
- [elpa] master a921e5f 136/187: Use always the args 0 and force for byte-recompile-directory., Michael Albinus, 2015/12/30
- [elpa] master 3ba79b2 143/187: Use package--get-deps to get packages dependencies., Michael Albinus, 2015/12/30