master 9451ea0: * lisp/cedet/semantic/decorate/: Use lexical-binding in all files

[Stefan Monnier]

branch: master
commit 9451ea0a05612ec95a01c8c0b28d851176ed8b43
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/cedet/semantic/decorate/: Use lexical-binding in all files
    
    * lisp/cedet/semantic/decorate/include.el
    (semantic-decoration-fileless-include-describe): Remove unused var `mm`.
    * lisp/cedet/semantic/decorate/mode.el: Use lexical-binding.
---
 lisp/cedet/semantic/decorate/include.el | 8 ++++----
 lisp/cedet/semantic/decorate/mode.el    | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/cedet/semantic/decorate/include.el 
b/lisp/cedet/semantic/decorate/include.el
index ee7fad1..851a2c4 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -1,4 +1,4 @@
-;;; semantic/decorate/include.el --- Decoration modes for include statements
+;;; semantic/decorate/include.el --- Decoration modes for include statements  
-*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
 
@@ -535,7 +535,7 @@ Argument EVENT is the mouse clicked event."
   (interactive)
   (let* ((tag (semantic-current-tag))
         (table (semanticdb-find-table-for-include tag (current-buffer)))
-        (mm major-mode))
+        ) ;; (mm major-mode)
     (with-output-to-temp-buffer (help-buffer) ; "*Help*"
       (help-setup-xref (list #'semantic-decoration-fileless-include-describe)
                       (called-interactively-p 'interactive))
@@ -793,7 +793,7 @@ any decorated referring includes.")
   (let ((table (oref obj table)))
     ;; This is a hack.  Add in something better?
     (semanticdb-notify-references
-     table (lambda (tab me)
+     table (lambda (tab _me)
             (semantic-decoration-unparsed-include-refrence-reset tab)
             ))
     ))
@@ -805,7 +805,7 @@ any decorated referring includes.")
       (semantic-reset cache)))
 
 (cl-defmethod semanticdb-synchronize ((cache 
semantic-decoration-unparsed-include-cache)
-                                  new-tags)
+                                  _new-tags)
   "Synchronize a CACHE with some NEW-TAGS."
   (semantic-reset cache))
 
diff --git a/lisp/cedet/semantic/decorate/mode.el 
b/lisp/cedet/semantic/decorate/mode.el
index 884b066..89cc930 100644
--- a/lisp/cedet/semantic/decorate/mode.el
+++ b/lisp/cedet/semantic/decorate/mode.el
@@ -1,4 +1,4 @@
-;;; semantic/decorate/mode.el --- Minor mode for decorating tags
+;;; semantic/decorate/mode.el --- Minor mode for decorating tags  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2000-2005, 2007-2021 Free Software Foundation, Inc.
 
@@ -358,12 +358,12 @@ Return non-nil if the decoration style is enabled."
          :selected `(semantic-decoration-style-enabled-p ,(car style))
          ))
 
-(defun semantic-build-decoration-mode-menu (&rest ignore)
+(defun semantic-build-decoration-mode-menu (&rest _ignore)
   "Create a menu listing all the known decorations for toggling.
 IGNORE any input arguments."
   (or semantic-decoration-menu-cache
       (setq semantic-decoration-menu-cache
-           (mapcar 'semantic-decoration-build-style-menu
+           (mapcar #'semantic-decoration-build-style-menu
                    (reverse semantic-decoration-styles))
            )))