diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-12-30 13:48:47 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-12-30 21:03:34 +0100 |
| commit | 9d0f5909afc562dc2bdda04a95f64ee25a628185 (patch) | |
| tree | 40ad83e18f01acb152c0f2e5b97605c5fc68fb8f /lisp/emacs-lisp/bytecomp.el | |
| parent | a77204c64659147794b1c9f4114091a257205a49 (diff) | |
| download | emacs-9d0f5909afc562dc2bdda04a95f64ee25a628185.tar.gz emacs-9d0f5909afc562dc2bdda04a95f64ee25a628185.tar.bz2 emacs-9d0f5909afc562dc2bdda04a95f64ee25a628185.zip | |
Correct suppression of suspicious eq type warning
* lisp/emacs-lisp/byte-run.el (with-suppressed-warnings):
* lisp/emacs-lisp/bytecomp.el (bytecomp--warn-dodgy-eq-arg):
Suppress warning using (suspicious FUNCTION), where FUNCTION is
not always `eq`.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a41e076f9b0..e314976fc1a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -5526,7 +5526,7 @@ and corresponding effects." (macroexp-warn-and-return (format "`%s' called with literal %s that may never match (%s)" (car form) type parenthesis) - form '(suspicious eq) t)) + form (list 'suspicious (car form)) t)) (defun bytecomp--check-eq-args (form &optional a b &rest _ignore) (let* ((number-ok (eq (car form) 'eql)) |