[elpa] master ac1b896 040/187: Minor touches

[Michael Albinus]

branch: master
commit ac1b89660ae4168db0487cd3872742bcc7f90888
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>

    Minor touches
---
 async.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/async.el b/async.el
index 8b942b4..429d6ec 100644
--- a/async.el
+++ b/async.el
@@ -158,8 +158,8 @@ as follows:
 (defun async-ready (future)
   "Query a FUTURE to see if the ready is ready -- i.e., if no blocking
 would result from a call to `async-get' on that FUTURE."
-  (with-current-buffer (process-buffer future)
-    (and (memq (process-status future) '(exit signal))
+  (and (memq (process-status future) '(exit signal))
+       (with-current-buffer (process-buffer future)
          async-callback-value-set)))
 
 (defun async-wait (future)
@@ -171,8 +171,8 @@ would result from a call to `async-get' on that FUTURE."
   "Get the value from an asynchronously function when it is ready.
 FUTURE is returned by `async-start' or `async-start-process' when
 its FINISH-FUNC is nil."
+  (async-wait future)
   (with-current-buffer (process-buffer future)
-    (async-wait future)
     (async-handle-result #'identity async-callback-value (current-buffer))))
 
 (defun async-message-p (value)