From 66f90b13486f3d1e4f986c9746467cf8dcafdaad Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 24 Sep 2015 21:19:25 +0300 Subject: Add general font-lock keywords for all implementations Move general RNRS/SRFI keywords from "geiser-chicken" to "geiser-syntax". --- elisp/geiser-chicken.el | 42 ++++++++++++++++++++++++++++++------------ 1 file changed, 30 insertions(+), 12 deletions(-) (limited to 'elisp/geiser-chicken.el') diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 135d345..59894bf 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -26,19 +26,37 @@ (eval-when-compile (require 'cl)) - (defconst geiser-chicken-builtin-keywords - '("and-let*" "assume" "compiler-typecase" "cond-expand" "condition-case" - "cut" "cute" "declare" "define-constant" "define-inline" "define-interface" - "define-record" "define-record-type" "define-specialization" - "define-syntax-rule" "define-type" "define-values" "dotimes" "ecase" - "fluid-let" "foreign-lambda" "foreign-lambda*" "foreign-primitive" - "foreign-safe-lambda" "foreign-safe-lambda*" "functor" "handle-exceptions" - "import" "let*-values" "let-location" "let-optionals" "let-optionals*" - "let-values" "letrec*" "letrec-values" "match-letrec" "module" - "parameterize" "regex-case" "require-extension" "select" "set!" - "unless" "use" "when" "with-input-from-pipe" "match" "match-lambda" - "match-lambda*" "match-let" "match-let*" "receive")) + '("assume" + "compiler-typecase" + "cond-expand" + "condition-case" + "declare" + "define-constant" + "define-inline" + "define-interface" + "define-record" + "define-specialization" + "define-type" + "dotimes" + "ecase" + "fluid-let" + "foreign-lambda" + "foreign-lambda*" + "foreign-primitive" + "foreign-safe-lambda" + "foreign-safe-lambda*" + "functor" + "handle-exceptions" + "let-location" + "let-optionals" + "let-optionals*" + "letrec-values" + "module" + "regex-case" + "select" + "use" + "with-input-from-pipe")) ;;; Customization: -- cgit v1.2.3