From: John Wiegley <johnw@newartisans.com>
Date: Thu, 30 Nov 2017 20:39:04 +0000 (-0800)
Subject: Remove an unneeded defvar
X-Git-Tag: emacs-29.0.90~1306^2~15^2~214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98ee89a7525cd1216c663de81445bfaa680e5b48;p=emacs.git

Remove an unneeded defvar
---

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index f45c4a38462..29a0b99512e 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -76,8 +76,6 @@
 ;;   (should (equal (macroexpand (use-package))
 ;;                  '())))
 
-(defvar tried-to-install)
-
 (ert-deftest use-package-test/:ensure ()
   (let ((use-package-always-ensure nil))
     (match-expansion
@@ -160,11 +158,11 @@
           (add-to-list 'load-path ,(pred stringp)))
         (require 'foo nil 'nil))))
 
-  (flet ((use-package-ensure-elpa
-          (name ensure state context &optional no-refresh)
-          (when ensure
-            (setq tried-to-install name))))
-    (let (tried-to-install)
+  (let (tried-to-install)
+    (flet ((use-package-ensure-elpa
+            (name ensure state context &optional no-refresh)
+            (when ensure
+              (setq tried-to-install name))))
       (eval '(use-package foo :ensure t))
       (should (eq tried-to-install 'foo)))))