From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 22 Aug 2024 05:48:20 +0000 (+0200)
Subject: * test/lisp/use-package/use-package-tests.el: Remove some cruft.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b43fb60003e08d6e3353a853d56044089268e536;p=emacs.git

* test/lisp/use-package/use-package-tests.el: Remove some cruft.
---

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index 76de29be471..90d9be308b2 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -70,32 +70,6 @@
   `(should (pcase (expand-minimally ,form)
              ,@(mapcar #'(lambda (x) (list x t)) value))))
 
-(defun fix-expansion ()
-  (interactive)
-  (save-excursion
-    (unless (looking-at "(match-expansion")
-      (backward-up-list))
-    (when (looking-at "(match-expansion")
-      (re-search-forward "(\\(use-package\\|bind-key\\)")
-      (goto-char (match-beginning 0))
-      (let ((decl (read (current-buffer))))
-        (kill-sexp)
-        (let (vars)
-          (catch 'exit
-            (save-excursion
-              (while (ignore-errors (backward-up-list) t)
-                (when (looking-at "(let\\s-+")
-                  (goto-char (match-end 0))
-                  (setq vars (read (current-buffer)))
-                  (throw 'exit t)))))
-          (eval
-           `(let (,@ (append vars
-                             '((use-package-verbose 'errors)
-                               (use-package-expand-minimally t))))
-              (insert ?\n ?\` (pp-to-string (macroexpand-1 decl))))))))))
-
-(bind-key "C-c C-u" #'fix-expansion emacs-lisp-mode-map)
-
 (ert-deftest use-package-test-recognize-function ()
   (should (use-package-recognize-function nil t))
   (should-not (use-package-recognize-function nil))