diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2010-10-10 15:50:39 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2010-10-10 15:50:39 +0000 |
| commit | 37674bf9bbc43da03789a1f47dcedccc685401e5 (patch) | |
| tree | 9bf9dd9091041f4eb4f0c940f929681b30027761 /coq/coq-syntax.el | |
| parent | cff03dba4f5058a91557abfb5fc42bee7f0a5879 (diff) | |
coq-generic-expression: fix this to match symbols, not merely words.
Otherwise we only see first word of symbols using underscores!
Diffstat (limited to 'coq/coq-syntax.el')
| -rw-r--r-- | coq/coq-syntax.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/coq/coq-syntax.el b/coq/coq-syntax.el index f5253cc2..7b5306d3 100644 --- a/coq/coq-syntax.el +++ b/coq/coq-syntax.el @@ -1028,7 +1028,9 @@ Group number 1 matches the name of the library which is required.") (defconst coq-generic-expression (mapcar (lambda (kw) (list (capitalize kw) - (concat "\\<" kw "\\>" "\\s-+\\(\\w+\\)\\W" ) +; (concat "\\<" kw "\\>" "\\s-+\\(\\w+\\)\\W" ) +; da: that seems buggy (kw already in \\<,\\>; want symbols, not words) + (concat kw "\\s-+\\(\\_<\\(?:\\sw\\|\\s_\\)+\\_>\\)") 1)) (append coq-keywords-decl coq-keywords-defn coq-keywords-goal))) |