bug#57183: [PATCH] fix regression in 0db604a914

[Yury Kholodkov]

diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index d60eedbc9c..3a966957ec 100644
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -220,10 +220,10 @@ SUPPRESS-LIST is the list of kinds of warnings
to suppress."
              (?q "quit and do nothing"))))
     (?y
      (customize-save-variable 'warning-suppress-log-types
-                              (cons type warning-suppress-log-types)))
+                              (cons (list type) warning-suppress-log-types)))
     (?n
      (customize-save-variable 'warning-suppress-types
-                              (cons type warning-suppress-types)))
+                              (cons (list type) warning-suppress-types)))
     (_ (message "Exiting"))))

 ;;;###autoload