From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 26 Sep 2024 21:03:28 +0000 (-0400)
Subject: (pcase-tests-quote-optimization): Fix warning
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3a3ef3659f99823b2d4c6994a2940cca88c3a8d;p=emacs.git

(pcase-tests-quote-optimization): Fix warning

* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-quote-optimization):
Fix confusing code.

(cherry picked from commit c95620ffbf8c2caebdb6a7aba7dbe9cd223fa2f4)
---

diff --git a/test/lisp/emacs-lisp/pcase-tests.el b/test/lisp/emacs-lisp/pcase-tests.el
index e777b71920c..5f2927d1aff 100644
--- a/test/lisp/emacs-lisp/pcase-tests.el
+++ b/test/lisp/emacs-lisp/pcase-tests.el
@@ -85,7 +85,7 @@
                                     (`(,_ . ,_) (BAR))
                                     ('(a b) (FOO))))))
   (let ((exp1 (macroexpand '(pcase EXP
-                              (`(`(,(or 'a1 'b1)) (FOO1)))
+                              (`((,(or 'a1 'b1))) (FOO1))
                               ('(c) (FOO2))
                               ('(d) (FOO3))))))
     (should (= 1 (with-temp-buffer (prin1 exp1 (current-buffer))