;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:54:56 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/text-mode.el ;;; emacs version 19.22.92.2. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/text-mode.el' 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 " " ispell-complete-word " " 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!ˆÃÄÅ\"ˆ\fÇ!ˆÉÊ!ˆË\nÉÌ!ˆÍP\fÉÏ!ˆ\fÁ!ˆÑÓÕÖ×\"‡" [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 paragraph-start "^$\\|" page-delimiter paragraph-separate indented-text-mode-map "Indented Text" mode-name indented-text-mode major-mode run-hooks text-mode-hook indented-text-mode-hook] 3 "\ Major mode for editing text with indented paragraphs. In this mode, paragraphs are delimited only by blank lines. You can thus get the benefit of adaptive filling (see the variable `adaptive-fill-mode'). \\{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„\fÁÂ!ˆ`Ä ˆÅ` \"*‡" [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ˆ\f \fZ 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])