bug#75126: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

[Antero Mejr <mail@antr.me>]

[-- Attachment #1: Type: text/plain, Size: 103 bytes --]

Tags: patch

Both SRFIs are finalized and introduce identifiers that need specific
indentation rules.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Add-scheme-mode-indentation-rules-for-SRFI-227-and-2.patch --]
[-- Type: text/patch, Size: 1239 bytes --]

From 183781e6b9813404f457759018f1178205bbe621 Mon Sep 17 00:00:00 2001
From: Antero Mejr <mail@antr.me>
Date: Thu, 26 Dec 2024 15:58:24 -0500
Subject: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

* lisp/progmodes/scheme.el: Add properties for SRFI 227 and SRFI 253
identifiers.
---
 lisp/progmodes/scheme.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index a0f922f279c..db3e0161f79 100644
--- 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
-- 
2.46.0