From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 22 May 2022 18:07:14 +0000 (+0200)
Subject: Fix compilation warning in semantic-install-function-overrides
X-Git-Tag: emacs-29.0.90~1910^2~508
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f746d44decf9f991ee2a0a0529a2bba9ad12988;p=emacs.git

Fix compilation warning in semantic-install-function-overrides

* lisp/cedet/semantic/fw.el (semantic-install-function-overrides):
Suppress message about wrong number of arguments.
---

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
 ;;