Fix thread-unsafe lazy initializations.

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

diff --git a/.dir-locals.el b/.dir-locals.el
index ca0c337..a24e860 100644 (file)
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,8 +1,16 @@
 ;; Per-directory local variables for GNU Emacs 23 and later.
 
-((nil             . ((fill-column . 80)
+((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))))
+ (texinfo-mode    . ((indent-tabs-mode . nil)
+                     (fill-column . 72))))