1 ;; Per-directory local variables for GNU Emacs 23 and later.
3 ((nil .
((fill-column .
72)
5 (c-mode .
((c-file-style .
"gnu")))
7 .
((indent-tabs-mode . nil
)
8 (eval .
(put 'pass-if
'scheme-indent-function
1))
9 (eval .
(put 'pass-if-exception
'scheme-indent-function
2))
10 (eval .
(put 'pass-if-equal
'scheme-indent-function
2))
11 (eval .
(put 'with-test-prefix
'scheme-indent-function
1))
12 (eval .
(put 'with-code-coverage
'scheme-indent-function
1))
13 (eval .
(put 'with-statprof
'scheme-indent-function
1))
14 (eval .
(put 'let-gensyms
'scheme-indent-function
1))
15 (eval .
(put 'let-fresh
'scheme-indent-function
2))
16 (eval .
(put 'with-fresh-name-state
'scheme-indent-function
1))
17 (eval .
(put 'with-fresh-name-state-from-dfg
'scheme-indent-function
1))
18 (eval .
(put 'build-cps-term
'scheme-indent-function
0))
19 (eval .
(put 'build-cps-exp
'scheme-indent-function
0))
20 (eval .
(put 'build-cps-cont
'scheme-indent-function
0))
21 (eval .
(put 'rewrite-cps-term
'scheme-indent-function
1))
22 (eval .
(put 'rewrite-cps-cont
'scheme-indent-function
1))
23 (eval .
(put 'rewrite-cps-exp
'scheme-indent-function
1))
24 (eval .
(put '$letk
'scheme-indent-function
1))
25 (eval .
(put '$letk
* 'scheme-indent-function
1))
26 (eval .
(put '$letconst
'scheme-indent-function
1))
27 (eval .
(put '$continue
'scheme-indent-function
2))
28 (eval .
(put '$kargs
'scheme-indent-function
2))
29 (eval .
(put '$kfun
'scheme-indent-function
4))
30 (eval .
(put '$letrec
'scheme-indent-function
3))
31 (eval .
(put '$kclause
'scheme-indent-function
1))
32 (eval .
(put '$fun
'scheme-indent-function
1))))
33 (emacs-lisp-mode .
((indent-tabs-mode . nil
)))
34 (texinfo-mode .
((indent-tabs-mode . nil
)