diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2024-06-05 18:28:59 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2024-06-06 10:10:16 +0200 |
commit | 32bfc825a7e4848f2bf28987ab5259d4031ff6aa (patch) | |
tree | 84918d2cbb09dbe8c157146036a6a78bdbcc1d83 /lisp/emacs-lisp | |
parent | 7fbafb9d9527f3888469dead8309fd748d2fb9e0 (diff) | |
download | emacs-32bfc825a7e4848f2bf28987ab5259d4031ff6aa.tar.gz emacs-32bfc825a7e4848f2bf28987ab5259d4031ff6aa.tar.bz2 emacs-32bfc825a7e4848f2bf28987ab5259d4031ff6aa.zip |
Format string warnings for more functions (bug#71379)
* lisp/emacs-lisp/bytecomp.el (byte-compile-format-like):
Add message-box, message-or-box, warn and user-error.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 03cfbe6f4c9..d59e89bd7de 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1643,7 +1643,8 @@ extra args." nargs (if (= nargs 1) "" "s") nfields (if (= nfields 1) "" "s")))))) -(dolist (elt '(format message format-message error)) +(dolist (elt '( format message format-message message-box message-or-box + warn error user-error)) (put elt 'byte-compile-format-like t)) ;; Warn if the function or macro is being redefined with a different |