home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-src.tgz / emacs-18.59-src.tar / fsf / emacs18 / lisp / text-mode.elc < prev    next >
Text File  |  1996-09-28  |  3KB  |  45 lines
  1.  
  2. (defvar text-mode-syntax-table nil "\
  3. Syntax table used while in text mode.")
  4.  
  5. (defvar text-mode-abbrev-table nil "\
  6. Abbrev table used while in text mode.")
  7.  
  8. (define-abbrev-table (quote text-mode-abbrev-table) nil)
  9.  
  10. (if text-mode-syntax-table nil (setq text-mode-syntax-table (make-syntax-table)) (modify-syntax-entry 34 ".   " text-mode-syntax-table) (modify-syntax-entry 92 ".   " text-mode-syntax-table) (modify-syntax-entry 39 "w   " text-mode-syntax-table))
  11.  
  12. (defvar text-mode-map nil "\
  13. ")
  14.  
  15. (if text-mode-map nil (setq 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)))
  16.  
  17. (defun text-mode nil "\
  18. Major mode for editing text intended for humans to read.  Special commands:\\{text-mode-map}
  19. Turning on text-mode calls the value of the variable text-mode-hook,
  20. if that value is non-nil." (interactive) (byte-code "ƈǠˆÈ!ˆÉ‰ˆÊ‰ˆ ‰ˆË!ˆÌÍ!‡" [text-mode-map mode-name major-mode local-abbrev-table text-mode-abbrev-table text-mode-syntax-table nil kill-all-local-variables use-local-map "Text" text-mode set-syntax-table run-hooks text-mode-hook] 5))
  21.  
  22. (defvar indented-text-mode-map nil)
  23.  
  24. (if indented-text-mode-map nil (setq 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)))
  25.  
  26. (defun indented-text-mode nil "\
  27. Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
  28. Turning on indented-text-mode calls the value of the variable text-mode-hook,
  29. 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))
  30.  
  31. (defun center-paragraph nil "\
  32. Center each line in the paragraph at or after point.
  33. See center-line for more info." (interactive) (byte-code "ÁˆŠÂ ˆn†ÃÄ!ˆ`Å ˆÆ`\"))‡" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))
  34.  
  35. (defun center-region (from to) "\
  36. Center each line starting in the region.
  37. See center-line for more info." (interactive "r") (byte-code "È    V…    
  38. ‰)ˆŠŒÄ    \"ˆbˆm?…*Å ˆÆÇ!ˆ‚))‡" [from to tem nil narrow-to-region center-line forward-line 1] 5))
  39.  
  40. (defun center-line nil "\
  41. Center the line point is on, within the width specified by `fill-column'.
  42. This means adjusting the indentation to match
  43. the distance between the end of the text and `fill-column'." (interactive) (byte-code "ȊÃÄ ˆÅ ˆÆ ˆÅ ˆi‰ˆÄ ˆ    ÇÈ
  44.     #É\"\\j))‡" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))
  45.