From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 12 Jan 2023 14:38:15 +0000 (+0100)
Subject: * lisp/emacs-lisp/bytecomp.el (format-message): Warn on bad arity.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcaa63ac506dc070b29db13326801ff978e8b00d;p=emacs.git

* lisp/emacs-lisp/bytecomp.el (format-message): Warn on bad arity.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 23d02ba92cf..fb4b73b1c14 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1575,7 +1575,7 @@ extra args."
 	 "`%s' called with %d args to fill %d format field(s)" (car form)
 	 nargs nfields)))))
 
-(dolist (elt '(format message error))
+(dolist (elt '(format message format-message error))
   (put elt 'byte-compile-format-like t))
 
 (defun byte-compile--suspicious-defcustom-choice (type)