FUEL: font-lock errors the same as tuples -- it looks much better
parent
31b17ff2f3
commit
531332acd8
|
@ -95,11 +95,6 @@ these lines in your .emacs:
|
||||||
:group 'factor-faces
|
:group 'factor-faces
|
||||||
:group 'faces)
|
:group 'faces)
|
||||||
|
|
||||||
(defface factor-font-lock-error-form '((t (:inherit font-lock-warning-face)))
|
|
||||||
"ERROR: ... ; form"
|
|
||||||
:group 'factor-faces
|
|
||||||
:group 'faces)
|
|
||||||
|
|
||||||
(defface factor-font-lock-parsing-word '((t (:inherit font-lock-keyword-face)))
|
(defface factor-font-lock-parsing-word '((t (:inherit font-lock-keyword-face)))
|
||||||
"parsing words"
|
"parsing words"
|
||||||
:group 'factor-faces
|
:group 'factor-faces
|
||||||
|
@ -330,9 +325,6 @@ these lines in your .emacs:
|
||||||
'("C-STRUCT" "C-UNION" "COM-INTERFACE" "MIXIN" "SINGLETON"
|
'("C-STRUCT" "C-UNION" "COM-INTERFACE" "MIXIN" "SINGLETON"
|
||||||
"SPECIALIZED-ARRAY" "STRUCT" "UNION-STRUCT")))
|
"SPECIALIZED-ARRAY" "STRUCT" "UNION-STRUCT")))
|
||||||
|
|
||||||
(defconst factor-error-regex
|
|
||||||
(factor-second-word-regex '("ERROR")))
|
|
||||||
|
|
||||||
(defconst factor-constructor-regex
|
(defconst factor-constructor-regex
|
||||||
"<[^ >]+>")
|
"<[^ >]+>")
|
||||||
|
|
||||||
|
@ -496,7 +488,6 @@ these lines in your .emacs:
|
||||||
(,factor-float-regex . 'factor-font-lock-number)
|
(,factor-float-regex . 'factor-font-lock-number)
|
||||||
(,factor-ratio-regex . 'factor-font-lock-ratio)
|
(,factor-ratio-regex . 'factor-font-lock-ratio)
|
||||||
(,factor-type-definition-regex 2 'factor-font-lock-type-name)
|
(,factor-type-definition-regex 2 'factor-font-lock-type-name)
|
||||||
(,factor-error-regex 2 'factor-font-lock-error-form)
|
|
||||||
(,factor-method-definition-regex (1 'factor-font-lock-type-name)
|
(,factor-method-definition-regex (1 'factor-font-lock-type-name)
|
||||||
(2 'factor-font-lock-word))
|
(2 'factor-font-lock-word))
|
||||||
(,factor-before-definition-regex (1 'factor-font-lock-type-name)
|
(,factor-before-definition-regex (1 'factor-font-lock-type-name)
|
||||||
|
@ -515,6 +506,7 @@ these lines in your .emacs:
|
||||||
"\\(%s:\\)[ \n]+%s\\(?:[ \n]+\\(<\\)[ \n]+%s\\)?"
|
"\\(%s:\\)[ \n]+%s\\(?:[ \n]+\\(<\\)[ \n]+%s\\)?"
|
||||||
(regexp-opt '("BUILTIN"
|
(regexp-opt '("BUILTIN"
|
||||||
"ENUM"
|
"ENUM"
|
||||||
|
"ERROR"
|
||||||
"PROTOCOL"
|
"PROTOCOL"
|
||||||
"STRUCT"
|
"STRUCT"
|
||||||
"TUPLE"
|
"TUPLE"
|
||||||
|
|
Loading…
Reference in New Issue