Permalink
Browse files

allow spaces in "<word>"

git-svn-id: http://beta.visl.sdu.dk/svn/visl/tools/vislcg3/trunk@8223 cb2587b3-b7ff-0310-8c81-a2a651690ada
  • Loading branch information...
1 parent 0c8f3ca commit b1fb7b153f6bedf858bb810e00ff2ac1aac9dda7 unhammer committed Apr 16, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 emacs/cg.el
View
@@ -74,7 +74,7 @@
(put 'cg-indentation 'safe-local-variable 'integerp)
(defvar cg-font-lock-keywords-1
- (let ((<word>? "\\(?:\"<\\(\\s_\\|\\sw\\)+>\"\\)?"))
+ (let ((<word>? "\\(?:\"<[^>]+>\"\\)?"))
`(("^[ \t]*\\(LIST\\|SET\\|TEMPLATE\\)[ \t]+\\(\\(\\sw\\|\\s_\\)+\\)"
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face))
@@ -83,8 +83,8 @@
("^[ \t]*\\(SECTION\\|AFTER-SECTIONS\\|BEFORE-SECTIONS\\|MAPPINGS\\|CONSTRAINTS\\|CORRECTIONS\\)"
1 font-lock-warning-face)
(,(concat "^[ \t]*" <word>? "[ \t]*\\(SETPARENT\\|SETCHILD\\|ADDRELATIONS?\\|SETRELATIONS?\\|REMRELATIONS?\\|SUBSTITUTE\\|ADD\\|MAP\\|SELECT\\|REMOVE\\)\\(\\(:\\(\\s_\\|\\sw\\)+\\)?\\)")
- (2 font-lock-keyword-face)
- (3 font-lock-variable-name-face))
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face))
("[ \t\n]\\([+-]\\)[ \t\n]"
1 font-lock-function-name-face)))
"Subdued level highlighting for CG mode.")

0 comments on commit b1fb7b1

Please sign in to comment.