annotate lisp/textmodes/texinfo.el @ 55009:10f2535aa14e

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