diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-12-29 12:00:50 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-12-29 12:24:47 +0100 |
| commit | 2de25accaf31aef643557ec476041c770fc7ac15 (patch) | |
| tree | 90140c1157c416cfbc336028bf3ad809c3a26005 /test/lisp/emacs-lisp | |
| parent | 1480865e641b06d570f5ab56011f8e3e5481da7d (diff) | |
| download | emacs-2de25accaf31aef643557ec476041c770fc7ac15.tar.gz | |
Warn about `condition-case' with quoted condition names
* lisp/emacs-lisp/bytecomp.el (byte-compile-condition-case):
Add warning.
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-warn-quoted-condition): Add test case.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 0d62283c04a..61f4998f6ba 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -924,6 +924,11 @@ byte-compiled. Run with dynamic binding." (ert-deftest bytecomp-warn-quoted-condition () (bytecomp--with-warning-test + "Warning: `condition-case' condition should not be quoted: 'arith-error" + '(condition-case nil + (abc) + ('arith-error "ugh"))) + (bytecomp--with-warning-test "Warning: `ignore-error' condition argument should not be quoted: 'error" '(ignore-error 'error (abc)))) |