From 3f746d44decf9f991ee2a0a0529a2bba9ad12988 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 22 May 2022 20:07:14 +0200 Subject: [PATCH] Fix compilation warning in semantic-install-function-overrides * lisp/cedet/semantic/fw.el (semantic-install-function-overrides): Suppress message about wrong number of arguments. --- lisp/cedet/semantic/fw.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index 14ed3e97ed5..c60778a34da 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -278,17 +278,18 @@ 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")) - (mode-local-bind - ;; Add the semantic- prefix to OVERLOAD short names. - (mapcar - (lambda (e) - (let ((name (symbol-name (car e)))) - (if (string-match "^semantic-" name) - e - (cons (intern (format "semantic-%s" name)) (cdr e))))) - overrides) - (list 'constant-flag (not transient) - 'override-flag t))) + (with-suppressed-warnings ((wrong-args mode-local-bind)) + (mode-local-bind + ;; Add the semantic- prefix to OVERLOAD short names. + (mapcar + (lambda (e) + (let ((name (symbol-name (car e)))) + (if (string-match "^semantic-" name) + e + (cons (intern (format "semantic-%s" name)) (cdr e))))) + overrides) + (list 'constant-flag (not transient) + 'override-flag t)))) ;;; User Interrupt handling ;; -- 2.39.2