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

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index e5ab59e828..9f7ad1c1ca 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-04  Andreas Schwab  <[email protected]>
+
+	* url-future.el (url-future-test): Fix scope of `saver'.
+
 2011-06-01  Glenn Morris  <[email protected]>
 
 	* 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 334c4fa912..ac85a3cec4 100644
--- 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)))