From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 20 Sep 2009 21:48:30 +0000 (+0000)
Subject: * cedet/srecode/compile.el (srecode-compile-split-code)
X-Git-Tag: emacs-pretest-23.1.90~1091^2~22
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6564b17767d46022996d43647c176cf58735dc08;p=emacs.git

* cedet/srecode/compile.el (srecode-compile-split-code)
(srecode-compile-parse-inserter): Fix compiler warning.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeb2e331bd6..902532d37d1 100644
--- 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 f744b052162..769c0137e68 100644
--- 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)) )