master 3f746d44de 2/2: Fix compilation warning in semantic-install-function-overrides

[Lars Ingebrigtsen]

branch: master
commit 3f746d44decf9f991ee2a0a0529a2bba9ad12988
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 14ed3e97ed..c60778a34d 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
 ;;