From 98ee89a7525cd1216c663de81445bfaa680e5b48 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 12:39:04 -0800 Subject: [PATCH] Remove an unneeded defvar --- test/lisp/use-package/use-package-tests.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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))))) -- 2.39.2