[nongnu] elpa/geiser-racket 13dfcf3 075/191: Racket: #lang, require and provide as keywords

[Philip Kaludercic]

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