diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-20 21:48:30 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-20 21:48:30 +0000 |
| commit | 6564b17767d46022996d43647c176cf58735dc08 (patch) | |
| tree | 93978c404157734790da1175cc01f0873b8bb635 /lisp/cedet/srecode/compile.el | |
| parent | 8f52e94d5cad6e237ef3a0fe539f5c32c308a8be (diff) | |
| download | emacs-6564b17767d46022996d43647c176cf58735dc08.tar.gz | |
* cedet/srecode/compile.el (srecode-compile-split-code)
(srecode-compile-parse-inserter): Fix compiler warning.
Diffstat (limited to 'lisp/cedet/srecode/compile.el')
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) ) |