From 914a284df316bee79794b7a1c11c6a8c03d2da79 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Tue, 30 Sep 2014 07:36:24 +0200 Subject: [PATCH] * 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 file changed, 14 insertions(+), 14 deletions(-) diff --git a/async-bytecomp.el b/async-bytecomp.el index 5279cb77e..3c25df82e 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) -- 2.39.2