diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-28 02:56:31 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-28 02:56:31 +0100 |
| commit | 690a60c33834fb1a615a0ceb4dead08713612776 (patch) | |
| tree | 08897b596b7405cc727274ed3b72ad45e71826b7 /elisp/geiser-racket.el | |
| parent | 1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada (diff) | |
| download | geiser-guile-690a60c33834fb1a615a0ceb4dead08713612776.tar.gz geiser-guile-690a60c33834fb1a615a0ceb4dead08713612776.tar.bz2 | |
Racket: #lang, require and provide as keywords
Those seem keywordish enough to deserve fontification.
Diffstat (limited to 'elisp/geiser-racket.el')
| -rw-r--r-- | elisp/geiser-racket.el | 10 |
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 |