summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-28 02:56:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-28 02:56:31 +0100
commit690a60c33834fb1a615a0ceb4dead08713612776 (patch)
tree08897b596b7405cc727274ed3b72ad45e71826b7 /elisp
parent1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada (diff)
downloadgeiser-chez-690a60c33834fb1a615a0ceb4dead08713612776.tar.gz
geiser-chez-690a60c33834fb1a615a0ceb4dead08713612776.tar.bz2
Racket: #lang, require and provide as keywords
Those seem keywordish enough to deserve fontification.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-racket.el10
1 files 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