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

* lisp/emacs-lisp/pcase.el (pcase--expand-\`): Improve warning message

Browse source 
And also move the warning "out of the way" so it doesn't
confuse optimizations.
This commit is contained in:
Stefan Monnier 2024-09-26 16:40:54 -04:00
parent 37bed70f4c
commit 4591d93a8e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/pcase.el
View file

@ -1172,12 +1172,13 @@ The predicate is the logical-AND of:
(upatd (pcase--expand-\` (cdr qpat))))
(if (and (eq (car-safe upata) 'quote) (eq (car-safe upatd) 'quote))
`'(,(cadr upata) . ,(cadr upatd))
`(and ,@(when (eq (car qpat) '\`)
`((guard ,(macroexp-warn-and-return
"Nested ` are not supported" t nil nil qpat))))
(pred consp)
`(and (pred consp)
(app car-safe ,upata)
(app cdr-safe ,upatd)))))
(app cdr-safe ,upatd)
,@(when (eq (car qpat) '\`)
`((guard ,(macroexp-warn-and-return
"Nested ` are not supported in Pcase patterns"
t nil nil qpat))))))))
((or (stringp qpat) (numberp qpat) (symbolp qpat)) `',qpat)
;; In all other cases just raise an error so we can't break
;; backward compatibility when adding \` support for other