(scheme-font-lock-keywords-2): Add SRFI 11 support.

(let-values, let*-values): Specify scheme-indent-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62325d36b09513ac44de495da63bbe0c7926fd5d..f9a3a8bc8c33e836a7e47dd14abe1a0a159f7a6d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-22  Peter Danenberg  <pcd@wikitex.org>  (tiny change)
+
+       * progmodes/scheme.el (scheme-font-lock-keywords-2):
+       Add SRFI 11 support.
+       (let-values, let*-values): Specify scheme-indent-function.
+
 2008-02-22  Andreas Schwab  <schwab@suse.de>
 
        * progmodes/verilog-mode.el (verilog-xemacs-menu): Fix setup of

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index c427eddf8714187a584ea516708e7f362f7e6447..61985a00efa6a7e0f052004806757c4ad9e77461 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -334,6 +334,8 @@ See `run-hooks'."
               "call-with-input-file" "call-with-output-file" "case" "cond"
               "do" "else" "for-each" "if" "lambda"
               "let" "let*" "let-syntax" "letrec" "letrec-syntax"
+              ;; SRFI 11 usage comes up often enough.
+              "let-values" "let*-values"
               ;; Hannes Haug <hannes.haug@student.uni-tuebingen.de> wants:
               "and" "or" "delay" "force"
               ;; Stefan Monnier <stefan.monnier@epfl.ch> says don't bother:
@@ -541,6 +543,8 @@ that variable's value is a string."
 (put 'let 'scheme-indent-function 'scheme-let-indent)
 (put 'let* 'scheme-indent-function 1)
 (put 'letrec 'scheme-indent-function 1)
+(put 'let-values 'scheme-indent-function 1) ; SRFI 11
+(put 'let*-values 'scheme-indent-function 1) ; SRFI 11
 (put 'sequence 'scheme-indent-function 0) ; SICP, not r4rs
 (put 'let-syntax 'scheme-indent-function 1)
 (put 'letrec-syntax 'scheme-indent-function 1)