* lisp/url/url-future.el (url-future-test): Fix scope of `saver'.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index e5ab59e828fd196e55071dd7d1019c9e350d20f5..9f7ad1c1ca5406d9c2732e4723e3012d9bfa42c5 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-04  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * url-future.el (url-future-test): Fix scope of `saver'.
+
 2011-06-01  Glenn Morris  <rgm@gnu.org>
 
        * url-queue.el (url-queue-parallel-processes, url-queue-timeout):

diff --git a/lisp/url/url-future.el b/lisp/url/url-future.el
index 334c4fa91264a8b36c67e73c9bbe698f43cf1fe0..ac85a3cec4714f55a0efc4fb2aac064726f7cf62 100644 (file)
--- a/lisp/url/url-future.el
+++ b/lisp/url/url-future.el
@@ -96,7 +96,8 @@
     (url-future-finish url-future 'cancel)))
 
 (ert-deftest url-future-test ()
-  (let* ((text "running future")
+  (let* (saver
+        (text "running future")
          (good (make-url-future :value (lambda () (format text))
                                 :callback (lambda (f) (set 'saver f))))
          (bad (make-url-future :value (lambda () (/ 1 0))
@@ -104,8 +105,7 @@
          (tocancel (make-url-future :value (lambda () (/ 1 0))
                                     :callback (lambda (f) (set 'saver f))
                                     :errorback (lambda (&rest d)
-                                                 (set 'saver d))))
-         saver)
+                                                 (set 'saver d)))))
     (should (equal good (url-future-call good)))
     (should (equal good saver))
     (should (equal text (url-future-value good)))