1 ;; Per-directory local variables for GNU Emacs 23 and later.
7 ;; For use with 'bug-reference-prog-mode'.
8 (bug-reference-url-format .
"http://bugs.gnu.org/%s")
9 (bug-reference-bug-regexp
10 .
"<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")))
11 (c-mode .
((c-file-style .
"gnu")))
14 ((indent-tabs-mode . nil
)
15 (eval .
(put 'eval-when
'scheme-indent-function
1))
16 (eval .
(put 'call-with-prompt
'scheme-indent-function
1))
17 (eval .
(put 'test-assert
'scheme-indent-function
1))
18 (eval .
(put 'test-assertm
'scheme-indent-function
1))
19 (eval .
(put 'test-equal
'scheme-indent-function
1))
20 (eval .
(put 'test-eq
'scheme-indent-function
1))
21 (eval .
(put 'call-with-input-string
'scheme-indent-function
1))
22 (eval .
(put 'guard
'scheme-indent-function
1))
23 (eval .
(put 'lambda
* 'scheme-indent-function
1))
24 (eval .
(put 'substitute
* 'scheme-indent-function
1))
25 (eval .
(put 'modify-phases
'scheme-indent-function
1))
26 (eval .
(put 'modify-services
'scheme-indent-function
1))
27 (eval .
(put 'with-directory-excursion
'scheme-indent-function
1))
28 (eval .
(put 'package
'scheme-indent-function
0))
29 (eval .
(put 'origin
'scheme-indent-function
0))
30 (eval .
(put 'build-system
'scheme-indent-function
0))
31 (eval .
(put 'bag
'scheme-indent-function
0))
32 (eval .
(put 'graft
'scheme-indent-function
0))
33 (eval .
(put 'operating-system
'scheme-indent-function
0))
34 (eval .
(put 'file-system
'scheme-indent-function
0))
35 (eval .
(put 'manifest-entry
'scheme-indent-function
0))
36 (eval .
(put 'manifest-pattern
'scheme-indent-function
0))
37 (eval .
(put 'substitute-keyword-arguments
'scheme-indent-function
1))
38 (eval .
(put 'with-store
'scheme-indent-function
1))
39 (eval .
(put 'with-error-handling
'scheme-indent-function
0))
40 (eval .
(put 'with-mutex
'scheme-indent-function
1))
41 (eval .
(put 'with-atomic-file-output
'scheme-indent-function
1))
42 (eval .
(put 'call-with-compressed-output-port
'scheme-indent-function
2))
43 (eval .
(put 'call-with-decompressed-port
'scheme-indent-function
2))
44 (eval .
(put 'signature-case
'scheme-indent-function
1))
45 (eval .
(put 'emacs-batch-eval
'scheme-indent-function
0))
46 (eval .
(put 'emacs-batch-edit-file
'scheme-indent-function
1))
47 (eval .
(put 'emacs-substitute-sexps
'scheme-indent-function
1))
48 (eval .
(put 'emacs-substitute-variables
'scheme-indent-function
1))
49 (eval .
(put 'with-derivation-narinfo
'scheme-indent-function
1))
50 (eval .
(put 'with-derivation-substitute
'scheme-indent-function
2))
52 (eval .
(put 'syntax-parameterize
'scheme-indent-function
1))
53 (eval .
(put 'with-monad
'scheme-indent-function
1))
54 (eval .
(put 'mbegin
'scheme-indent-function
1))
55 (eval .
(put 'mwhen
'scheme-indent-function
1))
56 (eval .
(put 'munless
'scheme-indent-function
1))
57 (eval .
(put 'mlet
* 'scheme-indent-function
2))
58 (eval .
(put 'mlet
'scheme-indent-function
2))
59 (eval .
(put 'run-with-store
'scheme-indent-function
1))
60 (eval .
(put 'run-with-state
'scheme-indent-function
1))
61 (eval .
(put 'wrap-program
'scheme-indent-function
1))
63 (eval .
(put 'call-with-container
'scheme-indent-function
1))
64 (eval .
(put 'container-excursion
'scheme-indent-function
1))
66 ;; Recognize '~', '+', and '$', as used for gexps, as quotation symbols.
67 ;; This notably allows '(' in Paredit to not insert a space when the
68 ;; preceding symbol is one of these.
69 (eval .
(modify-syntax-entry ?~
"'"))
70 (eval .
(modify-syntax-entry ?$
"'"))
71 (eval .
(modify-syntax-entry ?
+ "'"))))
72 (emacs-lisp-mode .
((indent-tabs-mode . nil
)))
73 (texinfo-mode .
((indent-tabs-mode . nil
)
