From f21d634a13ab0c87fb1da0b628947dd6ef8e79b7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 30 Nov 2013 21:39:24 +0100 Subject: [PATCH] FUEL: highlight predicates --- misc/fuel/factor-mode.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el index 4785cb3fb2..19f145b2b3 100644 --- a/misc/fuel/factor-mode.el +++ b/misc/fuel/factor-mode.el @@ -216,7 +216,7 @@ source/docs/tests file. When set to false, you'll be asked only once." "M:" "M::" "MACRO:" "MACRO::" "MAIN:" "MATH:" "MEMO:" "MEMO:" "METHOD:" "MIXIN:" "NAN:" - "POSTPONE:" "PREDICATE:" "PRIMITIVE:" "PRIVATE>" "PROTOCOL:" "PROVIDE:" + "POSTPONE:" "PRIMITIVE:" "PRIVATE>" "PROTOCOL:" "PROVIDE:" "QUALIFIED-WITH:" "QUALIFIED:" "read-only" "RENAME:" "REQUIRE:" "REQUIRES:" "SINGLETON:" "SINGLETONS:" "SLOT:" "SPECIALIZED-ARRAY:" @@ -475,7 +475,11 @@ source/docs/tests file. When set to false, you'll be asked only once." nil (1 'factor-font-lock-symbol nil t) (2 'factor-font-lock-symbol nil t))) - + ;; Highlights predicates + (,(format "\\(PREDICATE\\):[ \n]%s[ \n]<[ \n]%s" symbol symbol) + (1 'factor-font-lock-parsing-word) + (2 'factor-font-lock-type-name) + (3 'factor-font-lock-type-name)) ;; Highlights alien function definitions. Types in stack effect ;; declarations are given a bold face. (,(format "\\(\\(?:GL-\\)?FUNCTION\\|CALLBACK\\):[ \n]+%s[ \n]+%s[ \n]+" symbol symbol)