From: Antero Mejr <mail@antr.me>
Date: Sun, 19 Jan 2025 03:35:39 +0000 (-0500)
Subject: Add scheme-mode indentation for SRFI 64, R7RS guard
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ca8b773bd55de754bb73de1d518b82f2fac8d4d;p=emacs.git

Add scheme-mode indentation for SRFI 64, R7RS guard

* lisp/progmodes/scheme.el: Add properties for SRFI 64 and R7RS guard
identifiers.  (Bug#75999)

(cherry picked from commit d10acd16c90afe9fc8534fcd174397b7c403eda9)
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index b5d8d01b7d4..ab9a4915ca6 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -681,10 +681,15 @@ indentation."
 (put 'define-values 'scheme-indent-function 1)
 (put 'define-record-type 'scheme-indent-function 1) ;; is 1 correct?
 (put 'define-library 'scheme-indent-function 1)
+(put 'guard 'scheme-indent-function 1)
 
 ;; SRFI-8
 (put 'receive 'scheme-indent-function 2)
 
+;; SRFI 64
+(put 'test-group 'scheme-indent-function 1)
+(put 'test-group-with-cleanup 'scheme-indent-function 1)
+
 ;; SRFI-204 (withdrawn, but provided in many implementations, see the SRFI text)
 (put 'match 'scheme-indent-function 1)
 (put 'match-lambda 'scheme-indent-function 0)