annotate lisp/textmodes/texinfo.el @ 78445:d92fa7306fd1

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