From 1d40e6fdd1898d94d9611b01ebd893aab72dec54 Mon Sep 17 00:00:00 2001
From: Caleb Ristvedt <caleb.ristvedt@cune.org>
Date: Wed, 24 Jun 2020 01:00:40 -0500
Subject: .dir-locals.el: fix call-with-{retrying-}transaction indenting.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* .dir-locals.el (call-with-transaction, call-with-retrying-transaction):
change scheme-indent-function property from 2 to 1.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
.dir-locals.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to '.dir-locals.el')
diff --git a/.dir-locals.el b/.dir-locals.el
index 7f966704c7..5954e313f2 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -90,9 +90,9 @@
(eval . (put 'let-system 'scheme-indent-function 1))
(eval . (put 'with-database 'scheme-indent-function 2))
- (eval . (put 'call-with-transaction 'scheme-indent-function 2))
+ (eval . (put 'call-with-transaction 'scheme-indent-function 1))
(eval . (put 'with-statement 'scheme-indent-function 3))
- (eval . (put 'call-with-retrying-transaction 'scheme-indent-function 2))
+ (eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
(eval . (put 'call-with-savepoint 'scheme-indent-function 1))
(eval . (put 'call-with-retrying-savepoint 'scheme-indent-function 1))
--
cgit v1.2.3