[nongnu] elpa/geiser-racket 7caae17 088/191: Highlighting [else properly in Racket buffers

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 7caae17bc58426647151629834c0b8a43163c4a6
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Highlighting [else properly in Racket buffers
    
    That is, `else' gets keyword fontlocking.  Undecided as to whether
    extend this highlighting to all schemes...
---
 elisp/geiser-racket.el | 11 ++++++-----
 1 file 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)