procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-quote-optimization):
Fix confusing code.
This commit is contained in:
Stefan Monnier 2024-09-26 17:03:28 -04:00
parent 4591d93a8e
commit c95620ffbf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/emacs-lisp/pcase-tests.el
View file

@ -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))