summary refs log tree commit diff
diff options
context:
space:
mode:
authorCaleb Ristvedt <caleb.ristvedt@cune.org>2020-06-24 01:00:40 -0500
committerLudovic Courtès <ludo@gnu.org>2020-09-14 10:51:26 +0200
commit1d40e6fdd1898d94d9611b01ebd893aab72dec54 (patch)
treedd4f3cf2443f6bd57c01882c7f0ab2444641898a
parent24244f3fbff8cd107162803ab9c4392912ce6546 (diff)
downloadguix-1d40e6fdd1898d94d9611b01ebd893aab72dec54.tar.gz
.dir-locals.el: fix call-with-{retrying-}transaction indenting.
* .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>
-rw-r--r--.dir-locals.el4
1 files changed, 2 insertions, 2 deletions
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))