[Emacs-diffs] master 7ddf29d: * lisp/cedet/semantic/symref/grep.el: Fix unused var warnings

[Stefan Monnier]

branch: master
commit 7ddf29d8f5ec0bcde166553134596a1150bda971
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/cedet/semantic/symref/grep.el: Fix unused var warnings
    
    * lisp/cedet/semantic/symref/grep.el (grepflags, greppattern): Declare.
    (semantic-symref-perform-search): Remove unused var `pat'.
---
 lisp/cedet/semantic/symref/grep.el |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/cedet/semantic/symref/grep.el 
b/lisp/cedet/semantic/symref/grep.el
index 4598a2c..3fa1c5f 100644
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -87,6 +87,9 @@ Optional argument MODE specifies the `major-mode' to test."
           (error "Customize `semantic-symref-filepattern-alist' for %s" 
major-mode))
          )))
 
+(defvar grepflags)
+(defvar greppattern)
+
 (defvar semantic-symref-grep-expand-keywords
   (condition-case nil
       (let* ((kw (copy-alist grep-expand-keywords))
@@ -98,7 +101,7 @@ Optional argument MODE specifies the `major-mode' to test."
     (error nil))
   "Grep expand keywords used when expanding templates for symref.")
 
-(defun semantic-symref-grep-use-template (rootdir filepattern grepflags 
greppattern)
+(defun semantic-symref-grep-use-template (rootdir filepattern flags pattern)
   "Use the grep template expand feature to create a grep command.
 ROOTDIR is the root location to run the `find' from.
 FILEPATTERN is a string representing find flags for searching file patterns.
@@ -106,7 +109,9 @@ GREPFLAGS are flags passed to grep, such as -n or -l.
 GREPPATTERN is the pattern used by grep."
   ;; We have grep-compute-defaults.  Let's use it.
   (grep-compute-defaults)
-  (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
+  (let* ((grepflags flags)
+         (greppattern pattern)
+         (grep-expand-keywords semantic-symref-grep-expand-keywords)
         (cmd (grep-expand-template
                (if (memq system-type '(windows-nt ms-dos))
                    ;; grep-find uses '--color=always' on MS-Windows
@@ -141,7 +146,6 @@ This shell should support pipe redirect syntax."
     )
   ;; Find the root of the project, and do a find-grep...
   (let* (;; Find the file patterns to use.
-        (pat (cdr (assoc major-mode semantic-symref-filepattern-alist)))
         (rootdir (semantic-symref-calculate-rootdir))
         (filepattern (semantic-symref-derive-find-filepatterns))
         ;; Grep based flags.