;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Aug 13 04:10:08 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/text-mode.el ;;; emacs version 19.18.4. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (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.") (byte-code "ÀÁÂ\"ˆ „Ä ÅÆÇ #ˆÅÈÇ #ˆÅÉÊ #ˆÂ‡" [define-abbrev-table text-mode-abbrev-table nil text-mode-syntax-table make-syntax-table modify-syntax-entry 34 ". " 92 39 "w "] 4) (defvar text-mode-map nil "\ Keymap for Text mode. Many other modes, such as Mail mode, Outline mode and Indented Text mode, inherit all the commands defined in this map.") (byte-code "„Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÁ‡" [text-mode-map make-sparse-keymap define-key " " tab-to-tab-stop "s" center-line "S" center-paragraph] 4) (defalias 'text-mode #[nil "À ˆÁ\n!ˆÃÅÉ\n!ˆËÌ!‡" [kill-all-local-variables use-local-map text-mode-map "Text" mode-name text-mode major-mode text-mode-abbrev-table local-abbrev-table set-syntax-table text-mode-syntax-table run-hooks text-mode-hook] 2 "\ 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." nil]) (defvar indented-text-mode-map nil "\ Keymap for Indented Text mode. All the commands defined in Text mode are inherited unless overridden.") (byte-code "„Á Ã\nÄÅ#ˆ\n¤)Á‡" [indented-text-mode-map make-sparse-keymap newmap define-key " " indent-relative text-mode-map] 4) (defalias 'indented-text-mode #[nil "À ˆÁ\n!ˆÃÄÅ\"ˆ Ç!ˆÉÊ!ˆË\nÁ !ˆÍÏÑÒ!‡" [kill-all-local-variables use-local-map text-mode-map define-abbrev-table text-mode-abbrev-table nil local-abbrev-table set-syntax-table text-mode-syntax-table make-local-variable indent-line-function indent-relative-maybe indented-text-mode-map "Indented Text" mode-name indented-text-mode major-mode run-hooks text-mode-hook] 3 "\ 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." nil]) (defalias 'center-paragraph #[nil "ŠÀ ˆn„ ÁÂ!ˆ`Ä ˆÅ` \"*‡" [forward-paragraph newline 1 end backward-paragraph center-region] 3 "\ Center each nonblank line in the paragraph at or after point. See `center-line' for more info." nil]) (defalias 'center-region #[(from to) " Vƒ \n)ŠŒ }ˆbˆm?….ŠÃÄwˆl)„(Å ˆÆyˆ‚*‡" [from to tem " " nil center-line 1] 2 "\ Center each nonblank line starting in the region. See `center-line' for more info." "r"]) (defalias 'center-line #[nil "ŠÀÂyˆÃ ˆÀˆÃ ˆiÂyˆ Z ZÆ¥\\j*‡" [nil line-length 0 delete-horizontal-space left-margin fill-column 2] 3 "\ Center the line point is on, within the width specified by `fill-column'. This means adjusting the indentation so that it equals the distance between the end of the text and `fill-column'." nil])