* 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 23d02ba92cf5a96799c6055c9e9da2c17e265e01..fb4b73b1c144432c73d2379cab01cd3da0624d82 100644 (file)
--- 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)