From 9d0f5909afc562dc2bdda04a95f64ee25a628185 Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Fri, 30 Dec 2022 13:48:47 +0100 Subject: 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`. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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)) -- cgit v1.2.3