Mercurial > emacs
changeset 104501:b5dbdf25d1c5
* cedet/srecode/compile.el (srecode-compile-split-code)
(srecode-compile-parse-inserter): Fix compiler warning.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 20 Sep 2009 21:48:30 +0000 |
| parents | 99ab773d3664 |
| children | cdbbb89893d5 |
| files | lisp/ChangeLog lisp/cedet/srecode/compile.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)) )