[Emacs-diffs] trunk r112991: Add some new scheme features (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 112991
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/9164
author: Simen Heggestøyl <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-14 17:37:49 -0700
message:
  Add some new scheme features  (tiny change)
  
  * lisp/progmodes/scheme.el (scheme-font-lock-keywords-2):
  Add export, import, library. 
  (library): Set indent function.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/scheme.el       scheme.el-20091113204419-o5vbwnq5f7feedwu-122

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-14 18:37:38 +0000
+++ b/lisp/ChangeLog    2013-06-15 00:37:49 +0000
@@ -1,3 +1,9 @@
+2013-06-15  Simen Heggestøyl  <address@hidden>  (tiny change)
+
+       * progmodes/scheme.el (scheme-font-lock-keywords-2):
+       Add export, import, library.  (Bug#9164)
+       (library): Set indent function.
+
 2013-06-14  Glenn Morris  <address@hidden>
 
        * term/xterm.el (xterm--query):

=== modified file 'lisp/progmodes/scheme.el'
--- a/lisp/progmodes/scheme.el  2013-03-16 22:08:22 +0000
+++ b/lisp/progmodes/scheme.el  2013-06-15 00:37:49 +0000
@@ -312,6 +312,8 @@
               "call-with-input-file" "call-with-output-file" "case" "cond"
               "do" "else" "for-each" "if" "lambda" "λ"
               "let" "let*" "let-syntax" "letrec" "letrec-syntax"
+              ;; R6RS library subforms.
+              "export" "import"
               ;; SRFI 11 usage comes up often enough.
               "let-values" "let*-values"
               ;; Hannes Haug <address@hidden> wants:
@@ -330,6 +332,10 @@
       ;;
       ;; Scheme `:' and `#:' keywords as builtins.
       '("\\<#?:\\sw+\\>" . font-lock-builtin-face)
+      ;; R6RS library declarations.
+      '("(\\(\\<library\\>\\)\\s-*(?\\(\\sw+\\)?"
+       (1 font-lock-keyword-face)
+       (2 font-lock-type-face))
       )))
   "Gaudy expressions to highlight in Scheme modes.")
 
@@ -536,6 +542,7 @@
 (put 'letrec-syntax 'scheme-indent-function 1)
 (put 'syntax-rules 'scheme-indent-function 1)
 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs
+(put 'library 'scheme-indent-function 1) ; R6RS
 
 (put 'call-with-input-file 'scheme-indent-function 1)
 (put 'with-input-from-file 'scheme-indent-function 1)