1 ;;; ***********************************************************
 2 ;;; *                                                         *
 3 ;;; * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4 ;;; *                                                         *
 5 ;;; * Copyright (c) 1981 by Massachusetts Institute of        *
 6 ;;; * Technology and Honeywell Information Systems, Inc.      *
 7 ;;; *                                                         *
 8 ;;; ***********************************************************
 9 ;;;
10 ;;; Text mode, cause why not.
11 ;;; Richard Mark Soley 23 November 1981
12 ;;; Modified sometime before 2 November 1984 by B. Margolin to
13 ;;;          allow text-mode-delete-line-indentation to take a numeric
14 ;;;          argument.
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