From: Dave Love <fx@gnu.org>
Date: Tue, 29 Oct 2002 18:48:30 +0000 (+0000)
Subject: (syntax-case): Define
X-Git-Tag: ttn-vms-21-2-B4~12662
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ec2c3509c923b8bdcb92f6c31d96b6c7950fa80;p=emacs.git

(syntax-case): Define
scheme-indent-function.
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 3f2eeffaf4a..eb002b1905c 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -502,7 +502,7 @@ that variable's value is a string."
 (put 'let-syntax 'scheme-indent-function 1)
 (put 'letrec-syntax 'scheme-indent-function 1)
 (put 'syntax-rules 'scheme-indent-function 1)
-
+(put 'syntax-case 'scheme-indent-function 2) ; not r5rs
 
 (put 'call-with-input-file 'scheme-indent-function 1)
 (put 'with-input-from-file 'scheme-indent-function 1)