mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Fix previous warning suppression change

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-emit-callargs-warn)
(byte-compile-subr-wrong-args):
* lisp/emacs-lisp/byte-run.el (with-suppressed-warnings):
* lisp/cedet/semantic/fw.el (semantic-install-function-overrides):
The `wrong-args' warning is really called `callargs'.
This commit is contained in:
Lars Ingebrigtsen 2022-05-22 20:14:03 +02:00
parent 3f746d44de
commit f14f6180b7
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/cedet/semantic/fw.el
View file

@ -278,7 +278,7 @@ OVERRIDES will be installed globally for this major mode. If MODE is
nil, OVERRIDES will be installed locally in the current buffer. This
later installation should be done in MODE hook."
(declare (obsolete define-mode-local-override "29.1"))
(with-suppressed-warnings ((wrong-args mode-local-bind))
(with-suppressed-warnings ((callargs mode-local-bind))
(mode-local-bind
;; Add the semantic- prefix to OVERLOAD short names.
(mapcar

2
lisp/emacs-lisp/byte-run.el
View file

@ -637,7 +637,7 @@ The warnings that can be suppressed are a subset of the warnings
in `byte-compile-warning-types'; see the variable
`byte-compile-warnings' for a fuller explanation of the warning
types. The types that can be suppressed with this macro are
`free-vars', `callargs', `redefine', `obsolete', `wrong-args',
`free-vars', `callargs', `redefine', `obsolete',
`interactive-only', `lexical', `mapcar', `constants' and
`suspicious'.

4
lisp/emacs-lisp/bytecomp.el
View file

@ -1494,7 +1494,7 @@ when printing the error message."
byte-compile-unresolved-functions)))))
(defun byte-compile-emit-callargs-warn (name actual-args min-args max-args)
(when (byte-compile-warning-enabled-p 'wrong-args name)
(when (byte-compile-warning-enabled-p 'callargs name)
(byte-compile-warn-x
name
"`%s' called with %d argument%s, but %s %s"
@ -3839,7 +3839,7 @@ If it is nil, then the handler is \"byte-compile-SYMBOL.\""
(defun byte-compile-subr-wrong-args (form n)
(when (byte-compile-warning-enabled-p 'wrong-args (car form))
(when (byte-compile-warning-enabled-p 'callargs (car form))
(byte-compile-warn-x (car form)
"`%s' called with %d arg%s, but requires %s"
(car form) (length (cdr form))