X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/d4eee584e0976e38813d731bb6770f9146f1ef9c..refs/heads/wip:/.dir-locals.el

diff --git a/.dir-locals.el b/.dir-locals.el
index 364053094..399b8d26e 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -5,7 +5,32 @@
  (c-mode          . ((c-file-style . "gnu")))
  (scheme-mode
   . ((indent-tabs-mode . nil)
-     (eval . (put 'pass-if-equal 'scheme-indent-function 2))))
+     (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))
+     (eval . (put 'let-gensyms         'scheme-indent-function 1))
+     (eval . (put 'let-fresh           'scheme-indent-function 2))
+     (eval . (put 'with-fresh-name-state 'scheme-indent-function 1))
+     (eval . (put 'with-fresh-name-state-from-dfg 'scheme-indent-function 1))
+     (eval . (put 'build-cps-term      'scheme-indent-function 0))
+     (eval . (put 'build-cps-exp       'scheme-indent-function 0))
+     (eval . (put 'build-cps-cont      'scheme-indent-function 0))
+     (eval . (put 'rewrite-cps-term    'scheme-indent-function 1))
+     (eval . (put 'rewrite-cps-cont    'scheme-indent-function 1))
+     (eval . (put 'rewrite-cps-exp     'scheme-indent-function 1))
+     (eval . (put '$letk               'scheme-indent-function 1))
+     (eval . (put '$letk*              'scheme-indent-function 1))
+     (eval . (put '$letconst           'scheme-indent-function 1))
+     (eval . (put '$continue           'scheme-indent-function 2))
+     (eval . (put '$kargs              'scheme-indent-function 2))
+     (eval . (put '$kfun               'scheme-indent-function 4))
+     (eval . (put '$letrec             'scheme-indent-function 3))
+     (eval . (put '$kclause            'scheme-indent-function 1))
+     (eval . (put '$fun                'scheme-indent-function 1))
+     (eval . (put 'syntax-parameterize 'scheme-indent-function 1))))))
  (emacs-lisp-mode . ((indent-tabs-mode . nil)))
  (texinfo-mode    . ((indent-tabs-mode . nil)
                      (fill-column . 72))))