From 0bdba772ca2167cdd3acaed81ca8667cb78b266c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 1 Feb 2013 12:48:02 +0100
Subject: [PATCH] Augment `.dir-locals.el'.
* .dir-locals.el: Add more Scheme settings.
* guix-build.in, tests/base32.scm, tests/build-utils.scm,
tests/builders.scm, tests/derivations.scm, tests/packages.scm,
tests/snix.scm, tests/store.scm, tests/union.scm, tests/utils.scm:
Remove redundant Emacs local variable settings.
---
.dir-locals.el | 4 ++++
guix-build.in | 4 ----
tests/base32.scm | 4 ----
tests/build-utils.scm | 6 ------
tests/builders.scm | 4 ----
tests/derivations.scm | 5 -----
tests/packages.scm | 2 --
tests/snix.scm | 5 -----
tests/store.scm | 4 ----
tests/union.scm | 6 ------
tests/utils.scm | 4 ----
11 files changed, 4 insertions(+), 44 deletions(-)
diff --git a/.dir-locals.el b/.dir-locals.el
index 06c26534d8d..c7dc86fffe2 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -6,6 +6,10 @@
(scheme-mode
.
((indent-tabs-mode . nil)
+ (eval . (put 'test-assert 'scheme-indent-function 1))
+ (eval . (put 'test-equal 'scheme-indent-function 1))
+ (eval . (put 'call-with-input-string 'scheme-indent-function 1))
+ (eval . (put 'guard 'scheme-indent-function 1))
(eval . (put 'lambda* 'scheme-indent-function 1))
(eval . (put 'substitute* 'scheme-indent-function 1))
(eval . (put 'with-directory-excursion 'scheme-indent-function 1))
diff --git a/guix-build.in b/guix-build.in
index eb8d2fa0166..f8c71159992 100644
--- a/guix-build.in
+++ b/guix-build.in
@@ -301,7 +301,3 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
(derivation-path->output-paths drv)))
drv)
roots)))))))))
-
-;; Local Variables:
-;; eval: (put 'guard 'scheme-indent-function 1)
-;; End:
diff --git a/tests/base32.scm b/tests/base32.scm
index 166ec4da1c0..d6745475579 100644
--- a/tests/base32.scm
+++ b/tests/base32.scm
@@ -95,7 +95,3 @@ (define %have-nix-hash?
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/build-utils.scm b/tests/build-utils.scm
index 0df4cd27370..e94f04b2398 100644
--- a/tests/build-utils.scm
+++ b/tests/build-utils.scm
@@ -84,9 +84,3 @@ (define-module (test-build-utils)
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'test-equal 'scheme-indent-function 1)
-;;; eval: (put 'call-with-input-string 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/builders.scm b/tests/builders.scm
index 7fafaf5dcac..880dddd0b6f 100644
--- a/tests/builders.scm
+++ b/tests/builders.scm
@@ -93,7 +93,3 @@ (define network-reachable?
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 314942a3521..98c34b416df 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -547,8 +547,3 @@ (define %coreutils
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'guard 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/packages.scm b/tests/packages.scm
index 8b0f29e6bc2..32ee5585180 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -168,7 +168,5 @@ (define-syntax-rule (dummy-package name* extra-fields ...)
(exit (= (test-runner-fail-count (test-runner-current)) 0))
;;; Local Variables:
-;;; eval: (put 'test-equal 'scheme-indent-function 2)
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
;;; eval: (put 'dummy-package 'scheme-indent-function 1)
;;; End:
diff --git a/tests/snix.scm b/tests/snix.scm
index 89582f2408e..9d692e9c02d 100644
--- a/tests/snix.scm
+++ b/tests/snix.scm
@@ -72,8 +72,3 @@ (define-syntax-rule (every? proc lists ...)
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'guard 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/store.scm b/tests/store.scm
index c10c035d5de..1ff6aa05c2a 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -81,7 +81,3 @@ (define (random-text)
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/union.scm b/tests/union.scm
index 455bdb208d9..87450d74fd8 100644
--- a/tests/union.scm
+++ b/tests/union.scm
@@ -119,9 +119,3 @@ (define %store
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'test-equal 'scheme-indent-function 1)
-;;; eval: (put 'call-with-input-string 'scheme-indent-function 1)
-;;; End:
diff --git a/tests/utils.scm b/tests/utils.scm
index 96496c5f846..bcdd120a74c 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -183,7 +183,3 @@ (define-record-type* <foo> foo make-foo
(exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:
--
GitLab