summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-04-02 12:13:30 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-04-02 12:13:30 +0200
commit40f5d8e6a09a7f010c5fc605619512f4d8e1ce98 (patch)
tree0928187b565d812ebbec0a836eb6c7e80ff91201
parent9b76fa6e9927c09ad36fdf93bc8d1e570fcf6383 (diff)
downloadgeiser-chez-40f5d8e6a09a7f010c5fc605619512f4d8e1ce98.tar.gz
geiser-chez-40f5d8e6a09a7f010c5fc605619512f4d8e1ce98.tar.bz2
Highlighting [else properly in Racket buffers
That is, `else' gets keyword fontlocking. Undecided as to whether extend this highlighting to all schemes...
-rw-r--r--elisp/geiser-racket.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 6e2de6b..0d54b78 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -1,6 +1,6 @@
;; geiser-racket.el -- geiser support for Racket scheme
-;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -233,10 +233,11 @@ This function uses `geiser-racket-init-file' if it exists."
;;; Keywords and syntax
(defun geiser-racket--keywords ()
- (cons '("^#lang\\>" . 0)
- (when geiser-racket-extra-keywords
- `((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1))
- . 1)))))
+ (append '(("^#lang\\>" . 0)
+ ("\\[\\(else\\)\\>" . 1))
+ (when geiser-racket-extra-keywords
+ `((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1))
+ . 1)))))
(geiser-syntax--scheme-indent
(splicing-let 1)