1 ;; Per-directory local variables for GNU Emacs 23 and later.
3 ((nil .
((fill-column .
78)
5 (c-mode .
((c-file-style .
"gnu")))
8 ((indent-tabs-mode . nil
)
9 (eval .
(put 'eval-when
'scheme-indent-function
1))
10 (eval .
(put 'test-assert
'scheme-indent-function
1))
11 (eval .
(put 'test-equal
'scheme-indent-function
1))
12 (eval .
(put 'test-eq
'scheme-indent-function
1))
13 (eval .
(put 'call-with-input-string
'scheme-indent-function
1))
14 (eval .
(put 'guard
'scheme-indent-function
1))
15 (eval .
(put 'lambda
* 'scheme-indent-function
1))
16 (eval .
(put 'substitute
* 'scheme-indent-function
1))
17 (eval .
(put 'with-directory-excursion
'scheme-indent-function
1))
18 (eval .
(put 'package
'scheme-indent-function
0))
19 (eval .
(put 'origin
'scheme-indent-function
0))
20 (eval .
(put 'operating-system
'scheme-indent-function
0))
21 (eval .
(put 'file-system
'scheme-indent-function
0))
22 (eval .
(put 'manifest-entry
'scheme-indent-function
0))
23 (eval .
(put 'manifest-pattern
'scheme-indent-function
0))
24 (eval .
(put 'substitute-keyword-arguments
'scheme-indent-function
1))
25 (eval .
(put 'with-store
'scheme-indent-function
1))
26 (eval .
(put 'with-error-handling
'scheme-indent-function
0))
27 (eval .
(put 'with-mutex
'scheme-indent-function
1))
28 (eval .
(put 'with-atomic-file-output
'scheme-indent-function
1))
29 (eval .
(put 'call-with-compressed-output-port
'scheme-indent-function
2))
30 (eval .
(put 'call-with-decompressed-port
'scheme-indent-function
2))
31 (eval .
(put 'signature-case
'scheme-indent-function
1))
32 (eval .
(put 'emacs-batch-eval
'scheme-indent-function
0))
33 (eval .
(put 'emacs-batch-edit-file
'scheme-indent-function
1))
34 (eval .
(put 'emacs-substitute-sexps
'scheme-indent-function
1))
35 (eval .
(put 'emacs-substitute-variables
'scheme-indent-function
1))
37 (eval .
(put 'syntax-parameterize
'scheme-indent-function
1))
38 (eval .
(put 'with-monad
'scheme-indent-function
1))
39 (eval .
(put 'mlet
* 'scheme-indent-function
2))
40 (eval .
(put 'mlet
'scheme-indent-function
2))
41 (eval .
(put 'run-with-store
'scheme-indent-function
1))
43 ;; Recognize '~' and '$', as used for gexps, as quotation symbols. This
44 ;; notably allows '(' in Paredit to not insert a space when the preceding
45 ;; symbol is one of these.
46 (eval .
(modify-syntax-entry ?~
"'"))
47 (eval .
(modify-syntax-entry ?$
"'"))))
48 (emacs-lisp-mode .
((indent-tabs-mode . nil
)))
49 (texinfo-mode .
((indent-tabs-mode . nil
)