branch: elpa/geiser-racket
commit 13dfcf34f5ccfeb65f445c1476ab519cc06e8ec3
Author: Jose Antonio Ortega Ruiz <j...@gnu.org>
Commit: Jose Antonio Ortega Ruiz <j...@gnu.org>
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
