* cedet/srecode/compile.el (srecode-compile-split-code)

(srecode-compile-parse-inserter): Fix compiler warning.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeb2e33..902532d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-20  Chong Yidong  <cyd@stupidchicken.com>
+
+       * cedet/srecode/compile.el (srecode-compile-split-code)
+       (srecode-compile-parse-inserter): Fix compiler warning.
+
 2009-09-20  Chong Yidong  <cyd@stupidchicken.com>
 
        * cedet/ede/speedbar.el (ede-speedbar-file-setup): Add autoload.

diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index f744b05..769c013 100644 (file)
--- a/lisp/cedet/srecode/compile.el
+++ b/lisp/cedet/srecode/compile.el
@@ -393,7 +393,7 @@ If END-NAME is specified, and the input string"
                                 (match-end 0)))
               (namestart (match-end 0))
               (junk (string-match regexend what namestart))
-              end tail name)
+              end tail name key)
          ;; Add string to compiled output
          (when (> (length prefix) 0)
            (setq comp (cons prefix comp)))
@@ -462,6 +462,7 @@ If END-NAME is specified, and the input string"
   "Parse the inserter TXT with the current STATE.
 Return an inserter object."
   (let ((key (aref txt 0))
+       name
        )
     (if (and (or (< key ?A) (> key ?Z))
             (or (< key ?a) (> key ?z)) )