1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 (%include e-macros)
18
19 (declare (special SPACE text-mode-hook))
20
21 (declare (*expr delete-line-indentation fill-mode))
22
23 (defcom text-mode
24 (setq current-buffer-mode 'Text)
25 (establish-local-var 'comment-column 0)
26 (establish-local-var 'comment-prefix "")
27 (mapc '(lambda (x) (set-key (car x) (cadr x)))
28 '(
29 (ESC-^ text-mode-delete-line-indentation)
30 ))
31 (fill-mode)
32 (and (boundp 'text-mode-hook) (funcall text-mode-hook)))
33
34 (defcom text-mode-delete-line-indentation
35 &numeric-argument (&pass)
36 (delete-line-indentation)
37 (insert-string SPACE))
38
39 (defcom-synonym runoff-mode text-mode)
40 (defcom-synonym compose-mode text-mode)
41