diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-09-24 14:01:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-09-24 14:01:26 -0400 |
| commit | e8f5df5175170d36f526e46b63b3d428bb9a8950 (patch) | |
| tree | 14d3b8ebf4c282f5157ab84f11012dff8d8368d4 /lisp/emacs-lisp/testcover.el | |
| parent | ce601de1cafa65d6e6f5ba52e9c794873d164fbd (diff) | |
| download | emacs-e8f5df5175170d36f526e46b63b3d428bb9a8950.tar.gz emacs-e8f5df5175170d36f526e46b63b3d428bb9a8950.tar.bz2 emacs-e8f5df5175170d36f526e46b63b3d428bb9a8950.zip | |
Declare nested backquotes unsupported in Pcase patterns (bug#72328)
The current behavior is inconsistent with that of the normal backquote
macro, so to avoid surprises, warn about the use of nested backquotes.
* lisp/emacs-lisp/pcase.el (pcase--expand-\`): Warn about nested backquotes.
* lisp/emacs-lisp/testcover.el (testcover-analyze-coverage)
(testcover-analyze-coverage-wrapped-form): Avoid nested backquotes
Diffstat (limited to 'lisp/emacs-lisp/testcover.el')
| -rw-r--r-- | lisp/emacs-lisp/testcover.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index fb4a2a82d07..d916ca0f76a 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/lisp/emacs-lisp/testcover.el @@ -469,7 +469,7 @@ or return multiple values." ;; form to look odd. See bug#25316. 'testcover-1value) - (`(\` ,bq-form) + (`(,'\` ,bq-form) (testcover-analyze-coverage-backquote-form bq-form)) ((or 't 'nil (pred keywordp)) @@ -548,7 +548,7 @@ FORM is treated as if it will be evaluated." 'testcover-1value)) ((pred atom) 'testcover-1value) - (`(\` ,bq-form) + (`(,'\` ,bq-form) (testcover-analyze-coverage-backquote-form bq-form)) (`(defconst ,sym ,val . ,_) (push sym testcover-module-constants) |