blob: a635f2cdd4b6d008c71878b5689f76b570769739 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(put 'def 'scheme-indent-function 'defun)
(put 'esc 'scheme-indent-function 1)
(put 'fin 'scheme-indent-function 0)
(put 'fun 'scheme-indent-function 1)
(put 'loc 'scheme-indent-function 1)
(put 'andloc 'scheme-indent-function 1)
(put 'rec 'scheme-indent-function 1)
(put 'rep 'scheme-indent-function 2)
(put 'seq 'scheme-indent-function 0)
(put 'while 'scheme-indent-function 1)
(put 'until 'scheme-indent-function 1)
(put 'if 'scheme-indent-function 1)
(put 'for 'scheme-indent-function 1)
(put 'for/into 'scheme-indent-function 2)
(put 'match 'scheme-indent-function 1)
(put 'accumulate 'scheme-indent-function 1)
(setq auto-mode-alist
(cons '("\\.mew\\'" . scheme-mode)
auto-mode-alist))
|
