steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: correct highlighting of GENERIC# and MACRO:

db4
Björn Lindqvist 2013-12-01 00:27:51 +01:00 committed by John Benediktsson
parent d93a444c4c
commit 0e1d454e66
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
misc/fuel/factor-mode.el
View File

@ -101,12 +101,6 @@ source/docs/tests file. When set to false, you'll be asked only once."
:group 'factor-faces :group 'factor-faces
:group 'faces) :group 'faces)
(defface factor-font-lock-macro-word
'((t (:inherit font-lock-preprocessor-face)))
"macro words"
:group 'factor-faces
:group 'faces)
(defface factor-font-lock-postpone-body '((t (:inherit font-lock-comment-face))) (defface factor-font-lock-postpone-body '((t (:inherit font-lock-comment-face)))
"postponed form" "postponed form"
:group 'factor-faces :group 'factor-faces
@ -277,9 +271,9 @@ source/docs/tests file. When set to false, you'll be asked only once."
"\\_<\"[^>]\\([^\"\n]\\|\\\\\"\\)*\n") "\\_<\"[^>]\\([^\"\n]\\|\\\\\"\\)*\n")
(defconst factor-word-definition-regex (defconst factor-word-definition-regex
(format "\\_<\\(%s\\)?: +\\(%s\\)" (format "\\_<\\(%s\\)?[:#] +\\(%s\\)"
(regexp-opt (regexp-opt
'(":" "GENERIC" "DEFER" "HOOK" "MAIN" "MATH" "POSTPONE" '(":" "GENERIC" "DEFER" "HOOK" "MACRO" "MAIN" "MATH" "POSTPONE"
"SYNTAX" "TYPED" "TYPED:" "RENAME")) "SYNTAX" "TYPED" "TYPED:" "RENAME"))
"\\(\\sw\\|\\s_\\|\\s(\\|\\s)\\)+")) "\\(\\sw\\|\\s_\\|\\s(\\|\\s)\\)+"))