![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to text-mode.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / lisp|
Return to text-mode.el CVS log | Up to [Apple XNU] / GNUtools / emacs / lisp |
1.1 ! root 1: ;; Text mode, and its ideosyncratic commands. ! 2: ;; Copyright (C) 1985 Free Software Foundation, Inc. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is free software; you can redistribute it and/or modify ! 7: ;; it under the terms of the GNU General Public License as published by ! 8: ;; the Free Software Foundation; either version 1, or (at your option) ! 9: ;; any later version. ! 10: ! 11: ;; GNU Emacs is distributed in the hope that it will be useful, ! 12: ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ! 13: ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! 14: ;; GNU General Public License for more details. ! 15: ! 16: ;; You should have received a copy of the GNU General Public License ! 17: ;; along with GNU Emacs; see the file COPYING. If not, write to ! 18: ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ! 19: ! 20: ! 21: (defvar text-mode-syntax-table nil ! 22: "Syntax table used while in text mode.") ! 23: ! 24: (defvar text-mode-abbrev-table nil ! 25: "Abbrev table used while in text mode.") ! 26: (define-abbrev-table 'text-mode-abbrev-table ()) ! 27: ! 28: (if text-mode-syntax-table ! 29: () ! 30: (setq text-mode-syntax-table (make-syntax-table)) ! 31: (modify-syntax-entry ?\" ". " text-mode-syntax-table) ! 32: (modify-syntax-entry ?\\ ". " text-mode-syntax-table) ! 33: (modify-syntax-entry ?' "w " text-mode-syntax-table)) ! 34: ! 35: (defvar text-mode-map nil "") ! 36: (if text-mode-map ! 37: () ! 38: (setq text-mode-map (make-sparse-keymap)) ! 39: (define-key text-mode-map "\t" 'tab-to-tab-stop) ! 40: (define-key text-mode-map "\es" 'center-line) ! 41: (define-key text-mode-map "\eS" 'center-paragraph)) ! 42: ! 43: ! 44: ;(defun non-saved-text-mode () ! 45: ; "Like text-mode, but delete auto save file when file is saved for real." ! 46: ; (text-mode) ! 47: ; (make-local-variable 'delete-auto-save-files) ! 48: ; (setq delete-auto-save-files t)) ! 49: ! 50: (defun text-mode () ! 51: "Major mode for editing text intended for humans to read. Special commands:\\{text-mode-map} ! 52: Turning on text-mode calls the value of the variable text-mode-hook, ! 53: if that value is non-nil." ! 54: (interactive) ! 55: (kill-all-local-variables) ! 56: (use-local-map text-mode-map) ! 57: (setq mode-name "Text") ! 58: (setq major-mode 'text-mode) ! 59: (setq local-abbrev-table text-mode-abbrev-table) ! 60: (set-syntax-table text-mode-syntax-table) ! 61: (run-hooks 'text-mode-hook)) ! 62: ! 63: (defvar indented-text-mode-map ()) ! 64: (if indented-text-mode-map ! 65: () ! 66: (setq indented-text-mode-map (make-sparse-keymap)) ! 67: (define-key indented-text-mode-map "\t" 'indent-relative) ! 68: (define-key indented-text-mode-map "\es" 'center-line) ! 69: (define-key indented-text-mode-map "\eS" 'center-paragraph)) ! 70: ! 71: (defun indented-text-mode () ! 72: "Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map} ! 73: Turning on indented-text-mode calls the value of the variable text-mode-hook, ! 74: if that value is non-nil." ! 75: (interactive) ! 76: (kill-all-local-variables) ! 77: (use-local-map text-mode-map) ! 78: (define-abbrev-table 'text-mode-abbrev-table ()) ! 79: (setq local-abbrev-table text-mode-abbrev-table) ! 80: (set-syntax-table text-mode-syntax-table) ! 81: (make-local-variable 'indent-line-function) ! 82: (setq indent-line-function 'indent-relative-maybe) ! 83: (use-local-map indented-text-mode-map) ! 84: (setq mode-name "Indented Text") ! 85: (setq major-mode 'indented-text-mode) ! 86: (run-hooks 'text-mode-hook)) ! 87: ! 88: (defun center-paragraph () ! 89: "Center each line in the paragraph at or after point. ! 90: See center-line for more info." ! 91: (interactive) ! 92: (save-excursion ! 93: (forward-paragraph) ! 94: (or (bolp) (newline 1)) ! 95: (let ((end (point))) ! 96: (backward-paragraph) ! 97: (center-region (point) end)))) ! 98: ! 99: (defun center-region (from to) ! 100: "Center each line starting in the region. ! 101: See center-line for more info." ! 102: (interactive "r") ! 103: (if (> from to) ! 104: (let ((tem to)) ! 105: (setq to from from tem))) ! 106: (save-excursion ! 107: (save-restriction ! 108: (narrow-to-region from to) ! 109: (goto-char from) ! 110: (while (not (eobp)) ! 111: (center-line) ! 112: (forward-line 1))))) ! 113: ! 114: (defun center-line () ! 115: "Center the line point is on, within the width specified by `fill-column'. ! 116: This means adjusting the indentation to match ! 117: the distance between the end of the text and `fill-column'." ! 118: (interactive) ! 119: (save-excursion ! 120: (let (line-length) ! 121: (beginning-of-line) ! 122: (delete-horizontal-space) ! 123: (end-of-line) ! 124: (delete-horizontal-space) ! 125: (setq line-length (current-column)) ! 126: (beginning-of-line) ! 127: (indent-to ! 128: (+ left-margin ! 129: (/ (- fill-column left-margin line-length) 2))))))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.