From 68679bb6cab3b4480fa4f1b89d7a87ac1ddb3c64 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 5 Jan 2022 16:12:54 +0530
Subject: build-aux: Abstract out opening an archive file.

* build-aux/distcheck.scm (call-with-archive-file): New function.
(package-in-archive): Use call-with-archive-file.
* .dir-locals.el (scheme-mode): Indent call-with-archive-file
correctly.
---
 .dir-locals.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '.dir-locals.el')

diff --git a/.dir-locals.el b/.dir-locals.el
index d20a471..ffa88a2 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -6,4 +6,5 @@
  (makefile-gmake-mode
   (indent-tabs-mode t))
  (scheme-mode
-  (eval . (put 'call-with-input-pipe 'scheme-indent-function 1))))
+  (eval . (put 'call-with-input-pipe 'scheme-indent-function 1))
+  (eval . (put 'call-with-archive-file 'scheme-indent-function 2))))
-- 
cgit v1.2.3