annotate lisp/textmodes/texinfo.el @ 102800:758c9993c368

(Accessing Documentation): Update example to use help-setup-xref and with-help-window. (Help Functions): Remove print-help-return-message, which is semi-obsolete due to with-help-window. Document help-buffer and help-setup-xref.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 30 Mar 2009 21:57:28 +0000
parents a9dc0e7c3f2b
children 11a923a76fc4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
66423
5217bc507b30 (texinfo-mode): Use real chars, so as not to unnecessarily expose
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66293
diff changeset
1 ;;; texinfo.el --- major mode for editing Texinfo files -*- coding: iso-2022-7bit -*-
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 12815
diff changeset
2
57903
d6224ed60e43 Changed copyright years so all include centuries.
Robert J. Chassell <bob@rattlesnake.com>
parents: 54109
diff changeset
3 ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100114
diff changeset
4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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
32368
ba17aee48a18 Update copyright and fix typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32110
diff changeset
7 ;; Date: [See date below for texinfo-version]
53447
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
8 ;; Maintainer: FSF
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
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
69
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
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
16 ;; (at your option) any later version.
69
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
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
25
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
26 ;;; Todo:
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
27
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
28 ;; - facemenu support.
51891
62a53410dbd8 (texinfo-section-list): Append appendixsection; a synonym for appendixsec.
Juanma Barranquero <lekktu@gmail.com>
parents: 51527
diff changeset
29 ;; - command completion.
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
30
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38031
diff changeset
31 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38031
diff changeset
32
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
33 ;;; Code:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
34
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
35 (eval-when-compile (require 'tex-mode) (require 'cl))
65268
5b0c21a390e2 (outline-heading-alist): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
36 (defvar outline-heading-alist)
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
37
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
38 (defgroup texinfo nil
64061
a429e89a3bdf (texinfo): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents: 63856
diff changeset
39 "Texinfo Mode."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 66441
diff changeset
40 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
41 :group 'docs)
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
42
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
43 ;;;###autoload
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
44 (defcustom texinfo-open-quote "``"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
45 "String inserted by typing \\[texinfo-insert-quote] to open a quotation."
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
46 :type 'string
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
47 :group 'texinfo)
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
48
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
49 ;;;###autoload
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
50 (defcustom texinfo-close-quote "''"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
51 "String inserted by typing \\[texinfo-insert-quote] to close a quotation."
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
52 :type 'string
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
53 :group 'texinfo)
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
54
53447
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
55 (defcustom texinfo-mode-hook nil
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
56 "Normal hook run when entering Texinfo mode."
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
57 :type 'hook
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
58 :options '(turn-on-auto-fill flyspell-mode)
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
59 :group 'texinfo)
e877223fe03e Change maintainer to FSF. Suggested by
Simon Josefsson <jas@extundo.com>
parents: 52401
diff changeset
60
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
61
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
62 ;;; Autoloads:
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
63
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
64 (autoload 'makeinfo-region
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
65 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
66 "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
67
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
68 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
69 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
70 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
71 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
72
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
73 (autoload 'makeinfo-buffer
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
74 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
75 "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
76
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
77 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
78 \(if there are errors\)."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
79 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
80
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
81 (autoload 'kill-compilation
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
82 "compile"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
83 "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
84 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
85
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
86 (autoload 'makeinfo-recenter-compilation-buffer
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
87 "makeinfo"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
88 "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
89 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
90 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
91 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
92
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
93 (autoload 'texinfo-update-node
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
94 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
95 "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
96 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
97 marked region.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
98
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
99 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
100 keybindings, are:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
101
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
102 `texinfo-update-node' (&optional region-p) \\[texinfo-update-node]
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
103 `texinfo-every-node-update' () \\[texinfo-every-node-update]
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
104 `texinfo-sequential-node-update' (&optional region-p)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
105
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
106 `texinfo-make-menu' (&optional region-p) \\[texinfo-make-menu]
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
107 `texinfo-all-menus-update' () \\[texinfo-all-menus-update]
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
108 `texinfo-master-menu' ()
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
109
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
110 `texinfo-indent-menu-description' (column &optional region-p)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
111
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
112 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
113 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
114 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
115
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
116 (autoload 'texinfo-every-node-update
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
117 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
118 "Update every node in a Texinfo file."
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
119 t nil)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
120
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
121 (autoload 'texinfo-sequential-node-update
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
122 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
123 "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
124
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
125 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
126 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
127 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
128 `p' takes you straight through the file.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
129
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
130 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
131 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
132 marked region.
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
133
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
134 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
135 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
136 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
137 Info `g*' command is inadequate."
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
138 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
139
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
140 (autoload 'texinfo-make-menu
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
141 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
142 "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
143 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
144
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
145 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
146 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
147
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
148 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
149 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
150 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
151 are inserted as descriptions."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
152 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
153
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
154 (autoload 'texinfo-all-menus-update
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
155 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
156 "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
157 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
158
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
159 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
160 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
161 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
162
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
163 (autoload 'texinfo-master-menu
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
164 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
165 "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
166 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
167 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
168
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
169 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
170 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
171 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
172
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
173 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
174 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
175 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
176
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
177 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
178 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
179 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
180
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
181 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
182 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
183
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
184 * 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
185 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
186 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
187 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
188
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
189 * 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
190 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
191 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
192 specific information.
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 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
195 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
196 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
197
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
198 (autoload 'texinfo-indent-menu-description
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
199 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
200 "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
201 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
202 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
203 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
204 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
205
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
206 (autoload 'texinfo-insert-node-lines
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
207 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
208 "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
209 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
210 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
211 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
212 t nil)
3894
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 (autoload 'texinfo-start-menu-description
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
215 "texnfo-upd"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
216 "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
217 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
218 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
219
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
220 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
221 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
222 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
223
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
224 (autoload 'texinfo-multiple-files-update
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
225 "texnfo-upd"
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
226 "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
227 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
228 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
229
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
230 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
231 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
232 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
233
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
234 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
235 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
236 `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
237 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
238
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
239 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
240
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
241 Notes:
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
242
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
243 * 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
244 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
245
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
246 * 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
247 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
248 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
249
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
250 Requirements:
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
251
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
252 * 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
253 hierarchical level node,
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
254 * 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
255 * 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
256
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
257 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
258 chapter."
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
259 t nil)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
260
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
261
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
262 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
263
2835
6af690e58256 (texinfo-tex-region): Update name of tex-set-buffer-directory.
Richard M. Stallman <rms@gnu.org>
parents: 2834
diff changeset
264 ;;; 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
265
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
266 (defvar texinfo-section-list
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
267 '(("top" 1)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
268 ("chapter" 2)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
269 ("section" 3)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
270 ("subsection" 4)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
271 ("subsubsection" 5)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
272 ("unnumbered" 2)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
273 ("unnumberedsec" 3)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
274 ("unnumberedsubsec" 4)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
275 ("unnumberedsubsubsec" 5)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
276 ("appendix" 2)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
277 ("appendixsec" 3)
51891
62a53410dbd8 (texinfo-section-list): Append appendixsection; a synonym for appendixsec.
Juanma Barranquero <lekktu@gmail.com>
parents: 51527
diff changeset
278 ("appendixsection" 3)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
279 ("appendixsubsec" 4)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
280 ("appendixsubsubsec" 5)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
281 ("majorheading" 2)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
282 ("chapheading" 2)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
283 ("heading" 3)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
284 ("subheading" 4)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
285 ("subsubheading" 5))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
286 "Alist of sectioning commands and their relative level.")
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
287
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
288 ;;; Syntax table
2902
573fc5cd8175 (texinfo-chapter-level-regexp): Copied here.
Richard M. Stallman <rms@gnu.org>
parents: 2835
diff changeset
289
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
290 (defvar texinfo-mode-syntax-table
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
291 (let ((st (make-syntax-table)))
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
292 (modify-syntax-entry ?\" "." st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
293 (modify-syntax-entry ?\\ "." st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
294 (modify-syntax-entry ?@ "\\" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
295 (modify-syntax-entry ?\^q "\\" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
296 (modify-syntax-entry ?\[ "(]" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
297 (modify-syntax-entry ?\] ")[" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
298 (modify-syntax-entry ?{ "(}" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
299 (modify-syntax-entry ?} "){" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
300 (modify-syntax-entry ?\n ">" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
301 (modify-syntax-entry ?\' "w" st)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
302 st))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
303
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
304 ;; 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
305 ;; 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
306 ;; or `imenu-create-index-function'.
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
307 (defvar texinfo-imenu-generic-expression
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
308 '((nil "^@\\(node\\|anchor\\)[ \t]+\\([^,\n]*\\)" 2)
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
309 ("Chapters" "^@chapter[ \t]+\\(.*\\)$" 1))
53628
8707b3e084c6 Use "Texinfo" consistently, no "TeXinfo" or "TexInfo".
Karl Berry <karl@gnu.org>
parents: 53624
diff changeset
310 "Imenu generic expression for Texinfo mode. See `imenu-generic-expression'.")
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
311
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
312 (defvar texinfo-font-lock-syntactic-keywords
33251
8d7249947f7b (texinfo-section-list): Change majorheading to 2.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32368
diff changeset
313 '(("\\(@\\)c\\(omment\\)?\\>" (1 "<"))
8d7249947f7b (texinfo-section-list): Change majorheading to 2.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32368
diff changeset
314 ("^\\(@\\)ignore\\>" (1 "< b"))
8d7249947f7b (texinfo-section-list): Change majorheading to 2.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32368
diff changeset
315 ("^@end ignore\\(\n\\)" (1 "> b")))
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
316 "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
317
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
318 (defconst texinfo-environments
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
319 '("cartouche" "copying" "defcv" "deffn" "defivar" "defmac"
48062
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
320 "defmethod" "defop" "defopt" "defspec" "deftp" "deftypefn"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
321 "deftypefun" "deftypevar" "deftypevr" "defun" "defvar"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
322 "defvr" "description" "detailmenu" "direntry" "display"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
323 "documentdescription" "enumerate" "example" "flushleft"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
324 "flushright" "format" "ftable" "group" "ifclear" "ifset"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
325 "ifhtml" "ifinfo" "ifnothtml" "ifnotinfo" "ifnotplaintext"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
326 "ifnottex" "ifplaintext" "iftex" "ignore" "itemize" "lisp"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
327 "macro" "menu" "multitable" "quotation" "smalldisplay"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
328 "smallexample" "smallformat" "smalllisp" "table" "tex"
c9585243ef9f (texinfo-environments): Add environment; copying, documentdescription,
Juanma Barranquero <lekktu@gmail.com>
parents: 46216
diff changeset
329 "titlepage" "verbatim" "vtable")
53628
8707b3e084c6 Use "Texinfo" consistently, no "TeXinfo" or "TexInfo".
Karl Berry <karl@gnu.org>
parents: 53624
diff changeset
330 "List of Texinfo environments.")
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
331
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
332 (defconst texinfo-environment-regexp
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
333 (concat "^@" (regexp-opt (cons "end" texinfo-environments) t) "\\>")
53628
8707b3e084c6 Use "Texinfo" consistently, no "TeXinfo" or "TexInfo".
Karl Berry <karl@gnu.org>
parents: 53624
diff changeset
334 "Regexp for environment-like Texinfo list commands.
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
335 Subexpression 1 is what goes into the corresponding `@end' statement.")
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
336
63229
72fae6758182 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393
Miles Bader <miles@gnu.org>
parents: 62813
diff changeset
337 (defface texinfo-heading
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
338 '((t (:inherit font-lock-function-name-face)))
62813
f2a72c23fa03 (texinfo-heading-face): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents: 59254
diff changeset
339 "Face used for section headings in `texinfo-mode'."
f2a72c23fa03 (texinfo-heading-face): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents: 59254
diff changeset
340 :group 'texinfo)
63229
72fae6758182 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393
Miles Bader <miles@gnu.org>
parents: 62813
diff changeset
341 ;; backward-compatibility alias
72fae6758182 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393
Miles Bader <miles@gnu.org>
parents: 62813
diff changeset
342 (put 'texinfo-heading-face 'face-alias 'texinfo-heading)
72fae6758182 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393
Miles Bader <miles@gnu.org>
parents: 62813
diff changeset
343 (defvar texinfo-heading-face 'texinfo-heading)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
344
9384
798467725c8d (texinfo-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7475
diff changeset
345 (defvar texinfo-font-lock-keywords
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
346 `(;; All but the first had an OVERRIDE of t.
14366
457651766766 Tweaked command regexp.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
347 ;; 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
348 ;; 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
349 ;;("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t)
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
350 ("@\\([a-zA-Z]+\\|[^ \t\n]\\)" 1 font-lock-keyword-face) ;commands
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
351 ("^\\*\\([^\n:]*\\)" 1 font-lock-function-name-face t) ;menu items
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
352 ("@\\(emph\\|i\\|sc\\){\\([^}]+\\)" 2 'italic)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
353 ("@\\(strong\\|b\\){\\([^}]+\\)" 2 'bold)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
354 ("@\\(kbd\\|key\\|url\\|uref\\){\\([^}]+\\)" 2 font-lock-string-face)
37311
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
355 ;; The following two groups have an OVERRIDE of `keep' because
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
356 ;; their arguments frequently include a @@, and we don't want that
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
357 ;; to overwrite the normal fontification of the argument.
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
358 ("@\\(file\\|email\\){\\([^}]+\\)" 2 font-lock-string-face keep)
25707
80e98999e8d9 (texinfo-font-lock-keywords): Add uref, command, option, env and sc.
Eli Zaretskii <eliz@gnu.org>
parents: 25278
diff changeset
359 ("@\\(samp\\|code\\|var\\|math\\|env\\|command\\|option\\){\\([^}]+\\)"
37311
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
360 2 font-lock-variable-name-face keep)
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
361 ("@\\(cite\\|x?ref\\|pxref\\|dfn\\|inforef\\){\\([^}]+\\)"
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
362 2 font-lock-constant-face)
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
363 ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)
c7d4569e9615 (texinfo-font-lock-keywords): Add
Eli Zaretskii <eliz@gnu.org>
parents: 35431
diff changeset
364 ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
365 ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
46216
00a9017b1365 (texinfo-font-lock-keywords): Disable the automatic environment name update.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44970
diff changeset
366 ;; (,texinfo-environment-regexp
00a9017b1365 (texinfo-font-lock-keywords): Disable the automatic environment name update.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44970
diff changeset
367 ;; 1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
368 (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
369 ".*\n") 0 texinfo-heading-face t))
53628
8707b3e084c6 Use "Texinfo" consistently, no "TeXinfo" or "TexInfo".
Karl Berry <karl@gnu.org>
parents: 53624
diff changeset
370 "Additional expressions to highlight in Texinfo mode.")
14760
c6e53d665cec (texinfo-section-types-regexp)
Richard M. Stallman <rms@gnu.org>
parents: 14739
diff changeset
371
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
372 (defun texinfo-clone-environment (start end)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
373 (let ((endp nil))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
374 (save-excursion
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
375 (ignore-errors
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
376 (goto-char start)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
377 (when (looking-at "end\\Sw+\\(\\sw+\\)")
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
378 (setq endp t start (match-beginning 1) end (match-end 1)))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
379 (unless (get-char-property start 'text-clones)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
380 (if endp
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
381 (texinfo-last-unended-begin)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
382 (forward-word 1)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
383 (texinfo-next-unmatched-end))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
384 (skip-syntax-forward "^w")
46216
00a9017b1365 (texinfo-font-lock-keywords): Disable the automatic environment name update.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44970
diff changeset
385 (when (looking-at
00a9017b1365 (texinfo-font-lock-keywords): Disable the automatic environment name update.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44970
diff changeset
386 (concat (regexp-quote (buffer-substring start end)) "\\>"))
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
387 (text-clone-create start end 'spread "\\w*")))))))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
388
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
389
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
390 ;;; Keybindings
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
391
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
392 ;;; 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
393
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
394 (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
395 "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
396 (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
397 (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
398 (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
399 (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
400 (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
401 (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
402 (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
403 (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
404
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
405 (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
406 (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
407
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
408 ;; Mode documentation displays commands in reverse order
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
409 ;; 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
410
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
411 (defvar texinfo-mode-map
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
412 (let ((map (make-sparse-keymap)))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
413
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
414 ;; bindings for `texnfo-tex.el'
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
415 (texinfo-define-common-keys map)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
416
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
417 (define-key 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
418
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
419 ;; bindings for `makeinfo.el'
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
420 (define-key map "\C-c\C-m\C-k" 'kill-compilation)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
421 (define-key map "\C-c\C-m\C-l"
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
422 'makeinfo-recenter-compilation-buffer)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
423 (define-key map "\C-c\C-m\C-r" 'makeinfo-region)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
424 (define-key map "\C-c\C-m\C-b" 'makeinfo-buffer)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
425
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
426 ;; bindings for `texinfmt.el'
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
427 (define-key map "\C-c\C-e\C-r" 'texinfo-format-region)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
428 (define-key map "\C-c\C-e\C-b" 'texinfo-format-buffer)
4946
6aeb2c705774 (texinfo-mode-map): Add C-c C-e bindings for texinfmt.el.
Richard M. Stallman <rms@gnu.org>
parents: 4945
diff changeset
429
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
430 ;; AUCTeX-like bindings
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
431 (define-key map "\e\r" 'texinfo-insert-@item)
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
432
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
433 ;; bindings for updating nodes and menus
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
434
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
435 (define-key map "\C-c\C-um" 'texinfo-master-menu)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
436
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
437 (define-key map "\C-c\C-u\C-m" 'texinfo-make-menu)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
438 (define-key map "\C-c\C-u\C-n" 'texinfo-update-node)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
439 (define-key map "\C-c\C-u\C-e" 'texinfo-every-node-update)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
440 (define-key map "\C-c\C-u\C-a" 'texinfo-all-menus-update)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
441
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
442 (define-key map "\C-c\C-s" 'texinfo-show-structure)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
443
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
444 (define-key map "\C-c}" 'up-list)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
445 (define-key map "\C-c]" 'up-list)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
446 (define-key map "\C-c{" 'texinfo-insert-braces)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
447
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
448 ;; bindings for inserting strings
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
449 (define-key map "\C-c\C-o" 'texinfo-insert-block)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
450 (define-key map "\C-c\C-c\C-d" 'texinfo-start-menu-description)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
451 (define-key map "\C-c\C-c\C-s" 'texinfo-insert-@strong)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
452 (define-key map "\C-c\C-c\C-e" 'texinfo-insert-@emph)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
453
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
454 (define-key map "\C-c\C-cv" 'texinfo-insert-@var)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
455 (define-key map "\C-c\C-cu" 'texinfo-insert-@uref)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
456 (define-key map "\C-c\C-ct" 'texinfo-insert-@table)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
457 (define-key map "\C-c\C-cs" 'texinfo-insert-@samp)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
458 (define-key map "\C-c\C-cq" 'texinfo-insert-@quotation)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
459 (define-key map "\C-c\C-co" 'texinfo-insert-@noindent)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
460 (define-key map "\C-c\C-cn" 'texinfo-insert-@node)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
461 (define-key map "\C-c\C-cm" 'texinfo-insert-@email)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
462 (define-key map "\C-c\C-ck" 'texinfo-insert-@kbd)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
463 (define-key map "\C-c\C-ci" 'texinfo-insert-@item)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
464 (define-key map "\C-c\C-cf" 'texinfo-insert-@file)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
465 (define-key map "\C-c\C-cx" 'texinfo-insert-@example)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
466 (define-key map "\C-c\C-ce" 'texinfo-insert-@end)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
467 (define-key map "\C-c\C-cd" 'texinfo-insert-@dfn)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
468 (define-key map "\C-c\C-cc" 'texinfo-insert-@code)
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
469 map))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
470
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
471 (easy-menu-define texinfo-mode-menu
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
472 texinfo-mode-map
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
473 "Menu used for `texinfo-mode'."
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
474 '("Texinfo"
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
475 ["Insert block" texinfo-insert-block t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
476 ;; ["Insert node" texinfo-insert-@node t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
477 "----"
32110
a574e0bf807d (texinfo-mode-menu): Add an explicit shortcut for update all.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32109
diff changeset
478 ["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
479 :keys "\\[universal-argument] \\[texinfo-master-menu]"]
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
480 ["Update every node" texinfo-every-node-update t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
481 ["Update node" texinfo-update-node t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
482 ["Make Master menu" texinfo-master-menu t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
483 ["Make menu" texinfo-make-menu t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
484 ["Update all menus" texinfo-all-menus-update t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
485 "----"
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
486 ["Show structure" texinfo-show-structure t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
487 ["Format region" texinfo-format-region t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
488 ["Format buffer" texinfo-format-buffer t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
489 ["Makeinfo region" makeinfo-region t]
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
490 ["Makeinfo buffer" makeinfo-buffer t]))
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
491
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
492
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
493 (defun texinfo-filter (section list)
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
494 (let (res)
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
495 (dolist (x list) (if (eq section (cadr x)) (push (car x) res)))
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
496 res))
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
497
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
498 (defvar texinfo-chapter-level-regexp
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
499 (regexp-opt (texinfo-filter 2 texinfo-section-list))
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
500 "Regular expression matching just the Texinfo chapter level headings.")
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
501
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
502 ;;; Texinfo mode
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
503
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 139
diff changeset
504 ;;;###autoload
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
505 (define-derived-mode texinfo-mode text-mode "Texinfo"
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
506 "Major mode for editing Texinfo files.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
507
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
508 It has these extra commands:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
509 \\{texinfo-mode-map}
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
510
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
511 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
512 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
513 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
514 modified version of TeX input format.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
515
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
516 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
517 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
518 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
519 use \\[makeinfo-region], which runs `makeinfo' on the current region.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
520
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
521 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
522 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
523 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
524 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
525 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
526 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
527 in the Texinfo file.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
528
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
529 In addition, Texinfo mode provides commands that insert various
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
530 frequently used @-sign commands into the buffer. You can use these
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
531 commands to save keystrokes. And you can insert balanced braces with
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
532 \\[texinfo-insert-braces] and later use the command \\[up-list] to
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
533 move forward past the closing brace.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
534
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
535 Also, Texinfo mode provides functions for automatically creating or
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
536 updating menus and node pointers. These functions
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
537
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
538 * insert the `Next', `Previous' and `Up' pointers of a node,
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
539 * insert or update the menu for a section, and
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
540 * create a master menu for a Texinfo source file.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
541
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
542 Here are the functions:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
543
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
544 texinfo-update-node \\[texinfo-update-node]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
545 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
546 texinfo-sequential-node-update
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
547
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
548 texinfo-make-menu \\[texinfo-make-menu]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
549 texinfo-all-menus-update \\[texinfo-all-menus-update]
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
550 texinfo-master-menu
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
551
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
552 texinfo-indent-menu-description (column &optional region-p)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
553
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
554 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
555 which menu descriptions are indented.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
556
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
557 Passed an argument (a prefix argument, if interactive), the
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
558 `texinfo-update-node' and `texinfo-make-menu' functions do their jobs
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
559 in the region.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
560
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
561 To use the updating commands, you must structure your Texinfo file
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
562 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
563 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
564 `@chapter' or `@section' line.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
565
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
566 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
567 be the first node in the file.
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
568
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
569 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
570 value of `texinfo-mode-hook'."
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
571 (set (make-local-variable 'page-delimiter)
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
572 (concat
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
573 "^@node [ \t]*[Tt]op\\|^@\\("
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
574 texinfo-chapter-level-regexp
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
575 "\\)\\>"))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
576 (make-local-variable 'require-final-newline)
59254
0b36787d3411 (texinfo-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 57903
diff changeset
577 (setq require-final-newline mode-require-final-newline)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
578 (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
579 (setq indent-tabs-mode nil)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
580 (make-local-variable 'paragraph-separate)
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
581 (setq paragraph-separate
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
582 (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-separate))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
583 (make-local-variable 'paragraph-start)
10897
09e80215057c (texinfo-mode): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 10669
diff changeset
584 (setq paragraph-start (concat "\b\\|@[a-zA-Z]*[ \n]\\|" paragraph-start))
66293
9c6897b47b81 (texinfo-mode): Set sentence-end-base.
Richard M. Stallman <rms@gnu.org>
parents: 65268
diff changeset
585 (make-local-variable 'sentence-end-base)
9c6897b47b81 (texinfo-mode): Set sentence-end-base.
Richard M. Stallman <rms@gnu.org>
parents: 65268
diff changeset
586 (setq sentence-end-base
66441
90aa3875974e (texinfo-mode): Change charset of one quotation mark
Juri Linkov <juri@jurta.org>
parents: 66423
diff changeset
587 "\\(@\\(end\\)?dots{}\\|[.?!]\\)[]\"'$B!I$,1r}(B)}]*")
19503
0021bdfbc923 (texinfo-mode): Turn off adaptive-fill-mode.
Richard M. Stallman <rms@gnu.org>
parents: 17940
diff changeset
588 (make-local-variable 'adaptive-fill-mode)
0021bdfbc923 (texinfo-mode): Turn off adaptive-fill-mode.
Richard M. Stallman <rms@gnu.org>
parents: 17940
diff changeset
589 (setq adaptive-fill-mode nil)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
590 (make-local-variable 'fill-column)
34878
0a202ba683f0 (texinfo-mode): Set fill-column to 70.
Gerd Moellmann <gerd@gnu.org>
parents: 34372
diff changeset
591 (setq fill-column 70)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
592 (make-local-variable 'comment-start)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
593 (setq comment-start "@c ")
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
594 (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
595 (setq comment-start-skip "@c +\\|@comment +")
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
596 (make-local-variable 'words-include-escapes)
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
597 (setq words-include-escapes t)
12703
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
598 (make-local-variable 'imenu-generic-expression)
d550939c05d1 (texinfo-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12688
diff changeset
599 (setq imenu-generic-expression texinfo-imenu-generic-expression)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 19630
diff changeset
600 (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
601 (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
602 (setq font-lock-defaults
35431
0640a3850b33 (texinfo-mode): Use backward-paragraph
Gerd Moellmann <gerd@gnu.org>
parents: 34878
diff changeset
603 '(texinfo-font-lock-keywords nil nil nil backward-paragraph
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
604 (font-lock-syntactic-keywords
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
605 . 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
606 (set (make-local-variable 'parse-sexp-lookup-properties) t)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
607
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
608 ;; Outline settings.
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
609 (set (make-local-variable 'outline-heading-alist)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
610 ;; We should merge outline-heading-alist and texinfo-section-list
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
611 ;; but in the mean time, let's just generate one from the other.
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
612 (mapcar (lambda (x) (cons (concat "@" (car x)) (cadr x)))
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
613 texinfo-section-list))
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
614 (set (make-local-variable 'outline-regexp)
53647
5e31be49b42d (texinfo-mode): Remove ^ from outline-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53628
diff changeset
615 (concat (regexp-opt (mapcar 'car outline-heading-alist) t)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
616 "\\>"))
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
617
4116
1be9089f7721 (texinfo-mode): Undo changes mistakenly added with
Richard M. Stallman <rms@gnu.org>
parents: 3894
diff changeset
618 (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
619 (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
620 (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
621 (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
622 (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
623 (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
624 (make-local-variable 'tex-trailer)
31870
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
625 (setq tex-trailer "@bye\n")
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
626
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
627 ;; Prevent filling certain lines, in addition to ones specified
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
628 ;; by the user.
42f05d7aadd0 (texinfo-mode): Prevent filling lines
Gerd Moellmann <gerd@gnu.org>
parents: 28622
diff changeset
629 (let ((prevent-filling "^@\\(def\\|multitable\\)"))
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
630 (set (make-local-variable 'auto-fill-inhibit-regexp)
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
631 (if (null auto-fill-inhibit-regexp)
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
632 prevent-filling
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
633 (concat auto-fill-inhibit-regexp "\\|" prevent-filling)))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
634
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
635
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
636
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
637 ;;; Insert string commands
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
638
33367
e4270e3ec3a4 (texinfo-block-default): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33257
diff changeset
639 (defvar texinfo-block-default "example")
e4270e3ec3a4 (texinfo-block-default): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33257
diff changeset
640
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
641 (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
642 "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
643 Puts point on a blank line between them."
33367
e4270e3ec3a4 (texinfo-block-default): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33257
diff changeset
644 (setq texinfo-block-default
e4270e3ec3a4 (texinfo-block-default): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33257
diff changeset
645 (completing-read (format "Block name [%s]: " texinfo-block-default)
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
646 texinfo-environments
33367
e4270e3ec3a4 (texinfo-block-default): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33257
diff changeset
647 nil nil nil nil texinfo-block-default))
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
648 \n "@" str \n _ \n "@end " str \n)
28617
72fcbe69ee65 (texinfo-mode-syntax-table): Add \n as comment-end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28083
diff changeset
649
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
650 (defun texinfo-inside-macro-p (macro &optional bound)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
651 "Non-nil if inside a macro matching the regexp MACRO."
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
652 (condition-case nil
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
653 (save-excursion
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
654 (save-restriction
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
655 (narrow-to-region bound (point))
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
656 (while (progn
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
657 (up-list -1)
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
658 (not (condition-case nil
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
659 (save-excursion
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
660 (backward-sexp 1)
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
661 (looking-at macro))
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
662 (scan-error nil)))))
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
663 t))
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
664 (scan-error nil)))
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
665
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
666 (defun texinfo-inside-env-p (env &optional bound)
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
667 "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
668 (save-excursion
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
669 (and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
34372
58a3bd1f4b35 Move the (require 'cl) to the front of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34299
diff changeset
670 (not (match-end 1)))))
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
671
51527
6dd58876664c (texinfo-enable-quote-macros): Fix thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50135
diff changeset
672 (defvar texinfo-enable-quote-macros "@\\(code\\|samp\\|kbd\\)\\>")
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
673 (defvar texinfo-enable-quote-envs '("example\\>" "lisp\\>"))
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
674 (defun texinfo-insert-quote (&optional arg)
53628
8707b3e084c6 Use "Texinfo" consistently, no "TeXinfo" or "TexInfo".
Karl Berry <karl@gnu.org>
parents: 53624
diff changeset
675 "Insert the appropriate quote mark for Texinfo.
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
676 Usually inserts the value of `texinfo-open-quote' (normally ``) or
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
677 `texinfo-close-quote' (normally ''), depending on the context.
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
678 With prefix argument or inside @code or @example, inserts a plain \"."
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
679 (interactive "*P")
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
680 (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
681 (point-min))))
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
682 (if (or arg
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
683 (= (preceding-char) ?\\)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
684 (save-excursion
100114
bf1d69cb4681 (texinfo-insert-quote): Tweak previous change.
Glenn Morris <rgm@gnu.org>
parents: 100113
diff changeset
685 ;; Might be near the start of a (narrowed) buffer.
bf1d69cb4681 (texinfo-insert-quote): Tweak previous change.
Glenn Morris <rgm@gnu.org>
parents: 100113
diff changeset
686 (ignore-errors (backward-char (length texinfo-open-quote)))
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
687 (when (or (looking-at texinfo-open-quote)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
688 (looking-at texinfo-close-quote))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
689 (delete-char (length texinfo-open-quote))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
690 t))
50135
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
691 (texinfo-inside-macro-p texinfo-enable-quote-macros top)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
692 (let ((in-env nil))
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
693 (dolist (env texinfo-enable-quote-envs in-env)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
694 (if (texinfo-inside-env-p env top)
167c56f6d789 (texinfo-outline-level): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
695 (setq in-env t)))))
32044
3361e8eff740 (texinfo-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31870
diff changeset
696 (self-insert-command (prefix-numeric-value arg))
34119
fb272ca0c0b1 (texinfo-open-quote, texinfo-close-quote):
Eli Zaretskii <eliz@gnu.org>
parents: 33500
diff changeset
697 (insert
100113
bd6671636b3b Aaron S. Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents: 94670
diff changeset
698 (if (or (bobp)
bd6671636b3b Aaron S. Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents: 94670
diff changeset
699 (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)))
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
700 texinfo-open-quote
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
701 texinfo-close-quote)))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
702
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
703 ;; 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
704 ;; 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
705 ;; 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
706
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
707 (defun texinfo-last-unended-begin ()
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
708 (while (and (re-search-backward texinfo-environment-regexp)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
709 (looking-at "@end"))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
710 (texinfo-last-unended-begin)))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
711
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
712 (defun texinfo-next-unmatched-end ()
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
713 (while (and (re-search-forward texinfo-environment-regexp)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
714 (save-excursion
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
715 (goto-char (match-beginning 0))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
716 (not (looking-at "@end"))))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
717 (texinfo-next-unmatched-end)))
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
718
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
719 (defun texinfo-insert-@end ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
720 "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
721 (interactive)
40285
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
722 (let ((string
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
723 (ignore-errors
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
724 (save-excursion
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
725 (texinfo-last-unended-begin)
2869c6ed16fc (texinfo-environments, texinfo-environment-regexp): Hoisted.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
726 (match-string 1)))))
42527
4d8c90315557 (texinfo-insert-@end): Fix the change from 2001-10-24.
Eli Zaretskii <eliz@gnu.org>
parents: 42328
diff changeset
727 (insert "@end ")
4d8c90315557 (texinfo-insert-@end): Fix the change from 2001-10-24.
Eli Zaretskii <eliz@gnu.org>
parents: 42328
diff changeset
728 (if string (insert string "\n"))))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
729
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
730 ;; 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
731 ;; 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
732 ;; 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
733 ;; 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
734 ;; 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
735 ;; 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
736
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
737 ;; 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
738 (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
739 (if arg
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
740 (progn
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
741 (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
742 (if (< arg 0)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
743 (progn
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
744 (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
745 (save-excursion
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
746 (forward-sexp arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
747 (insert "@" string "{"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
748 (insert "}"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
749 (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
750 (insert "@" string "{")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
751 (forward-sexp arg)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
752 (insert "}")))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
753 (insert "@" string "{}")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
754 (backward-char)))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
755
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
756 (defun texinfo-insert-braces ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
757 "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
758 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
759 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
760 (insert "{}")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
761 (backward-char))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
762
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
763 (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
764 "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
765 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
766 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
767 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
768 (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
769
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
770 (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
771 "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
772 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
773 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
774 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
775 (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
776
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
777 (defun texinfo-insert-@email (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
778 "Insert a `@email{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
779 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
780 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
781 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
782 (texinfo-insert-@-with-arg "email" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
783
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
784 (defun texinfo-insert-@emph (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
785 "Insert a `@emph{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
786 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
787 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
788 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
789 (texinfo-insert-@-with-arg "emph" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
790
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
791 (defun texinfo-insert-@example ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
792 "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
793 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
794 (insert "@example\n"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
795
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
796 (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
797 "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
798 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
799 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
800 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
801 (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
802
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
803 (defun texinfo-insert-@item ()
54109
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
804 "Insert the string `@item' in a Texinfo buffer.
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
805 If in a table defined by @table, follow said string with a space.
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
806 Otherwise, follow with a newline."
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
807 (interactive)
54109
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
808 (insert "@item"
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
809 (if (equal (ignore-errors
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
810 (save-excursion
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
811 (texinfo-last-unended-begin)
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
812 (match-string 1)))
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
813 "table")
63856
6807fe842dea (texinfo-insert-@item): Change space constants "protected" from end of line by a
Juanma Barranquero <lekktu@gmail.com>
parents: 63229
diff changeset
814 ?\s
54109
96cfa4084fd1 (texinfo-insert-@item): Look for the current
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53647
diff changeset
815 ?\n)))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
816
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
817 (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
818 "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
819 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
820 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
821 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
822 (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
823
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
824 (defun texinfo-insert-@node ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
825 "Insert the string `@node' in a Texinfo buffer.
44970
5cc9ed7bc5b5 Cause `texinfo-insert-@node' to insert a carriage return after the
Robert J. Chassell <bob@rattlesnake.com>
parents: 43808
diff changeset
826 Insert a comment on the following line indicating the order of
5cc9ed7bc5b5 Cause `texinfo-insert-@node' to insert a carriage return after the
Robert J. Chassell <bob@rattlesnake.com>
parents: 43808
diff changeset
827 arguments to @node. Insert a carriage return after the comment line.
5cc9ed7bc5b5 Cause `texinfo-insert-@node' to insert a carriage return after the
Robert J. Chassell <bob@rattlesnake.com>
parents: 43808
diff changeset
828 Leave point after `@node'."
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
829 (interactive)
44970
5cc9ed7bc5b5 Cause `texinfo-insert-@node' to insert a carriage return after the
Robert J. Chassell <bob@rattlesnake.com>
parents: 43808
diff changeset
830 (insert "@node \n@comment node-name, next, previous, up\n")
5cc9ed7bc5b5 Cause `texinfo-insert-@node' to insert a carriage return after the
Robert J. Chassell <bob@rattlesnake.com>
parents: 43808
diff changeset
831 (forward-line -2)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
832 (forward-char 6))
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 (defun texinfo-insert-@noindent ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
835 "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
836 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
837 (insert "@noindent\n"))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
838
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
839 (defun texinfo-insert-@quotation ()
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
840 "Insert the string `@quotation' in a Texinfo buffer."
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
841 (interactive)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
842 (insert "@quotation\n"))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
843
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
844 (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
845 "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
846 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
847 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
848 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
849 (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
850
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
851 (defun texinfo-insert-@strong (&optional arg)
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
852 "Insert a `@strong{...}' command in a Texinfo buffer.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
853 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
854 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
855 (interactive "P")
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
856 (texinfo-insert-@-with-arg "strong" arg))
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
857
51527
6dd58876664c (texinfo-enable-quote-macros): Fix thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50135
diff changeset
858 (defun texinfo-insert-@table ()
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
859 "Insert the string `@table' in a Texinfo buffer."
51527
6dd58876664c (texinfo-enable-quote-macros): Fix thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50135
diff changeset
860 (interactive)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
861 (insert "@table "))
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
862
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
863 (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
864 "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
865 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
866 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
867 (interactive "P")
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
868 (texinfo-insert-@-with-arg "var" arg))
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
869
33500
d813f12dc2df (texinfo-insert-@uref): Renamed from
Eli Zaretskii <eliz@gnu.org>
parents: 33367
diff changeset
870 (defun texinfo-insert-@uref (&optional arg)
34299
af304d85166f Require tex-mode when compiling.
Dave Love <fx@gnu.org>
parents: 34119
diff changeset
871 "Insert a `@uref{}' command in a Texinfo buffer.
28622
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
872 A numeric argument says how many words the braces should surround.
f861d9d9705d (texinfo-insert-@email)
Gerd Moellmann <gerd@gnu.org>
parents: 28617
diff changeset
873 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
874 (interactive "P")
33500
d813f12dc2df (texinfo-insert-@uref): Renamed from
Eli Zaretskii <eliz@gnu.org>
parents: 33367
diff changeset
875 (texinfo-insert-@-with-arg "uref" arg))
d813f12dc2df (texinfo-insert-@uref): Renamed from
Eli Zaretskii <eliz@gnu.org>
parents: 33367
diff changeset
876 (defalias 'texinfo-insert-@url 'texinfo-insert-@uref)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
877
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
878 ;;; Texinfo file structure
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
879
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
880 (defun texinfo-show-structure (&optional nodes-too)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
881 "Show the structure of a Texinfo file.
76
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
882 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
883 @chapter, @section, and the like.
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
884
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
885 With optional argument (prefix if interactive), list both the lines
a983e9bbadc1 *** empty log message ***
Robert J. Chassell <bob@rattlesnake.com>
parents: 69
diff changeset
886 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
887 @node lines.
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
888
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
889 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
890 another buffer named `*Occur*'. In that buffer, you can move point to
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
891 one of those lines and then use
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
892 \\<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
893 to jump to the corresponding spot in the Texinfo source file."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
894
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
895 (interactive "P")
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
896 ;; First, remember current location
51527
6dd58876664c (texinfo-enable-quote-macros): Fix thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50135
diff changeset
897 (let (current-location)
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
898 (save-excursion
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
899 (end-of-line) ; so as to find section on current line
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
900 (if (re-search-backward
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
901 ;; do not require `texinfo-section-types-regexp' in texnfo-upd.el
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
902 "^@\\(chapter \\|sect\\|subs\\|subh\\|unnum\\|major\\|chapheading \\|heading \\|appendix\\)"
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
903 nil t)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
904 (setq current-location
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
905 (progn
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
906 (beginning-of-line)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
907 (buffer-substring (point) (progn (end-of-line) (point)))))
51527
6dd58876664c (texinfo-enable-quote-macros): Fix thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50135
diff changeset
908 ;; else point is located before any section command.
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
909 (setq current-location "tex")))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
910 ;; Second, create and format an *Occur* buffer
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
911 (save-excursion
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
912 (goto-char (point-min))
53647
5e31be49b42d (texinfo-mode): Remove ^ from outline-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53628
diff changeset
913 (occur (concat "^\\(?:" (if nodes-too "@node\\>\\|")
5e31be49b42d (texinfo-mode): Remove ^ from outline-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53628
diff changeset
914 outline-regexp "\\)")))
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
915 (pop-to-buffer "*Occur*")
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
916 (goto-char (point-min))
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
917 (let ((inhibit-read-only t))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
918 (flush-lines "-----")
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
919 ;; Now format the "*Occur*" buffer to show the structure.
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
920 ;; Thanks to ceder@signum.se (Per Cederqvist)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
921 (goto-char (point-max))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
922 (let (level)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
923 (while (re-search-backward "^ *[0-9]*:@\\(\\sw+\\)" nil 0)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
924 (goto-char (1- (match-beginning 1)))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
925 (setq level
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
926 (or (cadr (assoc (match-string 1) texinfo-section-list)) 2))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
927 (indent-to-column (+ (current-column) (* 4 (- level 2))))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
928 (beginning-of-line))))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
929 ;; Third, go to line corresponding to location in source file
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48062
diff changeset
930 ;; potential bug: two exactly similar `current-location' lines ...
42328
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
931 (goto-char (point-min))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
932 (re-search-forward current-location nil t)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
933 (beginning-of-line)
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
934 ))
58de0a625e52 (texinfo-show-structure): Display the line showing the current location
Robert J. Chassell <bob@rattlesnake.com>
parents: 40290
diff changeset
935
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
936
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
937 ;;; The tex and print function definitions:
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
938
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
939 (defcustom texinfo-texi2dvi-command "texi2dvi"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
940 "Command used by `texinfo-tex-buffer' to run TeX and texindex on a buffer."
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
941 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
942 :group 'texinfo)
4981
e7fe9ea8e81c (texinfo-texi2dvi-command): Separate `texi2dvi'
Richard M. Stallman <rms@gnu.org>
parents: 4946
diff changeset
943
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
944 (defcustom texinfo-tex-command "tex"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
945 "Command used by `texinfo-tex-region' to run TeX on a region."
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
946 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
947 :group 'texinfo)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
948
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
949 (defcustom texinfo-texindex-command "texindex"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
950 "Command used by `texinfo-texindex' to sort unsorted index files."
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
951 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
952 :group 'texinfo)
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
953
17407
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
954 (defcustom texinfo-delete-from-print-queue-command "lprm"
84431
1e7780181572 Remove spurious * in docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78225
diff changeset
955 "Command string used to delete a job from the line printer queue.
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
956 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
957 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
958 command."
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
959 :type 'string
ae0ba78d6c07 Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16814
diff changeset
960 :group 'texinfo)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
961
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
962 (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
963 "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
964
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
965 (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
966 "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
967 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
968 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
969
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
970 The first line of the buffer is copied to the
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1188
diff changeset
971 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
972 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
973 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
974 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
975
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
976 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
977 (interactive "r")
2834
ce2187c33f4c Don't require tex-mode or texnfo-upd.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
978 (require 'tex-mode)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
979 (let ((tex-command texinfo-tex-command)
23871
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
980 (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
981 (tex-region beg end)))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
982
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
983 (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
984 "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
985 (interactive)
4531
899976225848 (texinfo-delete-from-print-queue)
Richard M. Stallman <rms@gnu.org>
parents: 4116
diff changeset
986 (require 'tex-mode)
23871
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
987 (let ((tex-command texinfo-texi2dvi-command)
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
988 ;; Disable tex-start-options-string. texi2dvi would not
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
989 ;; understand anything specified here.
921e06395776 (texinfo-tex-buffer): Bind
Andreas Schwab <schwab@suse.de>
parents: 23320
diff changeset
990 (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
991 (tex-buffer)))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
992
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
993 (defun texinfo-texindex ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
994 "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
995 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
996 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
997 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
998 (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
999 (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
1000 ;; alternatively
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1001 ;; (send-string "tex-shell"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1002 ;; (concat texinfo-texindex-command
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1003 ;; " " 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
1004 (tex-recenter-output-buffer nil))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
1005
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
1006 (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
1007 "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
1008 This runs the shell command defined by `tex-dvi-print-command'."
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
1009 (interactive)
2834
ce2187c33f4c Don't require tex-mode or texnfo-upd.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
1010 (require 'tex-mode)
16814
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1011 (tex-print))
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1012
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1013 (defun texinfo-tex-view ()
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1014 "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
1015 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
1016 (interactive)
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1017 (require 'tex-mode)
fdda5e6e6fe8 (texinfo-mode): Locally set tex-first-line-header-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 16642
diff changeset
1018 (tex-view))
69
0355ba998550 Initial revision
Robert J. Chassell <bob@rattlesnake.com>
parents:
diff changeset
1019
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1020 (defun texinfo-quit-job ()
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1021 "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
1022 (interactive)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1023 (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
1024 (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
1025 (tex-send-command "x"))
17940
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1026 ;; alternatively:
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1027 ;; save-excursion
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1028 ;; (set-buffer (get-buffer "*tex-shell*"))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1029 ;; (goto-char (point-max))
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1030 ;; (insert "x")
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1031 ;; (comint-send-input)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1032
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1033 (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
1034 "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
1035 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
1036 \\[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
1037 (interactive "nPrinter job number for deletion: ")
4531
899976225848 (texinfo-delete-from-print-queue)
Richard M. Stallman <rms@gnu.org>
parents: 4116
diff changeset
1038 (require 'tex-mode)
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1039 (if (tex-shell-running)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1040 (tex-kill-job)
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1041 (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
1042 (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
1043 ;; alternatively
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1044 ;; (send-string "tex-shell"
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1045 ;; (concat
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1046 ;; texinfo-delete-from-print-queue-command
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1047 ;; " "
0c90e4bd3661 (texinfo-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 17407
diff changeset
1048 ;; job-number"\n"))
3894
a2dc34c691cc Set up autoloads for files `makeinfo' and `texnfo-upd'.
Richard M. Stallman <rms@gnu.org>
parents: 3556
diff changeset
1049 (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
1050
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
1051 (provide 'texinfo)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
1052
66423
5217bc507b30 (texinfo-mode): Use real chars, so as not to unnecessarily expose
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66293
diff changeset
1053 ;; arch-tag: 005d7c38-43b9-4b7d-aa1d-aea69bae73e1
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
1054 ;;; texinfo.el ends here