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`.

1 files changed, 5 insertions, 5 deletions

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)")
   )