![[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 [Apple XNU] / GNUtools / emacs / lisp|
Return to texinfo.el CVS log | Up to [Apple XNU] / GNUtools / emacs / 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 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 texinfo-mode-syntax-table nil)
22:
23: (if texinfo-mode-syntax-table
24: nil
25: (setq texinfo-mode-syntax-table (make-syntax-table))
26: (modify-syntax-entry ?\" " " texinfo-mode-syntax-table)
27: (modify-syntax-entry ?\\ " " texinfo-mode-syntax-table)
28: (modify-syntax-entry ?@ "\\" texinfo-mode-syntax-table)
29: (modify-syntax-entry ?\^q "\\" texinfo-mode-syntax-table)
30: (modify-syntax-entry ?\[ "(]" 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 ?\' "w" texinfo-mode-syntax-table))
35:
36: (defvar texinfo-mode-map nil)
37:
38: (if texinfo-mode-map
39: nil
40: (setq texinfo-mode-map (make-sparse-keymap))
41: (define-key texinfo-mode-map "\C-c\C-f" 'texinfo-format-region)
42: (define-key texinfo-mode-map "\C-c\C-s" 'texinfo-show-structure)
43: (define-key texinfo-mode-map "\e}" 'up-list)
44: (define-key texinfo-mode-map "\e{" 'texinfo-insert-braces)
45: (define-key texinfo-mode-map "\C-c\C-cv" 'texinfo-insert-@var)
46: (define-key texinfo-mode-map "\C-c\C-cs" 'texinfo-insert-@samp)
47: (define-key texinfo-mode-map "\C-c\C-cn" 'texinfo-insert-@node)
48: (define-key texinfo-mode-map "\C-c\C-ci" 'texinfo-insert-@item)
49: (define-key texinfo-mode-map "\C-c\C-ce" 'texinfo-insert-@end)
50: (define-key texinfo-mode-map "\C-c\C-cd" 'texinfo-insert-@dfn)
51: (define-key texinfo-mode-map "\C-c\C-cc" 'texinfo-insert-@code))
52:
53: (defun texinfo-insert-@var ()
54: "Insert the string @var in a texinfo buffer."
55: (interactive)
56: (insert "@var{}")
57: (backward-char))
58:
59: (defun texinfo-insert-@samp ()
60: "Insert the string @samp in a texinfo buffer."
61: (interactive)
62: (insert "@samp{}")
63: (backward-char))
64:
65: (defun texinfo-insert-@node ()
66: "Insert the string @node in a texinfo buffer,
67: along with a comment indicating the arguments to @node."
68: (interactive)
69: (insert "@node \n@comment node-name, next, previous, up")
70: (forward-line -1)
71: (forward-char 6))
72:
73: (defun texinfo-insert-@item ()
74: "Insert the string @item in a texinfo buffer."
75: (interactive)
76: (insert "@item")
77: (newline))
78:
79: (defun texinfo-insert-@end ()
80: "Insert the string @end in a texinfo buffer."
81: (interactive)
82: (insert "@end "))
83:
84: (defun texinfo-insert-@dfn ()
85: "Insert the string @dfn in a texinfo buffer."
86: (interactive)
87: (insert "@dfn{}")
88: (backward-char))
89:
90: (defun texinfo-insert-@code ()
91: "Insert the string @code in a texinfo buffer."
92: (interactive)
93: (insert "@code{}")
94: (backward-char))
95:
96: (defun texinfo-insert-braces ()
97: "Make a pair of braces and be poised to type inside of them.
98: Use \\[up-list] to move forward out of the braces."
99: (interactive)
100: (insert "{}")
101: (backward-char))
102:
103: (defun texinfo-mode ()
104: "Major mode for editing texinfo files.
105:
106: It has these extra commands:
107: \\{texinfo-mode-map}
108:
109: These are files that are used as input for TeX to make printed manuals
110: and also to be turned into Info files by \\[texinfo-format-buffer].
111: These files must be written in a very restricted and modified version
112: of TeX input format.
113:
114: Editing commands are like text-mode except that the syntax table is
115: set up so expression commands skip Texinfo bracket groups. To see
116: what the Info version of a region of the Texinfo file will look like,
117: use \\[texinfo-format-region]. This command runs Info on the current region
118: of the Texinfo file and formats it properly.
119:
120: You can show the structure of a Texinfo file with \\[texinfo-show-structure].
121: This command shows the structure of a Texinfo file by listing the
122: lines with the @-sign commands for @node, @chapter, @section and the
123: like. These lines are displayed in another window called the *Occur*
124: window. In that window, you can position the cursor over one of the
125: lines and use \\[occur-mode-goto-occurrence], to jump to the
126: corresponding spot in the Texinfo file.
127:
128: In addition, Texinfo mode provides commands that insert various
129: frequently used @-sign commands into the buffer. You can use these
130: commands to save keystrokes. And you can insert balanced braces with
131: \\[texinfo-insert-braces] and later use the command \\[up-list] to
132: move forward past the closing brace.
133:
134: Entering Texinfo mode calls the value of text-mode-hook, and then the
135: value of texinfo-mode-hook."
136: (interactive)
137: (kill-all-local-variables)
138: (setq mode-name "Texinfo")
139: (setq major-mode 'texinfo-mode)
140: (use-local-map texinfo-mode-map)
141: (set-syntax-table texinfo-mode-syntax-table)
142: (setq local-abbrev-table text-mode-abbrev-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.