Mercurial > emacs

comparison lisp/cedet/semantic/grammar.el @ 105650:0412ef1b2214

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(semantic-grammar--lex-delim-spec): All errors should have messages.
author Glenn Morris <rgm@gnu.org>
date Sat, 17 Oct 2009 03:16:38 +0000
parents 7f4c7f5c0eba
children 3fe6da4a95a9
comparison
equal deleted inserted replaced
105649:8606d8028876 105650:0412ef1b2214
688 (delim-spec (read))) 688 (delim-spec (read)))
689 (if (and (consp delim-spec) 689 (if (and (consp delim-spec)
690 (car delim-spec) (symbolp (car delim-spec)) 690 (car delim-spec) (symbolp (car delim-spec))
691 (cadr delim-spec) (symbolp (cadr delim-spec))) 691 (cadr delim-spec) (symbolp (cadr delim-spec)))
692 delim-spec 692 delim-spec
693 (error))) 693 (error "Invalid delimiter")))
694 (error 694 (error
695 (error "Invalid delimiters specification %s in block token %s" 695 (error "Invalid delimiters specification %s in block token %s"
696 (cdr block-spec) (car block-spec))))) 696 (cdr block-spec) (car block-spec)))))
697 697
698 (defun semantic-grammar--lex-block-specs () 698 (defun semantic-grammar--lex-block-specs ()