summaryrefslogtreecommitdiff
path: root/.dir-locals.el
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-01 00:42:37 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-01 00:48:58 +0100
commitd4eee584e0976e38813d731bb6770f9146f1ef9c (patch)
tree95beb6c3be8a995a868cc5fef51eac02f3d034d6 /.dir-locals.el
parent10744b7c5007ccac19ea9654be6e749fe6a60992 (diff)
downloadguile-d4eee584e0976e38813d731bb6770f9146f1ef9c.tar.gz
test-suite: Add `pass-if-equal'.
* test-suite/test-suite/lib.scm (pass-if-equal): New macro. (run-test): Upon `fail', pass ARGS to REPORT.
Diffstat (limited to '.dir-locals.el')
-rw-r--r--.dir-locals.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el
index e651538ed..364053094 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -3,7 +3,9 @@
((nil . ((fill-column . 72)
(tab-width . 8)))
(c-mode . ((c-file-style . "gnu")))
- (scheme-mode . ((indent-tabs-mode . nil)))
+ (scheme-mode
+ . ((indent-tabs-mode . nil)
+ (eval . (put 'pass-if-equal 'scheme-indent-function 2))))
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
(texinfo-mode . ((indent-tabs-mode . nil)
(fill-column . 72))))