Mercurial > emacs
comparison lisp/cedet/srecode/compile.el @ 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 | 41dc39934483 |
| children | 801834237f9c |
comparison
equal
deleted
inserted
replaced
| 104500:99ab773d3664 | 104501:b5dbdf25d1c5 |
|---|---|
| 391 (match (substring what | 391 (match (substring what |
| 392 (match-beginning 0) | 392 (match-beginning 0) |
| 393 (match-end 0))) | 393 (match-end 0))) |
| 394 (namestart (match-end 0)) | 394 (namestart (match-end 0)) |
| 395 (junk (string-match regexend what namestart)) | 395 (junk (string-match regexend what namestart)) |
| 396 end tail name) | 396 end tail name key) |
| 397 ;; Add string to compiled output | 397 ;; Add string to compiled output |
| 398 (when (> (length prefix) 0) | 398 (when (> (length prefix) 0) |
| 399 (setq comp (cons prefix comp))) | 399 (setq comp (cons prefix comp))) |
| 400 (if (string= match "\n") | 400 (if (string= match "\n") |
| 401 ;; Do newline thingy. | 401 ;; Do newline thingy. |
| 460 | 460 |
| 461 (defun srecode-compile-parse-inserter (txt STATE) | 461 (defun srecode-compile-parse-inserter (txt STATE) |
| 462 "Parse the inserter TXT with the current STATE. | 462 "Parse the inserter TXT with the current STATE. |
| 463 Return an inserter object." | 463 Return an inserter object." |
| 464 (let ((key (aref txt 0)) | 464 (let ((key (aref txt 0)) |
| 465 name | |
| 465 ) | 466 ) |
| 466 (if (and (or (< key ?A) (> key ?Z)) | 467 (if (and (or (< key ?A) (> key ?Z)) |
| 467 (or (< key ?a) (> key ?z)) ) | 468 (or (< key ?a) (> key ?z)) ) |
| 468 (setq name (substring txt 1)) | 469 (setq name (substring txt 1)) |
| 469 (setq name txt | 470 (setq name txt |