Add scheme-mode indentation rules for SRFI 227 and 253

* lisp/progmodes/scheme.el: Add properties for SRFI 227 and SRFI 253
identifiers.  (Bug#75126)

(cherry picked from commit 099e439ea99d794502f403b6de53b8589d7b6d6e)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index a0f922f279cadc4956852d21bab407ea66a0ec14..db3e0161f79617ace4130ea324f2dfb5b3b6861b 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -693,6 +693,19 @@ indentation."
 (put 'match-let* 'scheme-indent-function 1)
 (put 'match-letrec 'scheme-indent-function 1)
 \f
+;; SRFI-227
+(put 'opt-lambda 'scheme-indent-function 1)
+(put 'opt*-lambda 'scheme-indent-function 1)
+(put 'let-optionals 'scheme-indent-function 2)
+(put 'let-optionals* 'scheme-indent-function 2)
+;; define-optionals and define-optionals* already work
+\f
+;; SRFI-253
+(put 'check-case 'scheme-indent-function 1)
+(put 'lambda-checked 'scheme-indent-function 1)
+(put 'case-lambda-checked 'scheme-doc-string-elt 1)
+;; define-checked and define-record-type-checked already work
+\f
 ;;;; MIT Scheme specific indentation.
 
 (if scheme-mit-dialect