From 690a60c33834fb1a615a0ceb4dead08713612776 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 28 Nov 2010 02:56:31 +0100 Subject: [PATCH] Racket: #lang, require and provide as keywords Those seem keywordish enough to deserve fontification. --- elisp/geiser-racket.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index cafaac9..a349d6e 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -57,7 +57,8 @@ This executable is used by `run-gracket', and, if :group 'geiser-racket) (geiser-custom--defcustom geiser-racket-extra-keywords - '("define-syntax-rule" "unless" "when" "with-handlers") + '("define-syntax-rule" "provide" "require" + "unless" "when" "with-handlers") "Extra keywords highlighted in Racket buffers." :type '(repeat string) :group 'geiser-racket) @@ -231,9 +232,10 @@ This function uses `geiser-racket-init-file' if it exists." ;;; Keywords (defun geiser-racket--keywords () - (when geiser-racket-extra-keywords - `((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1)) - . 1)))) + (cons '("^#lang\\>" . 0) + (when geiser-racket-extra-keywords + `((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1)) + . 1))))) ;;; Remote REPLs -- 2.11.4.GIT