![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to texinfo.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to texinfo.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 ! root 1: ;; Major mode for editing texinfo files. ! 2: ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is distributed in the hope that it will be useful, ! 7: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 8: ;; accepts responsibility to anyone for the consequences of using it ! 9: ;; or for whether it serves any particular purpose or works at all, ! 10: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 11: ;; License for full details. ! 12: ! 13: ;; Everyone is granted permission to copy, modify and redistribute ! 14: ;; GNU Emacs, but only under the conditions described in the ! 15: ;; GNU Emacs General Public License. A copy of this license is ! 16: ;; supposed to have been given to you along with GNU Emacs so you ! 17: ;; can know your rights and responsibilities. It should be in a ! 18: ;; file named COPYING. Among other things, the copyright notice ! 19: ;; and this notice must be preserved on all copies. ! 20: ! 21: ! 22: (defvar texinfo-mode-syntax-table nil) ! 23: ! 24: (if texinfo-mode-syntax-table ! 25: nil ! 26: (setq texinfo-mode-syntax-table (make-syntax-table)) ! 27: (modify-syntax-entry ?\" " " texinfo-mode-syntax-table) ! 28: (modify-syntax-entry ?\\ " " texinfo-mode-syntax-table) ! 29: (modify-syntax-entry ?@ "\\" texinfo-mode-syntax-table) ! 30: (modify-syntax-entry ?\^q "\\" texinfo-mode-syntax-table) ! 31: (modify-syntax-entry ?\[ "(]" texinfo-mode-syntax-table) ! 32: (modify-syntax-entry ?\] ")[" texinfo-mode-syntax-table) ! 33: (modify-syntax-entry ?{ "(}" texinfo-mode-syntax-table) ! 34: (modify-syntax-entry ?} "){" texinfo-mode-syntax-table) ! 35: (modify-syntax-entry ?\' "w" texinfo-mode-syntax-table)) ! 36: ! 37: (defvar texinfo-mode-map nil) ! 38: ! 39: (if texinfo-mode-map ! 40: nil ! 41: (setq texinfo-mode-map (make-sparse-keymap)) ! 42: (define-key texinfo-mode-map "\C-c\C-f" 'texinfo-format-region) ! 43: (define-key texinfo-mode-map "\C-c\C-s" 'texinfo-show-structure) ! 44: (define-key texinfo-mode-map "\e}" 'up-list) ! 45: (define-key texinfo-mode-map "\e{" 'texinfo-insert-braces) ! 46: (define-key texinfo-mode-map "\C-c\C-cv" 'texinfo-insert-@var) ! 47: (define-key texinfo-mode-map "\C-c\C-cs" 'texinfo-insert-@samp) ! 48: (define-key texinfo-mode-map "\C-c\C-cn" 'texinfo-insert-@node) ! 49: (define-key texinfo-mode-map "\C-c\C-ci" 'texinfo-insert-@item) ! 50: (define-key texinfo-mode-map "\C-c\C-ce" 'texinfo-insert-@end) ! 51: (define-key texinfo-mode-map "\C-c\C-cd" 'texinfo-insert-@dfn) ! 52: (define-key texinfo-mode-map "\C-c\C-cc" 'texinfo-insert-@code)) ! 53: ! 54: (defun texinfo-insert-@var () ! 55: "Insert the string @var in a texinfo buffer." ! 56: (interactive) ! 57: (insert "@var{}") ! 58: (backward-char)) ! 59: ! 60: (defun texinfo-insert-@samp () ! 61: "Insert the string @samp in a texinfo buffer." ! 62: (interactive) ! 63: (insert "@samp{}") ! 64: (backward-char)) ! 65: ! 66: (defun texinfo-insert-@node () ! 67: "Insert the string @node in a texinfo buffer, ! 68: along with a comment indicating the arguments to @node." ! 69: (interactive) ! 70: (insert "@node \n@comment node-name, next, previous, up") ! 71: (forward-line -1) ! 72: (forward-char 6)) ! 73: ! 74: (defun texinfo-insert-@item () ! 75: "Insert the string @item in a texinfo buffer." ! 76: (interactive) ! 77: (insert "@item") ! 78: (newline)) ! 79: ! 80: (defun texinfo-insert-@end () ! 81: "Insert the string @end in a texinfo buffer." ! 82: (interactive) ! 83: (insert "@end ")) ! 84: ! 85: (defun texinfo-insert-@dfn () ! 86: "Insert the string @dfn in a texinfo buffer." ! 87: (interactive) ! 88: (insert "@dfn{}") ! 89: (backward-char)) ! 90: ! 91: (defun texinfo-insert-@code () ! 92: "Insert the string @code in a texinfo buffer." ! 93: (interactive) ! 94: (insert "@code{}") ! 95: (backward-char)) ! 96: ! 97: (defun texinfo-insert-braces () ! 98: "Make a pair of braces and be poised to type inside of them. ! 99: Use \\[up-list] to move forward out of the braces." ! 100: (interactive) ! 101: (insert "{}") ! 102: (backward-char)) ! 103: ! 104: (defun texinfo-mode () ! 105: "Major mode for editing texinfo files. ! 106: ! 107: It has these extra commands: ! 108: \\{texinfo-mode-map} ! 109: ! 110: These are files that are used as input for TeX to make printed manuals ! 111: and also to be turned into Info files by \\[texinfo-format-buffer]. ! 112: These files must be written in a very restricted and modified version ! 113: of TeX input format. ! 114: ! 115: Editing commands are like text-mode except that the syntax table is ! 116: set up so expression commands skip Texinfo bracket groups. To see ! 117: what the Info version of a region of the Texinfo file will look like, ! 118: use \\[texinfo-format-region]. This command runs Info on the current region ! 119: of the Texinfo file and formats it properly. ! 120: ! 121: You can show the structure of a Texinfo file with \\[texinfo-show-structure]. ! 122: This command shows the structure of a Texinfo file by listing the ! 123: lines with the @-sign commands for @node, @chapter, @section and the ! 124: like. These lines are displayed in another window called the *Occur* ! 125: window. In that window, you can position the cursor over one of the ! 126: lines and use \\[occur-mode-goto-occurrence], to jump to the ! 127: corresponding spot in the Texinfo file. ! 128: ! 129: In addition, Texinfo mode provides commands that insert various ! 130: frequently used @-sign commands into the buffer. You can use these ! 131: commands to save keystrokes. And you can insert balanced braces with ! 132: \\[texinfo-insert-braces] and later use the command \\[up-list] to ! 133: move forward past the closing brace. ! 134: ! 135: Entering Texinfo mode calls the value of text-mode-hook, and then the ! 136: value of texinfo-mode-hook." ! 137: (interactive) ! 138: (text-mode) ! 139: (setq mode-name "Texinfo") ! 140: (setq major-mode 'texinfo-mode) ! 141: (use-local-map texinfo-mode-map) ! 142: (set-syntax-table texinfo-mode-syntax-table) ! 143: (make-local-variable 'require-final-newline) ! 144: (setq require-final-newline t) ! 145: (make-local-variable 'paragraph-separate) ! 146: (setq paragraph-separate (concat "^\b\\|^@[a-zA-Z]*[ \n]\\|" paragraph-separate)) ! 147: (make-local-variable 'paragraph-start) ! 148: (setq paragraph-start (concat "^\b\\|^@[a-zA-Z]*[ \n]\\|" paragraph-start)) ! 149: (make-local-variable 'fill-column) ! 150: (setq fill-column 72) ! 151: (make-local-variable 'comment-start) ! 152: (setq comment-start "@c ") ! 153: (make-local-variable 'comment-start-skip) ! 154: (setq comment-start-skip "@c +") ! 155: (run-hooks 'text-mode-hook 'texinfo-mode-hook)) ! 156: ! 157: (defvar texinfo-heading-pattern ! 158: "^@\\(chapter\\|unnum\\|appendix\\|sect\\|sub\\|heading\\|major\\|node\\)" ! 159: "This is a regular expression to match Texinfo lines that are chapter ! 160: or sections headings or like such.") ! 161: ! 162: (defun texinfo-show-structure () ! 163: "Show the structure of a Texinfo file by listing the lines with the ! 164: @-sign commands for @node, @chapter, @section and the like. Lines ! 165: with structuring commands in them are displayed in another window ! 166: called the *Occur* window. In that window, you can position the ! 167: cursor over one of the lines and use \\[occur-mode-goto-occurrence], ! 168: to jump to the corresponding spot in the Texinfo file." ! 169: (interactive) ! 170: (save-excursion ! 171: (goto-char (point-min)) ! 172: (occur texinfo-heading-pattern)) ! 173: (pop-to-buffer "*Occur*") ! 174: (goto-char (point-min)) ! 175: (flush-lines "-----"))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.