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

@@ -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))

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:

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:

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:

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:

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:

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:

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:

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:

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:

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: