Fix strerror error handling when given a non-integer argument.

[bpt/guile.git] / .dir-locals.el

diff --git a/.dir-locals.el b/.dir-locals.el
index e651538..a24e860 100644 (file)
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -3,7 +3,14 @@
 ((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 'scheme-indent-function 1))
+     (eval . (put 'pass-if-exception 'scheme-indent-function 2))
+     (eval . (put 'pass-if-equal 'scheme-indent-function 2))
+     (eval . (put 'with-test-prefix 'scheme-indent-function 1))
+     (eval . (put 'with-code-coverage 'scheme-indent-function 1))
+     (eval . (put 'with-statprof 'scheme-indent-function 1))))
  (emacs-lisp-mode . ((indent-tabs-mode . nil)))
  (texinfo-mode    . ((indent-tabs-mode . nil)
                      (fill-column . 72))))