From 12cf1a12ab90c263557d5700de4827187fba5bff Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 22 Feb 2008 11:12:09 +0000 Subject: [PATCH] (scheme-font-lock-keywords-2): Add SRFI 11 support. (let-values, let*-values): Specify scheme-indent-function. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/scheme.el | 4 ++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 62325d36b09..f9a3a8bc8c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-02-22 Peter Danenberg (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 * progmodes/verilog-mode.el (verilog-xemacs-menu): Fix setup of diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index c427eddf871..61985a00efa 100644 --- 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 wants: "and" "or" "delay" "force" ;; Stefan Monnier 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) -- 2.39.2