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 14ed3e97ed552363ae815b23a4afe11b12c3227c..c60778a34dab9e1cc2ff720ed8a4ec631ecc7318 100644 (file)
--- 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))))
 \f
 ;;; User Interrupt handling
 ;;