[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6713b07e08: Define indentation behavior for a few more special Sc
From: |
Eli Zaretskii |
Subject: |
master 6713b07e08: Define indentation behavior for a few more special Scheme forms |
Date: |
Wed, 20 Apr 2022 12:23:13 -0400 (EDT) |
branch: master
commit 6713b07e088f21ee9ca277794d8093c8158a9ed5
Author: Jean Abou Samra <jean@abou-samra.fr>
Commit: Eli Zaretskii <eliz@gnu.org>
Define indentation behavior for a few more special Scheme forms
* lisp/progmodes/scheme.el: Define 'scheme-indent-function'
property for 'and-let*', 'with-syntax', 'eval-when;, and
pattern matching macros. (Bug#55033)
Copyright-paperwork-exempt: yes
---
lisp/progmodes/scheme.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 592e2d5057..9b98c4e6dd 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -576,12 +576,16 @@ indentation."
(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 'and-let* 'scheme-indent-function 1) ; SRFI 2
(put 'sequence 'scheme-indent-function 0) ; SICP, not r4rs
(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 'with-syntax 'scheme-indent-function 1)
(put 'library 'scheme-indent-function 1) ; R6RS
+;; Part of at least Guile, Chez Scheme, Chicken
+(put 'eval-when 'scheme-indent-function 1)
(put 'call-with-input-file 'scheme-indent-function 1)
(put 'call-with-port 'scheme-indent-function 1)
@@ -605,6 +609,14 @@ indentation."
;; SRFI-8
(put 'receive 'scheme-indent-function 2)
+;; 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)
+(put 'match-lambda* 'scheme-indent-function 0)
+(put 'match-let 'scheme-indent-function 'scheme-let-indent)
+(put 'match-let* 'scheme-indent-function 1)
+(put 'match-letrec 'scheme-indent-function 1)
+
;;;; MIT Scheme specific indentation.
(if scheme-mit-dialect
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6713b07e08: Define indentation behavior for a few more special Scheme forms,
Eli Zaretskii <=