diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2024-04-06 11:13:34 -0400 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2024-04-06 11:13:34 -0400 |
| commit | 5f89da1423bfa17717c2237130bc9a6ff1a57394 (patch) | |
| tree | d3f3433676b1f27643b93b4a90ca4d1ee8259c77 /lisp/emacs-lisp/warnings.el | |
| parent | eaec6cc3d7cc247377524225f2a51407a4cb20c7 (diff) | |
| parent | 46b8746b38e26ae3f216f57f231f5fc8aec22873 (diff) | |
| download | emacs-5f89da1423bfa17717c2237130bc9a6ff1a57394.tar.gz emacs-5f89da1423bfa17717c2237130bc9a6ff1a57394.tar.bz2 emacs-5f89da1423bfa17717c2237130bc9a6ff1a57394.zip | |
Merge from origin/emacs-29
46b8746b38e Fix warning-suppress for list type "warning type"
910ea5f1e55 Make object init more robust (bug#69571)
Diffstat (limited to 'lisp/emacs-lisp/warnings.el')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 6c62a56e99c..8b43c6a8726 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -225,10 +225,14 @@ 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 (list type) warning-suppress-log-types))) + (if (consp type) + (cons type warning-suppress-log-types) + (cons (list type) warning-suppress-log-types)))) (?n (customize-save-variable 'warning-suppress-types - (cons (list type) warning-suppress-types))) + (if (consp type) + (cons type warning-suppress-types) + (cons (list type) warning-suppress-types)))) (_ (message "Exiting")))) ;;;###autoload |