# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1253483310 0
# Node ID b5dbdf25d1c5fa31b67303f429bcb33840d0844e
# Parent  99ab773d3664b67695ceb3d6d2c4484c9ccfa26c
* cedet/srecode/compile.el (srecode-compile-split-code)
(srecode-compile-parse-inserter): Fix compiler warning.

diff -r 99ab773d3664 -r b5dbdf25d1c5 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 20 21:08:22 2009 +0000
+++ b/lisp/ChangeLog	Sun Sep 20 21:48:30 2009 +0000
@@ -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 -r 99ab773d3664 -r b5dbdf25d1c5 lisp/cedet/srecode/compile.el
--- a/lisp/cedet/srecode/compile.el	Sun Sep 20 21:08:22 2009 +0000
+++ b/lisp/cedet/srecode/compile.el	Sun Sep 20 21:48:30 2009 +0000
@@ -393,7 +393,7 @@
 				 (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 @@
   "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)) )