From 9f856e4cd095c24cf4e6cadbc04efaf533e59f37 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 13 May 2023 13:49:07 +0200 Subject: Use `mutate-constant` as warning identifier * etc/NEWS: * lisp/emacs-lisp/byte-run.el (with-suppressed-warnings): * lisp/emacs-lisp/bytecomp.el (byte-compile-warnings) (byte-compile-form): * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-test--with-suppressed-warnings): Use the new warning name `mutate-constant` instead of using the somewhat overloaded `suspicious`. --- test/lisp/emacs-lisp/bytecomp-tests.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'test/lisp/emacs-lisp') diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 9136a6cd9b3..a8809bda81c 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -1522,31 +1522,31 @@ literals (Bug#20852)." (test-suppression '(defun zot () (setcar '(1 2) 3)) - '((suspicious setcar)) + '((mutate-constant setcar)) "Warning: `setcar' on constant list (arg 1)") (test-suppression '(defun zot () (aset [1 2] 1 3)) - '((suspicious aset)) + '((mutate-constant aset)) "Warning: `aset' on constant vector (arg 1)") (test-suppression '(defun zot () (aset "abc" 1 ?d)) - '((suspicious aset)) + '((mutate-constant aset)) "Warning: `aset' on constant string (arg 1)") (test-suppression '(defun zot (x y) (nconc x y '(1 2) '(3 4))) - '((suspicious nconc)) + '((mutate-constant nconc)) "Warning: `nconc' on constant list (arg 3)") (test-suppression '(defun zot () (put-text-property 0 2 'prop 'val "abc")) - '((suspicious put-text-property)) + '((mutate-constant put-text-property)) "Warning: `put-text-property' on constant string (arg 5)") ) -- cgit v1.2.1