?? text-mode.el
字號(hào):
;; Text mode, and its ideosyncratic commands.;; Copyright (C) 1985 Free Software Foundation, Inc.;; This file is part of GNU Emacs.;; GNU Emacs is free software; you can redistribute it and/or modify;; it under the terms of the GNU General Public License as published by;; the Free Software Foundation; either version 1, or (at your option);; any later version.;; GNU Emacs is distributed in the hope that it will be useful,;; but WITHOUT ANY WARRANTY; without even the implied warranty of;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the;; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License;; along with GNU Emacs; see the file COPYING. If not, write to;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.(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.")(define-abbrev-table 'text-mode-abbrev-table ())(if text-mode-syntax-table () (setq text-mode-syntax-table (make-syntax-table)) (modify-syntax-entry ?\" ". " text-mode-syntax-table) (modify-syntax-entry ?\\ ". " text-mode-syntax-table) (modify-syntax-entry ?' "w " text-mode-syntax-table))(defvar text-mode-map nil "")(if text-mode-map () (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map "\t" 'tab-to-tab-stop) (define-key text-mode-map "\es" 'center-line) (define-key text-mode-map "\eS" 'center-paragraph));(defun non-saved-text-mode (); "Like text-mode, but delete auto save file when file is saved for real."; (text-mode); (make-local-variable 'delete-auto-save-files); (setq delete-auto-save-files t))(defun text-mode () "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) (kill-all-local-variables) (use-local-map text-mode-map) (setq mode-name "Text") (setq major-mode 'text-mode) (setq local-abbrev-table text-mode-abbrev-table) (set-syntax-table text-mode-syntax-table) (run-hooks 'text-mode-hook))(defvar indented-text-mode-map ())(if indented-text-mode-map () (setq indented-text-mode-map (make-sparse-keymap)) (define-key indented-text-mode-map "\t" 'indent-relative) (define-key indented-text-mode-map "\es" 'center-line) (define-key indented-text-mode-map "\eS" 'center-paragraph))(defun indented-text-mode () "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) (kill-all-local-variables) (use-local-map text-mode-map) (define-abbrev-table 'text-mode-abbrev-table ()) (setq local-abbrev-table text-mode-abbrev-table) (set-syntax-table text-mode-syntax-table) (make-local-variable 'indent-line-function) (setq indent-line-function 'indent-relative-maybe) (use-local-map indented-text-mode-map) (setq mode-name "Indented Text") (setq major-mode 'indented-text-mode) (run-hooks 'text-mode-hook))(defun center-paragraph () "Center each line in the paragraph at or after point.See center-line for more info." (interactive) (save-excursion (forward-paragraph) (or (bolp) (newline 1)) (let ((end (point))) (backward-paragraph) (center-region (point) end))))(defun center-region (from to) "Center each line starting in the region.See center-line for more info." (interactive "r") (if (> from to) (let ((tem to)) (setq to from from tem))) (save-excursion (save-restriction (narrow-to-region from to) (goto-char from) (while (not (eobp)) (center-line) (forward-line 1)))))(defun center-line () "Center the line point is on, within the width specified by `fill-column'.This means adjusting the indentation to matchthe distance between the end of the text and `fill-column'." (interactive) (save-excursion (let (line-length) (beginning-of-line) (delete-horizontal-space) (end-of-line) (delete-horizontal-space) (setq line-length (current-column)) (beginning-of-line) (indent-to (+ left-margin (/ (- fill-column left-margin line-length) 2))))))
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -