branch: externals/async
commit a1103bbe42ffea5ec1082b8c5c30d1cdda86187d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Simplify binding error-data
---
async-package.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/async-package.el b/async-package.el
index 64e50ad133..fb23558b1a 100644
--- a/async-package.el
+++ b/async-package.el
@@ -99,11 +99,10 @@ Argument ERROR-FILE is the file where errors are logged, if
some."
(format
"%S:\n Please refresh package list before %s"
err ,action-string)))))
- (let (error-data)
- (when (get-buffer byte-compile-log-buffer)
- (setq error-data (with-current-buffer byte-compile-log-buffer
- (buffer-substring-no-properties
- (point-min) (point-max))))
+ (when (get-buffer byte-compile-log-buffer)
+ (let ((error-data (with-current-buffer byte-compile-log-buffer
+ (buffer-substring-no-properties
+ (point-min) (point-max)))))
(unless (string= error-data "")
(with-temp-file ,log-file
(erase-buffer)
