annotate lisp/textmodes/texinfo.el @ 32173:fea92799d3e9

(safe_call): Renamed from call_function. (safe_eval): Renamed from eval_form. (safe_call1): Add prototype.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 05 Oct 2000 19:26:09 +0000
parents a574e0bf807d
children ba17aee48a18
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 12815
diff changeset
1 ;;; texinfo.el --- major mode for editing Texinfo files
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 12815
diff changeset
2
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
3 ;; Copyright (C) 1985, '88, '89, '90, '91,
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
4 ;; '92, '93, '96, '97 Free Software Foundation, Inc.
840
113281b361ec *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
6 ;; Author: Robert J. Chassell
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
7 ;; Date: [Set date below for texinfo-version]
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 24285
diff changeset
8 ;; Maintainer: bug-texinfo@gnu.org
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
9 ;; Keywords: maint, tex, docs
139
8e1e4ca81016 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 128
diff changeset
10
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 12815
diff changeset
11 ;; This file is part of GNU Emacs.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
12
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
16 ;; any later version.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
17
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
22
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14009
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14009
diff changeset
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14009
diff changeset
26 ;; Boston, MA 02111-1307, USA.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
27
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
28 ;;; Code:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
29
19630
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
30 (or (fboundp 'defgroup)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
31 (defmacro defgroup (&rest ignore) nil))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
32
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
33 (or (fboundp 'defcustom)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
34 (defmacro defcustom (var value doc &rest ignore)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
35 `(defvar ,var ,value ,doc)))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 19503
diff changeset
36
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
37 (defgroup texinfo nil
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
38 "Texinfo Mode"
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
39 :group 'docs)
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
40
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
41
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
42 ;;; Autoloads:
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
43
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
44 (autoload 'makeinfo-region
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
45 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
46 "Make Info file from region of current Texinfo file, and switch to it.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
47
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
48 This command does not offer the `next-error' feature since it would
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
49 apply to a temporary file, not the original; use the `makeinfo-buffer'
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
50 command to gain use of `next-error'."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
51 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
52
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
53 (autoload 'makeinfo-buffer
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
54 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
55 "Make Info file from current buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
56
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
57 Use the \\[next-error] command to move to the next error
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
58 \(if there are errors\)."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
59 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
60
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
61 (autoload 'kill-compilation
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
62 "compile"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
63 "Kill the process made by the \\[compile] command."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
64 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
65
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
66 (autoload 'makeinfo-recenter-compilation-buffer
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
67 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
68 "Redisplay `*compilation*' buffer so most recent output can be seen.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
69 The last line of the buffer is displayed on
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
70 line LINE of the window, or centered if LINE is nil."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
71 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
72
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
73 (autoload 'texinfo-update-node
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
74 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
75 "Without any prefix argument, update the node in which point is located.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
76 Non-nil argument (prefix, if interactive) means update the nodes in the
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
77 marked region.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
78
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
79 The functions for creating or updating nodes and menus, and their
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
80 keybindings, are:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
81
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
82 texinfo-update-node (&optional region-p) \\[texinfo-update-node]
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
83 texinfo-every-node-update () \\[texinfo-every-node-update]
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
84 texinfo-sequential-node-update (&optional region-p)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
85
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
86 texinfo-make-menu (&optional region-p) \\[texinfo-make-menu]
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
87 texinfo-all-menus-update () \\[texinfo-all-menus-update]
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
88 texinfo-master-menu ()
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
89
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
90 texinfo-indent-menu-description (column &optional region-p)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
91
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
92 The `texinfo-column-for-description' variable specifies the column to
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
93 which menu descriptions are indented. Its default value is 32."
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
94 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
95
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
96 (autoload 'texinfo-every-node-update
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
97 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
98 "Update every node in a Texinfo file."
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
99 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
100
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
101 (autoload 'texinfo-sequential-node-update
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
102 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
103 "Update one node (or many) in a Texinfo file with sequential pointers.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
104
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
105 This function causes the `Next' or `Previous' pointer to point to the
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
106 immediately preceding or following node, even if it is at a higher or
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
107 lower hierarchical level in the document. Continually pressing `n' or
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
108 `p' takes you straight through the file.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
109
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
110 Without any prefix argument, update the node in which point is located.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
111 Non-nil argument (prefix, if interactive) means update the nodes in the
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
112 marked region.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
113
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
114 This command makes it awkward to navigate among sections and
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
115 subsections; it should be used only for those documents that are meant
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
116 to be read like a novel rather than a reference, and for which the
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
117 Info `g*' command is inadequate."
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
118 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
119
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
120 (autoload 'texinfo-make-menu
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
121 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
122 "Without any prefix argument, make or update a menu.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
123 Make the menu for the section enclosing the node found following point.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
124
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
125 Non-nil argument (prefix, if interactive) means make or update menus
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
126 for nodes within or part of the marked region.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
127
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
128 Whenever a menu exists, and is being updated, the descriptions that
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
129 are associated with node names in the pre-existing menu are
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
130 incorporated into the new menu. Otherwise, the nodes' section titles
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
131 are inserted as descriptions."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
132 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
133
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
134 (autoload 'texinfo-all-menus-update
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
135 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
136 "Update every regular menu in a Texinfo file.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
137 Remove pre-existing master menu, if there is one.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
138
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
139 If called with a non-nil argument, this function first updates all the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
140 nodes in the buffer before updating the menus."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
141 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
142
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
143 (autoload 'texinfo-master-menu
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
144 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
145 "Make a master menu for a whole Texinfo file.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
146 Non-nil argument (prefix, if interactive) means first update all
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
147 existing nodes and menus. Remove pre-existing master menu, if there is one.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
148
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
149 This function creates a master menu that follows the top node. The
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
150 master menu includes every entry from all the other menus. It
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
151 replaces any existing ordinary menu that follows the top node.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
152
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
153 If called with a non-nil argument, this function first updates all the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
154 menus in the buffer (incorporating descriptions from pre-existing
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
155 menus) before it constructs the master menu.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
156
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
157 The function removes the detailed part of an already existing master
14009
dbc49672f847 (texinfo-master-menu): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
158 menu. This action depends on the pre-existing master menu using the
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
159 standard `texinfo-master-menu-header'.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
160
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
161 The master menu has the following format, which is adapted from the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
162 recommendation in the Texinfo Manual:
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
163
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
164 * The first part contains the major nodes in the Texinfo file: the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
165 nodes for the chapters, chapter-like sections, and the major
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
166 appendices. This includes the indices, so long as they are in
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
167 chapter-like sections, such as unnumbered sections.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
168
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
169 * The second and subsequent parts contain a listing of the other,
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
170 lower level menus, in order. This way, an inquirer can go
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
171 directly to a particular node if he or she is searching for
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
172 specific information.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
173
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
174 Each of the menus in the detailed node listing is introduced by the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
175 title of the section containing the menu."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
176 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
177
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
178 (autoload 'texinfo-indent-menu-description
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
179 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
180 "Indent every description in menu following point to COLUMN.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
181 Non-nil argument (prefix, if interactive) means indent every
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
182 description in every menu in the region. Does not indent second and
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
183 subsequent lines of a multi-line description."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
184 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
185
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
186 (autoload 'texinfo-insert-node-lines
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
187 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
188 "Insert missing `@node' lines in region of Texinfo file.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
189 Non-nil argument (prefix, if interactive) means also to insert the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
190 section titles as node names; and also to insert the section titles as
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
191 node names in pre-existing @node lines that lack names."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
192 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
193
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
194 (autoload 'texinfo-start-menu-description
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
195 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
196 "In this menu entry, insert the node's section title as a description.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
197 Position point at beginning of description ready for editing.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
198 Do not insert a title if the line contains an existing description.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
199
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
200 You will need to edit the inserted text since a useful description
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
201 complements the node name rather than repeats it as a title does."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
202 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
203
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
204 (autoload 'texinfo-multiple-files-update
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
205 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
206 "Update first node pointers in each file included in OUTER-FILE;
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
207 create or update main menu in the outer file that refers to such nodes.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
208 This does not create or update menus or pointers within the included files.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
209
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
210 With optional MAKE-MASTER-MENU argument (prefix arg, if interactive),
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
211 insert a master menu in OUTER-FILE. This does not create or update
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
212 menus or pointers within the included files.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
213
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
214 With optional UPDATE-EVERYTHING argument (numeric prefix arg, if
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
215 interactive), update all the menus and all the `Next', `Previous', and
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
216 `Up' pointers of all the files included in OUTER-FILE before inserting
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
217 a master menu in OUTER-FILE.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
218
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
219 The command also updates the `Top' level node pointers of OUTER-FILE.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
220
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
221 Notes:
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
222
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
223 * this command does NOT save any files--you must save the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
224 outer file and any modified, included files.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
225
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
226 * except for the `Top' node, this command does NOT handle any
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
227 pre-existing nodes in the outer file; hence, indices must be
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
228 enclosed in an included file.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
229
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
230 Requirements:
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
231
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
232 * each of the included files must contain exactly one highest
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
233 hierarchical level node,
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
234 * this highest node must be the first node in the included file,
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
235 * each highest hierarchical level node must be of the same type.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
236
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
237 Thus, normally, each included file contains one, and only one,
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
238 chapter."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
239 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
240
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
241
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
242 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
243
2835
6af690e58256 (texinfo-tex-region): Update name of tex-set-buffer-directory.
Richard M. Stallman <rms@gnu.org>
parents: 2834
diff changeset
244 ;;; Don't you dare insert any `require' calls at top level in this file--rms.
2834
ce2187c33f4c Don't require tex-mode or texnfo-upd.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
245
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
246 (defvar texinfo-section-list
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
247 '(("top" 1)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
248 ("majorheading" 1)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
249 ("chapter" 2)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
250 ("unnumbered" 2)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
251 ("appendix" 2)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
252 ("chapheading" 2)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
253 ("section" 3)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
254 ("unnumberedsec" 3)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
255 ("appendixsec" 3)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
256 ("heading" 3)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
257 ("subsection" 4)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
258 ("unnumberedsubsec" 4)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
259 ("appendixsubsec" 4)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
260 ("subheading" 4)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
261 ("subsubsection" 5)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
262 ("unnumberedsubsubsec" 5)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
263 ("appendixsubsubsec" 5)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
264 ("subsubheading" 5))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
265 "Alist of sectioning commands and their relative level.")
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
266
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
267 ;;; Syntax table
2902
573fc5cd8175 (texinfo-chapter-level-regexp): Copied here.
Richard M. Stallman <rms@gnu.org>
parents: 2835
diff changeset
268
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
269 (defvar texinfo-mode-syntax-table nil)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
270
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
271 (if texinfo-mode-syntax-table
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
272 nil
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
273 (setq texinfo-mode-syntax-table (make-syntax-table))
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
274 (modify-syntax-entry ?\" " " texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
275 (modify-syntax-entry ?\\ " " texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
276 (modify-syntax-entry ?@ "\\" texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
277 (modify-syntax-entry ?\^q "\\" texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
278 (modify-syntax-entry ?\[ "(]" texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
279 (modify-syntax-entry ?\] ")[" texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
280 (modify-syntax-entry ?{ "(}" texinfo-mode-syntax-table)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
281 (modify-syntax-entry ?} "){" texinfo-mode-syntax-table)
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
282 (modify-syntax-entry ?\n ">" texinfo-mode-syntax-table)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
283 (modify-syntax-entry ?\' "w" texinfo-mode-syntax-table))
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
284
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
285 ;; Written by Wolfgang Bangerth <zcg51122@rpool1.rus.uni-stuttgart.de>
14009
dbc49672f847 (texinfo-master-menu): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
286 ;; To override this example, set either `imenu-generic-expression'
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
287 ;; or `imenu-create-index-function'.
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
288 (defvar texinfo-imenu-generic-expression
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
289 '((nil "^@node[ \t]+\\([^,\n]*\\)" 1)
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
290 ("Chapters" "^@chapter[ \t]+\\(.*\\)$" 1))
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
291 "Imenu generic expression for TexInfo mode. See `imenu-generic-expression'.")
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
292
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
293 (defvar texinfo-font-lock-syntactic-keywords
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
294 '(("\\(@\\)c\\(omment\\)?\\>" (1 '(11)))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
295 ("^\\(@\\)ignore\\>" (1 '(2097163)))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
296 ("^@end ignore\\(\n\\)" (1 '(2097164))))
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
297 "Syntactic keywords to catch comment delimiters in `texinfo-mode'.")
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
298
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
299 (defface texinfo-heading-face
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
300 '((t (:inherit font-lock-function-name-face)))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
301 "Face used for section headings in `texinfo-mode'.")
32109
0b74dbd9edd6 (texinfo-heading-face): Forgot the var def.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32044
diff changeset
302 (defvar texinfo-heading-face 'texinfo-heading-face)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
303
9384
798467725c8d (texinfo-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7475
diff changeset
304 (defvar texinfo-font-lock-keywords
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
305 `(;; All but the first had an OVERRIDE of t.
14366
457651766766 Tweaked command regexp.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
306 ;; It didn't seem to be any better, and it's slower--simon.
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 24285
diff changeset
307 ;; Robert J. Chassell <bob@gnu.org> says remove this line.
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
308 ;;("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
309 ("@\\([a-zA-Z]+\\|[^ \t\n]\\)" 1 font-lock-keyword-face) ;commands
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
310 ("^\\*\\(.*\\)[\t ]*$" 1 font-lock-function-name-face t) ;menu items
25707
80e98999e8d9 (texinfo-font-lock-keywords): Add uref, command, option, env and sc.
Eli Zaretskii <eliz@gnu.org>
parents: 25278
diff changeset
311 ("@\\(emph\\|strong\\|b\\|i\\|sc\\){\\([^}]+\\)" 2 font-lock-comment-face)
16642
fb0dfd81302a (texinfo-font-lock-keywords): Add `url', `email'.
Richard M. Stallman <rms@gnu.org>
parents: 14760
diff changeset
312 ("@\\(file\\|kbd\\|key\\|url\\|email\\){\\([^}]+\\)" 2 font-lock-string-face)
25707
80e98999e8d9 (texinfo-font-lock-keywords): Add uref, command, option, env and sc.
Eli Zaretskii <eliz@gnu.org>
parents: 25278
diff changeset
313 ("@\\(samp\\|code\\|var\\|math\\|env\\|command\\|option\\){\\([^}]+\\)"
12815
da8a788528dd Rewrite texinfo-font-lock-keywords; don't fontify syntactically.
Simon Marshall <simon@gnu.org>
parents: 12703
diff changeset
314 2 font-lock-variable-name-face)
25707
80e98999e8d9 (texinfo-font-lock-keywords): Add uref, command, option, env and sc.
Eli Zaretskii <eliz@gnu.org>
parents: 25278
diff changeset
315 ("@\\(cite\\|[ux]?ref\\|pxref\\){\\([^}]+\\)" 2 font-lock-constant-face)
14739
c3c9db761b66 (texinfo-font-lock-keywords): Fixed regexp for `@end' and `@item'.
Richard M. Stallman <rms@gnu.org>
parents: 14366
diff changeset
316 ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-function-name-face keep)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
317 (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
318 ".*\n") 0 texinfo-heading-face t))
9384
798467725c8d (texinfo-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7475
diff changeset
319 "Additional expressions to highlight in TeXinfo mode.")
14760
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
320
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
321 (defun texinfo-outline-level ()
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
322 ;; Calculate level of current texinfo outline heading.
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
323 (save-excursion
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
324 (if (bobp)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
325 0
14760
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
326 (forward-char 1)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
327 (let* ((word (buffer-substring-no-properties
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
328 (point) (progn (forward-word 1) (point))))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
329 (entry (assoc word texinfo-section-list)))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
330 (if entry
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
331 (nth 1 entry)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
332 5)))))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
333
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
334
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
335 ;;; Keybindings
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
336 (defvar texinfo-mode-map nil)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
337
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
338 ;;; Keys common both to Texinfo mode and to TeX shell.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
339
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
340 (defun texinfo-define-common-keys (keymap)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
341 "Define the keys both in Texinfo mode and in the texinfo-tex-shell."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
342 (define-key keymap "\C-c\C-t\C-k" 'tex-kill-job)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
343 (define-key keymap "\C-c\C-t\C-x" 'texinfo-quit-job)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
344 (define-key keymap "\C-c\C-t\C-l" 'tex-recenter-output-buffer)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
345 (define-key keymap "\C-c\C-t\C-d" 'texinfo-delete-from-print-queue)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
346 (define-key keymap "\C-c\C-t\C-q" 'tex-show-print-queue)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
347 (define-key keymap "\C-c\C-t\C-p" 'texinfo-tex-print)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
348 (define-key keymap "\C-c\C-t\C-v" 'texinfo-tex-view)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
349 (define-key keymap "\C-c\C-t\C-i" 'texinfo-texindex)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
350
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
351 (define-key keymap "\C-c\C-t\C-r" 'texinfo-tex-region)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
352 (define-key keymap "\C-c\C-t\C-b" 'texinfo-tex-buffer))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
353
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
354 ;; Mode documentation displays commands in reverse order
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
355 ;; from how they are listed in the texinfo-mode-map.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
356
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
357 (if texinfo-mode-map
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
358 nil
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
359 (setq texinfo-mode-map (make-sparse-keymap))
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
360
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
361 ;; bindings for `texnfo-tex.el'
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
362 (texinfo-define-common-keys texinfo-mode-map)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
363
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
364 (define-key texinfo-mode-map "\"" 'texinfo-insert-quote)
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
365
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
366 ;; bindings for `makeinfo.el'
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
367 (define-key texinfo-mode-map "\C-c\C-m\C-k" 'kill-compilation)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
368 (define-key texinfo-mode-map "\C-c\C-m\C-l"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
369 'makeinfo-recenter-compilation-buffer)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
370 (define-key texinfo-mode-map "\C-c\C-m\C-r" 'makeinfo-region)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
371 (define-key texinfo-mode-map "\C-c\C-m\C-b" 'makeinfo-buffer)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
372
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
373 ;; bindings for `texinfmt.el'
4946
6aeb2c705774 (texinfo-mode-map): Add C-c C-e bindings for texinfmt.el.
Richard M. Stallman <rms@gnu.org>
parents: 4945
diff changeset
374 (define-key texinfo-mode-map "\C-c\C-e\C-r" 'texinfo-format-region)
6aeb2c705774 (texinfo-mode-map): Add C-c C-e bindings for texinfmt.el.
Richard M. Stallman <rms@gnu.org>
parents: 4945
diff changeset
375 (define-key texinfo-mode-map "\C-c\C-e\C-b" 'texinfo-format-buffer)
6aeb2c705774 (texinfo-mode-map): Add C-c C-e bindings for texinfmt.el.
Richard M. Stallman <rms@gnu.org>
parents: 4945
diff changeset
376
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
377 ;; AUCTeX-like bindings
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
378 (define-key texinfo-mode-map "\e\r" 'texinfo-insert-@item)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
379
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
380 ;; bindings for updating nodes and menus
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
381
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
382 (define-key texinfo-mode-map "\C-c\C-um" 'texinfo-master-menu)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
383
113
9827cb0af717 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 76
diff changeset
384 (define-key texinfo-mode-map "\C-c\C-u\C-m" 'texinfo-make-menu)
9827cb0af717 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 76
diff changeset
385 (define-key texinfo-mode-map "\C-c\C-u\C-n" 'texinfo-update-node)
9827cb0af717 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 76
diff changeset
386 (define-key texinfo-mode-map "\C-c\C-u\C-e" 'texinfo-every-node-update)
9827cb0af717 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 76
diff changeset
387 (define-key texinfo-mode-map "\C-c\C-u\C-a" 'texinfo-all-menus-update)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
388
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
389 (define-key texinfo-mode-map "\C-c\C-s" 'texinfo-show-structure)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
390
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
391 (define-key texinfo-mode-map "\C-c}" 'up-list)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
392 (define-key texinfo-mode-map "\C-c]" 'up-list)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
393 (define-key texinfo-mode-map "\C-c{" 'texinfo-insert-braces)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
394
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
395 ;; bindings for inserting strings
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
396 (define-key texinfo-mode-map "\C-c\C-o" 'texinfo-insert-block)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
397 (define-key texinfo-mode-map "\C-c\C-c\C-d" 'texinfo-start-menu-description)
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
398 (define-key texinfo-mode-map "\C-c\C-c\C-s" 'texinfo-insert-@strong)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
399 (define-key texinfo-mode-map "\C-c\C-c\C-e" 'texinfo-insert-@emph)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
400
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
401 (define-key texinfo-mode-map "\C-c\C-cv" 'texinfo-insert-@var)
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
402 (define-key texinfo-mode-map "\C-c\C-cu" 'texinfo-insert-@url)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
403 (define-key texinfo-mode-map "\C-c\C-ct" 'texinfo-insert-@table)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
404 (define-key texinfo-mode-map "\C-c\C-cs" 'texinfo-insert-@samp)
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
405 ;; (define-key texinfo-mode-map "\C-c\C-cr" 'texinfo-insert-@uref)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
406 (define-key texinfo-mode-map "\C-c\C-cq" 'texinfo-insert-@quotation)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
407 (define-key texinfo-mode-map "\C-c\C-co" 'texinfo-insert-@noindent)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
408 (define-key texinfo-mode-map "\C-c\C-cn" 'texinfo-insert-@node)
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
409 (define-key texinfo-mode-map "\C-c\C-cm" 'texinfo-insert-@email)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
410 (define-key texinfo-mode-map "\C-c\C-ck" 'texinfo-insert-@kbd)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
411 (define-key texinfo-mode-map "\C-c\C-ci" 'texinfo-insert-@item)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
412 (define-key texinfo-mode-map "\C-c\C-cf" 'texinfo-insert-@file)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
413 (define-key texinfo-mode-map "\C-c\C-cx" 'texinfo-insert-@example)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
414 (define-key texinfo-mode-map "\C-c\C-ce" 'texinfo-insert-@end)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
415 (define-key texinfo-mode-map "\C-c\C-cd" 'texinfo-insert-@dfn)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
416 (define-key texinfo-mode-map "\C-c\C-cc" 'texinfo-insert-@code))
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
417
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
418 (easy-menu-define texinfo-mode-menu
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
419 texinfo-mode-map
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
420 "Menu used for `texinfo-mode'."
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
421 '("Texinfo"
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
422 ["Insert block" texinfo-insert-block t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
423 ;; ["Insert node" texinfo-insert-@node t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
424 "----"
32110
a574e0bf807d (texinfo-mode-menu): Add an explicit shortcut for update all.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32109
diff changeset
425 ["Update All" (lambda () (interactive) (texinfo-master-menu t))
a574e0bf807d (texinfo-mode-menu): Add an explicit shortcut for update all.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32109
diff changeset
426 :keys "\\[universal-argument] \\[texinfo-master-menu]"]
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
427 ["Update every node" texinfo-every-node-update t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
428 ["Update node" texinfo-update-node t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
429 ["Make Master menu" texinfo-master-menu t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
430 ["Make menu" texinfo-make-menu t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
431 ["Update all menus" texinfo-all-menus-update t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
432 "----"
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
433 ["Show structure" texinfo-show-structure t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
434 ["Format region" texinfo-format-region t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
435 ["Format buffer" texinfo-format-buffer t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
436 ["Makeinfo region" makeinfo-region t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
437 ["Makeinfo buffer" makeinfo-buffer t]))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
438
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
439
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
440 ;;; Texinfo mode
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
441
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
442 ;; Also defined in texnfo-upd.el but copied here to avoid having
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
443 ;; to require texnfo-upd.el.
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
444 (defvar texinfo-chapter-level-regexp
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
445 "chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading"
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
446 "Regular expression matching Texinfo chapter-level headings.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
447 This does not match `@node' and does not match the `@top' command.")
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
448
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 139
diff changeset
449 ;;;###autoload
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
450 (define-derived-mode texinfo-mode text-mode "Texinfo"
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
451 "Major mode for editing Texinfo files.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
452
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
453 It has these extra commands:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
454 \\{texinfo-mode-map}
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
455
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
456 These are files that are used as input for TeX to make printed manuals
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
457 and also to be turned into Info files with \\[makeinfo-buffer] or
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
458 the `makeinfo' program. These files must be written in a very restricted and
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
459 modified version of TeX input format.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
460
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
461 Editing commands are like text-mode except that the syntax table is
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
462 set up so expression commands skip Texinfo bracket groups. To see
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
463 what the Info version of a region of the Texinfo file will look like,
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
464 use \\[makeinfo-region], which runs `makeinfo' on the current region.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
465
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
466 You can show the structure of a Texinfo file with \\[texinfo-show-structure].
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
467 This command shows the structure of a Texinfo file by listing the
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
468 lines with the @-sign commands for @chapter, @section, and the like.
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
469 These lines are displayed in another window called the *Occur* window.
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
470 In that window, you can position the cursor over one of the lines and
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
471 use \\[occur-mode-goto-occurrence], to jump to the corresponding spot
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
472 in the Texinfo file.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
473
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
474 In addition, Texinfo mode provides commands that insert various
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
475 frequently used @-sign commands into the buffer. You can use these
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
476 commands to save keystrokes. And you can insert balanced braces with
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
477 \\[texinfo-insert-braces] and later use the command \\[up-list] to
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
478 move forward past the closing brace.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
479
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
480 Also, Texinfo mode provides functions for automatically creating or
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
481 updating menus and node pointers. These functions
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
482
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
483 * insert the `Next', `Previous' and `Up' pointers of a node,
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
484 * insert or update the menu for a section, and
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
485 * create a master menu for a Texinfo source file.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
486
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
487 Here are the functions:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
488
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
489 texinfo-update-node \\[texinfo-update-node]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
490 texinfo-every-node-update \\[texinfo-every-node-update]
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
491 texinfo-sequential-node-update
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
492
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
493 texinfo-make-menu \\[texinfo-make-menu]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
494 texinfo-all-menus-update \\[texinfo-all-menus-update]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
495 texinfo-master-menu
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
496
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
497 texinfo-indent-menu-description (column &optional region-p)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
498
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
499 The `texinfo-column-for-description' variable specifies the column to
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
500 which menu descriptions are indented.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
501
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
502 Passed an argument (a prefix argument, if interactive), the
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
503 `texinfo-update-node' and `texinfo-make-menu' functions do their jobs
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
504 in the region.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
505
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
506 To use the updating commands, you must structure your Texinfo file
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
507 hierarchically, such that each `@node' line, with the exception of the
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
508 Top node, is accompanied by some kind of section line, such as an
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
509 `@chapter' or `@section' line.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
510
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
511 If the file has a `top' node, it must be called `top' or `Top' and
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
512 be the first node in the file.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
513
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
514 Entering Texinfo mode calls the value of `text-mode-hook', and then the
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
515 value of `texinfo-mode-hook'."
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
516 (make-local-variable 'page-delimiter)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
517 (setq page-delimiter
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
518 (concat
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
519 "^@node [ \t]*[Tt]op\\|^@\\("
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
520 texinfo-chapter-level-regexp
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
521 "\\)"))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
522 (make-local-variable 'require-final-newline)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
523 (setq require-final-newline t)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
524 (make-local-variable 'indent-tabs-mode)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
525 (setq indent-tabs-mode nil)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
526 (make-local-variable 'paragraph-separate)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
527 (setq paragraph-separate
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
528 (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-separate))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
529 (make-local-variable 'paragraph-start)
10897
09e80215057c (texinfo-mode): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 10669
diff changeset
530 (setq paragraph-start (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-start))
19503
0021bdfbc923 (texinfo-mode): Turn off adaptive-fill-mode.
Richard M. Stallman <rms@gnu.org>
parents: 17940
diff changeset
531 (make-local-variable 'adaptive-fill-mode)
0021bdfbc923 (texinfo-mode): Turn off adaptive-fill-mode.
Richard M. Stallman <rms@gnu.org>
parents: 17940
diff changeset
532 (setq adaptive-fill-mode nil)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
533 (make-local-variable 'fill-column)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
534 (setq fill-column 72)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
535 (make-local-variable 'comment-start)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
536 (setq comment-start "@c ")
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
537 (make-local-variable 'comment-start-skip)
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
538 (setq comment-start-skip "@c +\\|@comment +")
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
539 (make-local-variable 'words-include-escapes)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
540 (setq words-include-escapes t)
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
541 (make-local-variable 'imenu-generic-expression)
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
542 (setq imenu-generic-expression texinfo-imenu-generic-expression)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 19630
diff changeset
543 (setq imenu-case-fold-search nil)
9486
66079477d0e6 * texinfo.el: (texinfo-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents: 9384
diff changeset
544 (make-local-variable 'font-lock-defaults)
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
545 (setq font-lock-defaults
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
546 '(texinfo-font-lock-keywords nil nil nil nil
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
547 (font-lock-syntactic-keywords
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
548 . texinfo-font-lock-syntactic-keywords)))
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
549 (set (make-local-variable 'parse-sexp-lookup-properties) t)
14760
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
550 (make-local-variable 'outline-regexp)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
551 (setq outline-regexp
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
552 (concat "@" (regexp-opt (mapcar 'car texinfo-section-list) t) "\\>"))
14760
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
553 (make-local-variable 'outline-level)
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
554 (setq outline-level 'texinfo-outline-level)
4116
1be9089f7721 (texinfo-mode): Undo changes mistakenly added with
Richard M. Stallman <rms@gnu.org>
parents: 3894
diff changeset
555 (make-local-variable 'tex-start-of-header)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
556 (setq tex-start-of-header "%\\*\\*start")
4116
1be9089f7721 (texinfo-mode): Undo changes mistakenly added with
Richard M. Stallman <rms@gnu.org>
parents: 3894
diff changeset
557 (make-local-variable 'tex-end-of-header)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
558 (setq tex-end-of-header "%\\*\\*end")
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
559 (make-local-variable 'tex-first-line-header-regexp)
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
560 (setq tex-first-line-header-regexp "^\\\\input")
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
561 (make-local-variable 'tex-trailer)
31870
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
562 (setq tex-trailer "@bye\n")
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
563
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
564 ;; Prevent filling certain lines, in addition to ones specified
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
565 ;; by the user.
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
566 (let ((prevent-filling "^@\\(def\\|multitable\\)"))
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
567 (make-local-variable 'auto-fill-inhibit-regexp)
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
568 (if (null auto-fill-inhibit-regexp)
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
569 (setq auto-fill-inhibit-regexp prevent-filling)
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
570 (setq auto-fill-inhibit-regexp
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
571 (concat "\\(" auto-fill-inhibit-regexp "\\)\\|\\("
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
572 prevent-filling "\\)")))))
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
573
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
574
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
575
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
576 ;;; Insert string commands
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
577
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
578 (defconst texinfo-environments
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
579 '("cartouche"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
580 "defcv"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
581 "deffn"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
582 "defivar"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
583 "defmac"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
584 "defmethod"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
585 "defop"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
586 "defopt"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
587 "defspec"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
588 "deftp"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
589 "deftypefn"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
590 "deftypefun"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
591 "deftypevar"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
592 "deftypevr"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
593 "defun"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
594 "defvar"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
595 "defvr"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
596 "description"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
597 "display"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
598 "enumerate"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
599 "example"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
600 "flushleft"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
601 "flushright"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
602 "format"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
603 "ftable"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
604 "group"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
605 "ifclear"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
606 "ifset"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
607 "ifhtml"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
608 "ifinfo"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
609 "ifnothtml"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
610 "ifnotinfo"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
611 "ifnottex"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
612 "iftex"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
613 "ignore"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
614 "itemize"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
615 "lisp"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
616 "macro"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
617 "multitable"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
618 "quotation"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
619 "smalldisplay"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
620 "smallexample"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
621 "smallformat"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
622 "smalllisp"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
623 "table"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
624 "tex"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
625 "titlepage"
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
626 "vtable")
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
627 "List of TeXinfo environments.")
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
628
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
629 ;; Keep as concatenated lists for ease of maintenance
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
630 (defconst texinfo-environment-regexp
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
631 (concat "^@" (regexp-opt (cons "end" texinfo-environments) t) "\\>")
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
632 "Regexp for environment-like TexInfo list commands.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
633 Subexpression 1 is what goes into the corresponding `@end' statement.")
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
634
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
635 (define-skeleton texinfo-insert-block
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
636 "Create a matching pair @<cmd> .. @end <cmd> at point.
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
637 Puts point on a blank line between them."
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
638 (completing-read "Block name: " (mapcar 'list texinfo-environments))
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
639 "@" str \n _ \n "@end " str \n)
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
640
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
641 (defun texinfo-inside-macro-p (macro &optional bound)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
642 "Non-nil if inside a macro matching the regexp MACRO."
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
643 (ignore-errors
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
644 (save-excursion
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
645 (save-restriction
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
646 (narrow-to-region bound (point))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
647 (while (progn
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
648 (up-list -1)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
649 (not (ignore-errors
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
650 (save-excursion
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
651 (backward-sexp 1)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
652 (looking-at macro))))))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
653 t))))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
654
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
655 (defun texinfo-inside-env-p (env &optional bound)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
656 "Non-nil if inside an environment matching the regexp @ENV."
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
657 (save-excursion
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
658 (and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
659 (looking-at (concat "@" env)))))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
660
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
661 (autoload 'tex-insert-quote "tex-mode" nil t)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
662 (defun texinfo-insert-quote (&optional arg)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
663 "Insert the appropriate quote mark for TeXinfo.
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
664 Inserts a plain \" if inside @code or @example, else inserts `` or ''
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
665 by calling `tex-insert-quote'."
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
666 (interactive "*P")
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
667 (let ((top (or (save-excursion (re-search-backward "@node\\>" nil t))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
668 (point-min))))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
669 (if (or (texinfo-inside-env-p "example\\>" top)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
670 (texinfo-inside-macro-p "@code\\>" top))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
671 (self-insert-command (prefix-numeric-value arg))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
672 (tex-insert-quote arg))))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
673
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
674 ;; The following texinfo-insert-@end command not only inserts a SPC
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
675 ;; after the @end, but tries to find out what belongs there. It is
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
676 ;; not very smart: it does not understand nested lists.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
677
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
678 (defun texinfo-insert-@end ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
679 "Insert the matching `@end' for the last Texinfo command that needs one."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
680 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
681 (let ((depth 1) string)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
682 (save-excursion
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
683 (while (and (> depth 0)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
684 (re-search-backward texinfo-environment-regexp nil t))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
685 (if (looking-at "@end")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
686 (setq depth (1+ depth))
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
687 (setq depth (1- depth))))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
688 (looking-at texinfo-environment-regexp)
10669
53b3d5117779 (texinfo-environment-regexp): Match @menu and
Richard M. Stallman <rms@gnu.org>
parents: 9486
diff changeset
689 (if (zerop depth)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
690 (setq string
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
691 (buffer-substring (match-beginning 1)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
692 (match-end 1)))))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
693 (insert "@end ")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
694 (if string (insert string "\n"))))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
695
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
696 ;; The following insert commands accept a prefix arg N, which is the
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
697 ;; number of words (actually s-exprs) that should be surrounded by
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
698 ;; braces. Thus you can first paste a variable name into a .texinfo
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
699 ;; buffer, then say C-u 1 C-c C-c v at the beginning of the just
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
700 ;; pasted variable name to put @var{...} *around* the variable name.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
701 ;; Operate on previous word or words with negative arg.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
702
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
703 ;; These commands use texinfo-insert-@-with-arg
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
704 (defun texinfo-insert-@-with-arg (string &optional arg)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
705 (if arg
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
706 (progn
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
707 (setq arg (prefix-numeric-value arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
708 (if (< arg 0)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
709 (progn
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
710 (skip-chars-backward " \t\n\r\f")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
711 (save-excursion
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
712 (forward-sexp arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
713 (insert "@" string "{"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
714 (insert "}"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
715 (skip-chars-forward " \t\n\r\f")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
716 (insert "@" string "{")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
717 (forward-sexp arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
718 (insert "}")))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
719 (insert "@" string "{}")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
720 (backward-char)))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
721
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
722 (defun texinfo-insert-braces ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
723 "Make a pair of braces and be poised to type inside of them.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
724 Use \\[up-list] to move forward out of the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
725 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
726 (insert "{}")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
727 (backward-char))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
728
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
729 (defun texinfo-insert-@code (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
730 "Insert a `@code{...}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
731 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
732 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
733 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
734 (texinfo-insert-@-with-arg "code" arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
735
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
736 (defun texinfo-insert-@dfn (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
737 "Insert a `@dfn{...}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
738 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
739 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
740 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
741 (texinfo-insert-@-with-arg "dfn" arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
742
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
743 (defun texinfo-insert-@email (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
744 "Insert a `@email{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
745 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
746 The default is not to surround any existing words with the braces."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
747 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
748 (texinfo-insert-@-with-arg "email" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
749
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
750 (defun texinfo-insert-@emph (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
751 "Insert a `@emph{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
752 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
753 The default is not to surround any existing words with the braces."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
754 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
755 (texinfo-insert-@-with-arg "emph" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
756
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
757 (defun texinfo-insert-@example ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
758 "Insert the string `@example' in a Texinfo buffer."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
759 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
760 (insert "@example\n"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
761
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
762 (defun texinfo-insert-@file (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
763 "Insert a `@file{...}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
764 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
765 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
766 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
767 (texinfo-insert-@-with-arg "file" arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
768
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
769 (defun texinfo-insert-@item ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
770 "Insert the string `@item' in a Texinfo buffer."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
771 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
772 (insert "@item")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
773 (newline))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
774
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
775 (defun texinfo-insert-@kbd (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
776 "Insert a `@kbd{...}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
777 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
778 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
779 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
780 (texinfo-insert-@-with-arg "kbd" arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
781
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
782 (defun texinfo-insert-@node ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
783 "Insert the string `@node' in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
784 This also inserts on the following line a comment indicating
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
785 the order of arguments to @node."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
786 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
787 (insert "@node \n@comment node-name, next, previous, up")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
788 (forward-line -1)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
789 (forward-char 6))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
790
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
791 (defun texinfo-insert-@noindent ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
792 "Insert the string `@noindent' in a Texinfo buffer."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
793 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
794 (insert "@noindent\n"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
795
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
796 (defun texinfo-insert-@quotation ()
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
797 "Insert the string `@quotation' in a Texinfo buffer."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
798 (interactive)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
799 (insert "@quotation\n"))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
800
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
801 (defun texinfo-insert-@samp (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
802 "Insert a `@samp{...}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
803 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
804 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
805 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
806 (texinfo-insert-@-with-arg "samp" arg))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
807
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
808 (defun texinfo-insert-@strong (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
809 "Insert a `@strong{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
810 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
811 The default is not to surround any existing words with the braces."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
812 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
813 (texinfo-insert-@-with-arg "strong" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
814
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
815 (defun texinfo-insert-@table (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
816 "Insert the string `@table' in a Texinfo buffer."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
817 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
818 (insert "@table "))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
819
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
820 (defun texinfo-insert-@var (&optional arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
821 "Insert a `@var{}' command in a Texinfo buffer.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
822 A numeric argument says how many words the braces should surround.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
823 The default is not to surround any existing words with the braces."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
824 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
825 (texinfo-insert-@-with-arg "var" arg))
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
826
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
827 (defun texinfo-insert-@url (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
828 "Insert a `@url{}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
829 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
830 The default is not to surround any existing words with the braces."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
831 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
832 (texinfo-insert-@-with-arg "url" arg))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
833
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
834 ;;; Texinfo file structure
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
835
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
836 (defun texinfo-show-structure (&optional nodes-too)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
837 "Show the structure of a Texinfo file.
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
838 List the lines in the file that begin with the @-sign commands for
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
839 @chapter, @section, and the like.
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
840
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
841 With optional argument (prefix if interactive), list both the lines
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
842 with @-sign commands for @chapter, @section, and the like, and list
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
843 @node lines.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
844
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
845 Lines with structuring commands beginning in them are displayed in
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
846 another buffer named `*Occur*'. In that buffer, you can move point to
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
847 one of those lines and then use \\<occur-mode-map>\\[occur-mode-goto-occurrence],
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
848 to jump to the corresponding spot in the Texinfo source file."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
849
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
850 (interactive "P")
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
851 (save-excursion
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
852 (goto-char (point-min))
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
853 (if nodes-too
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
854 (occur (concat "^@node\\>\\|" outline-regexp))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
855 (occur outline-regexp)))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
856 (pop-to-buffer "*Occur*")
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
857 (goto-char (point-min))
23320
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
858 (let ((inhibit-read-only t))
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
859 (flush-lines "-----")
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
860 ;; Now format the "*Occur*" buffer to show the structure.
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
861 ;; Thanks to ceder@signum.se (Per Cederqvist)
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
862 (goto-char (point-max))
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
863 (let (level)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
864 (while (re-search-backward "^ *[0-9]*:@\\(\\sw+\\)" nil 0)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
865 (goto-char (1- (match-beginning 1)))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
866 (setq level (or (cadr (assoc (match-string 1) texinfo-section-list)) 2))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
867 (indent-to-column (+ (current-column) (* 4 (- level 2))))
23320
19a7a9d3fcc4 (texinfo-show-structure): Bind inhibit-read-only.
Karl Heuer <kwzh@gnu.org>
parents: 22694
diff changeset
868 (beginning-of-line)))))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
869
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
870 ;;; The tex and print function definitions:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
871
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
872 (defcustom texinfo-texi2dvi-command "texi2dvi"
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
873 "*Command used by `texinfo-tex-buffer' to run TeX and texindex on a buffer."
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
874 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
875 :group 'texinfo)
4981
e7fe9ea8e81c (texinfo-texi2dvi-command): Separate `texi2dvi'
Richard M. Stallman <rms@gnu.org>
parents: 4946
diff changeset
876
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
877 (defcustom texinfo-tex-command "tex"
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
878 "*Command used by `texinfo-tex-region' to run TeX on a region."
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
879 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
880 :group 'texinfo)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
881
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
882 (defcustom texinfo-texindex-command "texindex"
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
883 "*Command used by `texinfo-texindex' to sort unsorted index files."
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
884 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
885 :group 'texinfo)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
886
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
887 (defcustom texinfo-delete-from-print-queue-command "lprm"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
888 "*Command string used to delete a job from the line printer queue.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
889 Command is used by \\[texinfo-delete-from-print-queue] based on
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
890 number provided by a previous \\[tex-show-print-queue]
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
891 command."
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
892 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
893 :group 'texinfo)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
895 (defvar texinfo-tex-trailer "@bye"
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
896 "String appended after a region sent to TeX by `texinfo-tex-region'.")
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
897
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
898 (defun texinfo-tex-region (beg end)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
899 "Run TeX on the current region.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
900 This works by writing a temporary file (`tex-zap-file') in the directory
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
901 that is the value of `tex-directory', then running TeX on that file.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
902
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
903 The first line of the buffer is copied to the
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1188
diff changeset
904 temporary file; and if the buffer has a header, it is written to the
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1188
diff changeset
905 temporary file before the region itself. The buffer's header is all lines
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1188
diff changeset
906 between the strings defined by `tex-start-of-header' and `tex-end-of-header'
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
907 inclusive. The header must start in the first 100 lines.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
908
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
909 The value of `texinfo-tex-trailer' is appended to the temporary file after the region."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
910 (interactive "r")
2834
ce2187c33f4c Don't require tex-mode or texnfo-upd.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
911 (require 'tex-mode)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
912 (let ((tex-command texinfo-tex-command)
23871
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
913 (tex-trailer texinfo-tex-trailer))
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
914 (tex-region beg end)))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
915
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
916 (defun texinfo-tex-buffer ()
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
917 "Run TeX on visited file, once or twice, to make a correct `.dvi' file."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
918 (interactive)
4531
899976225848 (texinfo-delete-from-print-queue)
Richard M. Stallman <rms@gnu.org>
parents: 4116
diff changeset
919 (require 'tex-mode)
23871
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
920 (let ((tex-command texinfo-texi2dvi-command)
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
921 ;; Disable tex-start-options-string. texi2dvi would not
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
922 ;; understand anything specified here.
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
923 (tex-start-options-string ""))
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
924 (tex-buffer)))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
925
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
926 (defun texinfo-texindex ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
927 "Run `texindex' on unsorted index files.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
928 The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
929 This runs the shell command defined by `texinfo-texindex-command'."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
930 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
931 (require 'tex-mode)
5089
25c2db35fe1e (texinfo-tex-region): Use tex-send-command to do commands.
Richard M. Stallman <rms@gnu.org>
parents: 4981
diff changeset
932 (tex-send-command texinfo-texindex-command (concat tex-zap-file ".??"))
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
933 ;; alternatively
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
934 ;; (send-string "tex-shell"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
935 ;; (concat texinfo-texindex-command
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
936 ;; " " tex-zap-file ".??" "\n"))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
937 (tex-recenter-output-buffer nil))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
938
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
939 (defun texinfo-tex-print ()
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
940 "Print `.dvi' file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
941 This runs the shell command defined by `tex-dvi-print-command'."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
942 (interactive)
2834
ce2187c33f4c Don't require tex-mode or texnfo-upd.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
943 (require 'tex-mode)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
944 (tex-print))
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
945
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
946 (defun texinfo-tex-view ()
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
947 "View `.dvi' file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
948 This runs the shell command defined by `tex-dvi-view-command'."
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
949 (interactive)
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
950 (require 'tex-mode)
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
951 (tex-view))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
952
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
953 (defun texinfo-quit-job ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
954 "Quit currently running TeX job, by sending an `x' to it."
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
955 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
956 (if (not (get-process "tex-shell"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
957 (error "No TeX shell running"))
5089
25c2db35fe1e (texinfo-tex-region): Use tex-send-command to do commands.
Richard M. Stallman <rms@gnu.org>
parents: 4981
diff changeset
958 (tex-send-command "x"))
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
959 ;; alternatively:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
960 ;; save-excursion
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
961 ;; (set-buffer (get-buffer "*tex-shell*"))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
962 ;; (goto-char (point-max))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
963 ;; (insert "x")
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
964 ;; (comint-send-input)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
965
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
966 (defun texinfo-delete-from-print-queue (job-number)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
967 "Delete job from the line printer spooling queue.
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
968 You are prompted for the job number (use a number shown by a previous
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
969 \\[tex-show-print-queue] command)."
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
970 (interactive "nPrinter job number for deletion: ")
4531
899976225848 (texinfo-delete-from-print-queue)
Richard M. Stallman <rms@gnu.org>
parents: 4116
diff changeset
971 (require 'tex-mode)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
972 (if (tex-shell-running)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
973 (tex-kill-job)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
974 (tex-start-shell))
5089
25c2db35fe1e (texinfo-tex-region): Use tex-send-command to do commands.
Richard M. Stallman <rms@gnu.org>
parents: 4981
diff changeset
975 (tex-send-command texinfo-delete-from-print-queue-command job-number)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
976 ;; alternatively
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
977 ;; (send-string "tex-shell"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
978 ;; (concat
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
979 ;; texinfo-delete-from-print-queue-command
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
980 ;; " "
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
981 ;; job-number"\n"))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
982 (tex-recenter-output-buffer nil))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
983
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
984 (provide 'texinfo)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
985
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
986 ;;; texinfo.el ends here