From 6564b17767d46022996d43647c176cf58735dc08 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 20 Sep 2009 21:48:30 +0000 Subject: [PATCH] * cedet/srecode/compile.el (srecode-compile-split-code) (srecode-compile-parse-inserter): Fix compiler warning. --- lisp/ChangeLog | 5 +++++ lisp/cedet/srecode/compile.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * cedet/srecode/compile.el (srecode-compile-split-code) + (srecode-compile-parse-inserter): Fix compiler warning. + 2009-09-20 Chong Yidong * 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)) ) -- 2.39.5