diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 00:42:37 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 00:48:58 +0100 |
commit | d4eee584e0976e38813d731bb6770f9146f1ef9c (patch) | |
tree | 95beb6c3be8a995a868cc5fef51eac02f3d034d6 /.dir-locals.el | |
parent | 10744b7c5007ccac19ea9654be6e749fe6a60992 (diff) | |
download | guile-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.el | 4 |
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)))) |