diff options
| author | Mattias Engdegård | 2024-06-05 18:28:59 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2024-06-06 10:10:16 +0200 |
| commit | 32bfc825a7e4848f2bf28987ab5259d4031ff6aa (patch) | |
| tree | 84918d2cbb09dbe8c157146036a6a78bdbcc1d83 | |
| parent | 7fbafb9d9527f3888469dead8309fd748d2fb9e0 (diff) | |
| download | emacs-32bfc825a7e4848f2bf28987ab5259d4031ff6aa.tar.gz 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.
| -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." | |||
| 1643 | nargs (if (= nargs 1) "" "s") | 1643 | nargs (if (= nargs 1) "" "s") |
| 1644 | nfields (if (= nfields 1) "" "s")))))) | 1644 | nfields (if (= nfields 1) "" "s")))))) |
| 1645 | 1645 | ||
| 1646 | (dolist (elt '(format message format-message error)) | 1646 | (dolist (elt '( format message format-message message-box message-or-box |
| 1647 | warn error user-error)) | ||
| 1647 | (put elt 'byte-compile-format-like t)) | 1648 | (put elt 'byte-compile-format-like t)) |
| 1648 | 1649 | ||
| 1649 | ;; Warn if the function or macro is being redefined with a different | 1650 | ;; Warn if the function or macro is being redefined with a different |