4.3BSD/usr/contrib/emacs/lisp/text-mode.elc

(defvar text-mode-syntax-table nil "Syntax table used while in text mode.")

(defvar text-mode-abbrev-table nil "Abbrev table used while in text mode.")

(if (null text-mode-syntax-table) (let ((st (syntax-table))) (unwind-protect (progn (setq text-mode-syntax-table (make-syntax-table)) (set-syntax-table text-mode-syntax-table) (modify-syntax-entry 34 ".   ") (modify-syntax-entry 92 ".   ") (modify-syntax-entry 39 "w   ")) (set-syntax-table st))))

(defvar text-mode-map (make-sparse-keymap))

(define-key text-mode-map "	" (quote tab-to-tab-stop))

(define-key text-mode-map "s" (quote center-line))

(define-key text-mode-map "S" (quote center-paragraph))

(defun non-saved-text-mode nil "\
Like text-mode, but delete auto save file when file is saved for real." (byte-code " ˆÃÀ!ˆ	‰‡" [delete-auto-save-files t text-mode make-local-variable] 4))

(defun text-mode nil "\
Major mode for editing text intended for humans to read.  Special commands:\\{text-mode-map}
Turning on text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "ÃˆÇ ˆÈ!ˆÉ‰ˆÊ‰ˆËÅ\"ˆ
‰ˆÌ!ˆÍÎ!‡" [text-mode-map mode-name major-mode nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table kill-all-local-variables use-local-map "Text" text-mode define-abbrev-table set-syntax-table run-hooks text-mode-hook] 6))

(defvar indented-text-mode-map (make-sparse-keymap))

(define-key indented-text-mode-map "	" (quote indent-relative))

(define-key indented-text-mode-map "s" (quote center-line))

(define-key indented-text-mode-map "S" (quote center-paragraph))

(defun indented-text-mode nil "\
Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
Turning on indented-text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "ÁˆÉ ˆÊ!ˆËÃ	\"ˆ‰ˆÌ!ˆÍÅ!ˆÎ‰ˆÊ!ˆÏ‰ˆÐ‰ˆÑÒ!‡" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indent-line-function indented-text-mode-map mode-name major-mode kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-local-variable indent-relative-maybe "Indented Text" indented-text-mode run-hooks text-mode-hook] 8))

(defun center-paragraph nil "\
Center each line in the paragraph at or after point.
See center-line for more info." (interactive) (byte-code "ÁˆŠÂ ˆn†
ÃÄ!ˆ`Å ˆÆ`\"))‡" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))

(defun center-region (from to) "\
Center each line starting in the region.
See center-line for more info." (interactive "r") (byte-code "È	Vƒ	
‰)‚ÈŠbˆ`	W…)Ä ˆÅÆ!ˆ‚)‡" [from to tem nil center-line forward-line 1] 4))

(defun center-line nil "\
Center the line point is on.
This means adjusting its indentation to match
the distance between the end of the text and fill-column." (interactive) (byte-code "ÈŠÃÄ ˆÅ ˆÆ ˆÅ ˆi‰ˆÄ ˆ	ÇÈ
	#É\"\\j))‡" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))