annotate lisp/textmodes/texinfmt.el @ 74120:0769cd6b8ca7

* window.c (set_window_buffer): Clear mouse highlight if it is in this window.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 22 Nov 2006 15:09:54 +0000
parents 581994501499
children e3694f1cb928 02cf29720f31
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
1 ;;; texinfmt.el --- format Texinfo files into Info files
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10896
diff changeset
2
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
64751
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
4 ;; 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003,
68648
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 67582
diff changeset
5 ;; 2004, 2005, 2006 Free Software Foundation, Inc.
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
6
43808
234792943059 Revert last change.
Andreas Schwab <schwab@suse.de>
parents: 43789
diff changeset
7 ;; Maintainer: Robert J. Chassell <bug-texinfo@gnu.org>
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
8 ;; Keywords: maint, tex, docs
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
9
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10896
diff changeset
10 ;; This file is part of GNU Emacs.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
11
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
15 ;; any later version.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
16
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
21
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
23 ;; 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: 62402
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
25 ;; Boston, MA 02110-1301, USA.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
26
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
27 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
28
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
29 ;;; Code:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
30
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
31 ;;; Emacs lisp functions to convert Texinfo files to Info files.
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
32
19630
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
33 (or (fboundp 'defgroup)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
34 (defmacro defgroup (&rest ignore) nil))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
35
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
36 (or (fboundp 'defcustom)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
37 (defmacro defcustom (var value doc &rest ignore)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
38 `(defvar ,var ,value ,doc)))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
39
71781
c780a286814a * textmodes/texinfmt.el: Finally remember to set texinfmt-version
Robert J. Chassell <bob@rattlesnake.com>
parents: 71675
diff changeset
40 (defvar texinfmt-version "2.42 of 7 Jul 2006")
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
41
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
42 (defun texinfmt-version (&optional here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
43 "Show the version of texinfmt.el in the minibuffer.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
44 If optional argument HERE is non-nil, insert info at point."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
45 (interactive "P")
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
46 (let ((version-string
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
47 (format "Version of \`texinfmt.el\': %s" texinfmt-version)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
48 (if here
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
49 (insert version-string)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
50 (if (interactive-p)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
51 (message "%s" version-string)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
52 version-string))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
53
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
54
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
55 ;;; Variable definitions
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
56
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
57 (require 'texinfo) ; So `texinfo-footnote-style' is defined.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
58 (require 'texnfo-upd) ; So `texinfo-section-types-regexp' is defined.
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
59
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
60 (defvar texinfo-format-syntax-table nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
61
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
62 (defvar texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
63 (defvar texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
64 (defvar texinfo-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
65 (defvar texinfo-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
66 (defvar texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
67 (defvar texinfo-kindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
68 (defvar texinfo-last-node)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
69 (defvar texinfo-node-names)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
70 (defvar texinfo-enclosure-list)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
71 (defvar texinfo-alias-list)
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
72 (defvar texinfo-fold-nodename-case nil)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
73
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
74 (defvar texinfo-command-start)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
75 (defvar texinfo-command-end)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
76 (defvar texinfo-command-name)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
77 (defvar texinfo-defun-type)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
78 (defvar texinfo-last-node-pos)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
79 (defvar texinfo-stack)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
80 (defvar texinfo-short-index-cmds-alist)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
81 (defvar texinfo-short-index-format-cmds-alist)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
82 (defvar texinfo-format-filename)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
83 (defvar texinfo-footnote-number)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
84 (defvar texinfo-start-of-header)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
85 (defvar texinfo-end-of-header)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
86 (defvar texinfo-raisesections-alist)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
87 (defvar texinfo-lowersections-alist)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
88
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
89 ;;; Syntax table
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
90
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
91 (if texinfo-format-syntax-table
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
92 nil
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
93 (setq texinfo-format-syntax-table (make-syntax-table))
38044
d2534bdf1832 (texinfo-format-syntax-table): Revert previous change.
Miles Bader <miles@gnu.org>
parents: 38032
diff changeset
94 (modify-syntax-entry ?\" " " texinfo-format-syntax-table)
d2534bdf1832 (texinfo-format-syntax-table): Revert previous change.
Miles Bader <miles@gnu.org>
parents: 38032
diff changeset
95 (modify-syntax-entry ?\\ " " texinfo-format-syntax-table)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
96 (modify-syntax-entry ?@ "\\" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
97 (modify-syntax-entry ?\^q "\\" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
98 (modify-syntax-entry ?\[ "." texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
99 (modify-syntax-entry ?\] "." texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
100 (modify-syntax-entry ?\( "." texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
101 (modify-syntax-entry ?\) "." texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
102 (modify-syntax-entry ?{ "(}" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
103 (modify-syntax-entry ?} "){" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
104 (modify-syntax-entry ?\' "." texinfo-format-syntax-table))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
105
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
106
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
107 ;;; Top level buffer and region formatting functions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
108
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
109 ;;;###autoload
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
110 (defun texinfo-format-buffer (&optional nosplit)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
111 "Process the current buffer as texinfo code, into an Info file.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
112 The Info file output is generated in a buffer visiting the Info file
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
113 name specified in the @setfilename command.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
114
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
115 Non-nil argument (prefix, if interactive) means don't make tag table
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
116 and don't split the file if large. You can use Info-tagify and
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
117 Info-split to do these manually."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
118 (interactive "P")
24621
54ef2ebc8494 (texinfo-format-buffer): Bind coding-system-for-write, to avoid hanging when
Karl Heuer <kwzh@gnu.org>
parents: 24453
diff changeset
119 (let ((lastmessage "Formatting Info file...")
54ef2ebc8494 (texinfo-format-buffer): Bind coding-system-for-write, to avoid hanging when
Karl Heuer <kwzh@gnu.org>
parents: 24453
diff changeset
120 (coding-system-for-write buffer-file-coding-system))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
121 (message lastmessage)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
122 (widen)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
123 (texinfo-format-buffer-1)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
124 (Info-tagify)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
125 (if nosplit
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
126 nil
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
127 (if (> (buffer-size) 100000)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
128 (progn
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
129 (message (setq lastmessage "Splitting Info file..."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
130 (Info-split))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
131 (message (concat lastmessage
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
132 (if (interactive-p) "done. Now save it." "done.")))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
133
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
134 (defvar texinfo-region-buffer-name "*Info Region*"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
135 "*Name of the temporary buffer used by \\[texinfo-format-region].")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
136
52969
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
137 (defvar texinfo-pre-format-hook nil
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
138 "Hook called before the conversion of the Texinfo file to Info format.
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
139 The functions on this hook are called with argument BUFFER, the buffer
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
140 containing the Texinfo file.")
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
141
48932
faafd2631b67 (tex-start-of-header, tex-end-of-header): Add defvars.
Richard M. Stallman <rms@gnu.org>
parents: 48794
diff changeset
142 ;; These come from tex-mode.el.
faafd2631b67 (tex-start-of-header, tex-end-of-header): Add defvars.
Richard M. Stallman <rms@gnu.org>
parents: 48794
diff changeset
143 (defvar tex-start-of-header)
faafd2631b67 (tex-start-of-header, tex-end-of-header): Add defvars.
Richard M. Stallman <rms@gnu.org>
parents: 48794
diff changeset
144 (defvar tex-end-of-header)
faafd2631b67 (tex-start-of-header, tex-end-of-header): Add defvars.
Richard M. Stallman <rms@gnu.org>
parents: 48794
diff changeset
145
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
146 ;;;###autoload
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
147 (defun texinfo-format-region (region-beginning region-end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
148 "Convert the current region of the Texinfo file to Info format.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
149 This lets you see what that part of the file will look like in Info.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
150 The command is bound to \\[texinfo-format-region]. The text that is
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
151 converted to Info is stored in a temporary buffer."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
152 (interactive "r")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
153 (message "Converting region to Info format...")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
154 (let (texinfo-command-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
155 texinfo-command-end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
156 texinfo-command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
157 texinfo-vindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
158 texinfo-findex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
159 texinfo-cindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
160 texinfo-pindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
161 texinfo-tindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
162 texinfo-kindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
163 texinfo-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
164 (texinfo-format-filename "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
165 texinfo-example-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
166 texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
167 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
168 texinfo-node-names
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
169 (texinfo-footnote-number 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
170 last-input-buffer
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
171 (fill-column-for-info fill-column)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
172 (input-buffer (current-buffer))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
173 (input-directory default-directory)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
174 (header-text "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
175 (header-beginning 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
176 (header-end 1))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
177
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
178 ;;; Copy lines between beginning and end of header lines,
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
179 ;;; if any, or else copy the `@setfilename' line, if any.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
180 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
181 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
182 (widen)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
183 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
184 (let ((search-end (save-excursion (forward-line 100) (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
185 (if (or
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
186 ;; Either copy header text.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
187 (and
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
188 (prog1
4982
36b78ccd6285 (texinfo-format-region): Change `texinfo-[start
Richard M. Stallman <rms@gnu.org>
parents: 4868
diff changeset
189 (search-forward tex-start-of-header search-end t)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
190 (forward-line 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
191 ;; Mark beginning of header.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
192 (setq header-beginning (point)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
193 (prog1
4982
36b78ccd6285 (texinfo-format-region): Change `texinfo-[start
Richard M. Stallman <rms@gnu.org>
parents: 4868
diff changeset
194 (search-forward tex-end-of-header nil t)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
195 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
196 ;; Mark end of header
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
197 (setq header-end (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
198 ;; Or copy @filename line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
199 (prog2
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
200 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
201 (search-forward "@setfilename" search-end t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
202 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
203 (setq header-beginning (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
204 (forward-line 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
205 (setq header-end (point))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
206
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
207 ;; Copy header
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
208 (setq header-text
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
209 (buffer-substring-no-properties
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
210 (min header-beginning region-beginning)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
211 header-end))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
212
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
213 ;;; Find a buffer to use.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
214 (switch-to-buffer (get-buffer-create texinfo-region-buffer-name))
67582
cc04cc5f78a8 (texinfo-format-region):
Robert J. Chassell <bob@rattlesnake.com>
parents: 64751
diff changeset
215 (setq buffer-read-only t)
cc04cc5f78a8 (texinfo-format-region):
Robert J. Chassell <bob@rattlesnake.com>
parents: 64751
diff changeset
216 (let ((inhibit-read-only t))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
217 (erase-buffer)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
218 ;; Insert the header into the buffer.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
219 (insert header-text)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
220 ;; Insert the region into the buffer.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
221 (insert-buffer-substring
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
222 input-buffer
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
223 (max region-beginning header-end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
224 region-end)
52969
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
225 (run-hook-with-args 'texinfo-pre-format-hook input-buffer)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
226 ;; Make sure region ends in a newline.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
227 (or (= (preceding-char) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
228 (insert "\n"))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
229
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
230 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
231 (texinfo-mode)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
232 (message "Converting region to Info format...")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
233 (setq fill-column fill-column-for-info)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
234 ;; Install a syntax table useful for scanning command operands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
235 (set-syntax-table texinfo-format-syntax-table)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
236
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
237 ;; Insert @include files so `texinfo-raise-lower-sections' can
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
238 ;; work on them without losing track of multiple
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
239 ;; @raise/@lowersections commands.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
240 (while (re-search-forward "^@include" nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
241 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
242 (let ((filename (concat input-directory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
243 (texinfo-parse-line-arg))))
9178
0facf5c89fff (texinfo-format-region, texinfo-format-buffer-1):
Richard M. Stallman <rms@gnu.org>
parents: 6309
diff changeset
244 (re-search-backward "^@include")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
245 (delete-region (point) (save-excursion (forward-line 1) (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
246 (message "Reading included file: %s" filename)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
247 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
248 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
249 (narrow-to-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
250 (point)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
251 (+ (point) (car (cdr (insert-file-contents filename)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
252 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
253 ;; Remove `@setfilename' line from included file, if any,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
254 ;; so @setfilename command not duplicated.
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
255 (if (re-search-forward "^@setfilename" (line-end-position 100) t)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
256 (delete-region (line-beginning-position 1)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
257 (line-beginning-position 2)))))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
258
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
259 ;; Raise or lower level of each section, if necessary.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
260 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
261 (texinfo-raise-lower-sections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
262 ;; Append @refill to appropriate paragraphs for filling.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
263 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
264 (texinfo-append-refill)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
265 ;; If the region includes the effective end of the data,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
266 ;; discard everything after that.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
267 (goto-char (point-max))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
268 (if (re-search-backward "^@bye" nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
269 (delete-region (point) (point-max)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
270 ;; Make sure buffer ends in a newline.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
271 (or (= (preceding-char) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
272 (insert "\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
273 ;; Don't use a previous value of texinfo-enclosure-list.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
274 (setq texinfo-enclosure-list nil)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
275 (setq texinfo-alias-list nil)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
276
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
277 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
278 (if (looking-at "\\\\input[ \t]+texinfo")
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
279 (delete-region (point) (line-beginning-position 2)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
280
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
281 ;; Insert Info region title text.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
282 (goto-char (point-min))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
283 (if (search-forward
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
284 "@setfilename" (save-excursion (forward-line 100) (point)) t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
285 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
286 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
287 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
288 (setq texinfo-command-start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
289 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
290 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
291 texinfo-region-buffer-name
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
292 " buffer for: `")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
293 (insert (file-name-nondirectory (expand-file-name arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
294 (insert "', -*-Text-*-\n")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
295 ;; Else no `@setfilename' line
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
296 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
297 texinfo-region-buffer-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
298 " buffer -*-Text-*-\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
299 (insert "produced by `texinfo-format-region'\n"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
300 "from a region in: "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
301 (if (buffer-file-name input-buffer)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
302 (concat "`"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
303 (file-name-sans-versions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
304 (file-name-nondirectory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
305 (buffer-file-name input-buffer)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
306 "'")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
307 (concat "buffer `" (buffer-name input-buffer) "'"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
308 "\nusing `texinfmt.el' version "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
309 texinfmt-version
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
310 ".\n\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
311
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
312 ;; Now convert for real.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
313 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
314 (texinfo-format-scan)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
315 (goto-char (point-min))
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
316 (Info-tagify input-buffer)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
317 (goto-char (point-min))
67582
cc04cc5f78a8 (texinfo-format-region):
Robert J. Chassell <bob@rattlesnake.com>
parents: 64751
diff changeset
318 (message "Done."))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
319
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
320 ;;;###autoload
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
321 (defun texi2info (&optional nosplit)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
322 "Convert the current buffer (written in Texinfo code) into an Info file.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
323 The Info file output is generated in a buffer visiting the Info file
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
324 names specified in the @setfilename command.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
325
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
326 This function automatically updates all node pointers and menus, and
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
327 creates a master menu. This work is done on a temporary buffer that
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
328 is automatically removed when the Info file is created. The original
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
329 Texinfo source buffer is not changed.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
330
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
331 Non-nil argument (prefix, if interactive) means don't split the file
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
332 if large. You can use Info-split to do this manually."
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
333 (interactive "P")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
334 (let ((temp-buffer (concat "*--" (buffer-name) "--temporary-buffer*" )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
335 (message "First updating nodes and menus, then creating Info file.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
336 ;; (sit-for 2)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
337 (copy-to-buffer temp-buffer (point-min) (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
338 (switch-to-buffer temp-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
339 (texinfo-master-menu t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
340 (message "Now creating Info file.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
341 (sit-for 2)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
342 (texinfo-format-buffer nosplit)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
343 (save-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
344 (kill-buffer temp-buffer)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
345
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
346
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
347 ;;; Primary internal formatting function for the whole buffer.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
348
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
349 (defun texinfo-format-buffer-1 ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
350 (let (texinfo-format-filename
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
351 texinfo-example-start
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
352 texinfo-command-start
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
353 texinfo-command-end
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
354 texinfo-command-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
355 texinfo-last-node
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
356 texinfo-last-node-pos
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
357 texinfo-vindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
358 texinfo-findex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
359 texinfo-cindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
360 texinfo-pindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
361 texinfo-tindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
362 texinfo-kindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
363 texinfo-stack
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
364 texinfo-node-names
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
365 (texinfo-footnote-number 0)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
366 last-input-buffer
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
367 outfile
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
368 (fill-column-for-info fill-column)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
369 (input-buffer (current-buffer))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
370 (input-directory default-directory))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
371 (setq texinfo-enclosure-list nil)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
372 (setq texinfo-alias-list nil)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
373 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
374 (goto-char (point-min))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
375 (or (search-forward "@setfilename" nil t)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
376 (error "Texinfo file needs an `@setfilename FILENAME' line"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
377 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
378 (setq outfile (texinfo-parse-line-arg)))
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
379
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
380 (find-file outfile)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
381 (texinfo-mode)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
382 (erase-buffer)
59115
fb586fbcd93c (texinfo-format-buffer-1): Call buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents: 55770
diff changeset
383 (buffer-disable-undo)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
384
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
385 (message "Formatting Info file: %s" outfile)
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
386 (setq texinfo-format-filename
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
387 (file-name-nondirectory (expand-file-name outfile)))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
388
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
389 (setq fill-column fill-column-for-info)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
390 (set-syntax-table texinfo-format-syntax-table)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
391
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
392 (insert-buffer-substring input-buffer)
52969
d60ea4b622fe (texinfo-pre-format-hook): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
393 (run-hook-with-args 'texinfo-pre-format-hook input-buffer)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
394 (message "Converting %s to Info format..." (buffer-name input-buffer))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
395
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
396 ;; Insert @include files so `texinfo-raise-lower-sections' can
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
397 ;; work on them without losing track of multiple
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
398 ;; @raise/@lowersections commands.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
399 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
400 (while (re-search-forward "^@include" nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
401 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
402 (let ((filename (concat input-directory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
403 (texinfo-parse-line-arg))))
9178
0facf5c89fff (texinfo-format-region, texinfo-format-buffer-1):
Richard M. Stallman <rms@gnu.org>
parents: 6309
diff changeset
404 (re-search-backward "^@include")
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
405 (delete-region (point) (line-beginning-position 2))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
406 (message "Reading included file: %s" filename)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
407 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
408 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
409 (narrow-to-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
410 (point)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
411 (+ (point) (car (cdr (insert-file-contents filename)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
412 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
413 ;; Remove `@setfilename' line from included file, if any,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
414 ;; so @setfilename command not duplicated.
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
415 (if (re-search-forward "^@setfilename" (line-end-position 100) t)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
416 (delete-region (line-beginning-position 1)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
417 (line-beginning-position 2)))))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
418 ;; Raise or lower level of each section, if necessary.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
419 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
420 (texinfo-raise-lower-sections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
421 ;; Append @refill to appropriate paragraphs
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
422 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
423 (texinfo-append-refill)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
424 (goto-char (point-min))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
425 (search-forward "@setfilename")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
426 (beginning-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
427 (delete-region (point-min) (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
428 ;; Remove @bye at end of file, if it is there.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
429 (goto-char (point-max))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
430 (if (search-backward "@bye" nil t)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
431 (delete-region (point) (point-max)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
432 ;; Make sure buffer ends in a newline.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
433 (or (= (preceding-char) ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
434 (insert "\n"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
435 ;; Scan the whole buffer, converting to Info format.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
436 (texinfo-format-scan)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
437 (goto-char (point-min))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
438 ;; Insert info about how this file was made.
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
439 (insert "Info file: "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
440 texinfo-format-filename ", -*-Text-*-\n"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
441 "produced by `texinfo-format-buffer'\n"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
442 ;; Date string removed so that regression testing is easier.
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
443 ;; "on "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
444 ;; (insert (format-time-string "%e %b %Y")) " "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
445 "from file"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
446 (if (buffer-file-name input-buffer)
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
447 (concat " `"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
448 (file-name-sans-versions
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
449 (file-name-nondirectory
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
450 (buffer-file-name input-buffer)))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
451 "'")
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
452 (concat "buffer `" (buffer-name input-buffer) "'"))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
453 "\nusing `texinfmt.el' version "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
454 texinfmt-version
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
455 ".\n\n")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
456 ;; Return data for indices.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
457 (list outfile
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
458 texinfo-vindex texinfo-findex texinfo-cindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
459 texinfo-pindex texinfo-tindex texinfo-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
460
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
461
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
462 ;;; Perform non-@-command file conversions: quotes and hyphens
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
463
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
464 (defun texinfo-format-convert (min max)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
465 ;; Convert left and right quotes to typewriter font quotes.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
466 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
467 (while (search-forward "``" max t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
468 (replace-match "\""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
469 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
470 (while (search-forward "''" max t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
471 (replace-match "\""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
472 ;; Convert three hyphens in a row to two.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
473 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
474 (while (re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" max t)
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
475 (delete-region (1+ (match-beginning 2)) (+ 2 (match-beginning 2)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
476
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
477
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
478 ;;; Handle paragraph filling
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
479
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
480 ;; Keep as concatinated lists for ease of maintenance
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
481
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
482 (defvar texinfo-no-refill-regexp
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
483 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
484 "^@"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
485 "\\("
48519
ba7e7cf495b0 (texinfo-no-refill-regexp): add "itemize\\|" because of a problem with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48518
diff changeset
486 ;; add "itemize\\|" (from experiment of 2001 Nov 28)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
487 ;; because of a problem with @end itemize@refill
48519
ba7e7cf495b0 (texinfo-no-refill-regexp): add "itemize\\|" because of a problem with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48518
diff changeset
488 ;; I don't know if this causes other problems.
ba7e7cf495b0 (texinfo-no-refill-regexp): add "itemize\\|" because of a problem with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48518
diff changeset
489 ;; I suspect itemized lists don't get filled properly and a
ba7e7cf495b0 (texinfo-no-refill-regexp): add "itemize\\|" because of a problem with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48518
diff changeset
490 ;; more precise fix is required. Bob
60309
7621f2acbeb0 (texinfo-no-refill-regexp): commented out inclusion of "itemize\\|",
Robert J. Chassell <bob@rattlesnake.com>
parents: 59115
diff changeset
491 ;; commented out on 2005 Feb 28 by Bob
7621f2acbeb0 (texinfo-no-refill-regexp): commented out inclusion of "itemize\\|",
Robert J. Chassell <bob@rattlesnake.com>
parents: 59115
diff changeset
492 ;; "itemize\\|"
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
493 "direntry\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
494 "lisp\\|"
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
495 "smalllisp\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
496 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
497 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
498 "display\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
499 "smalldisplay\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
500 "format\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
501 "smallformat\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
502 "flushleft\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
503 "flushright\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
504 "menu\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
505 "multitable\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
506 "titlepage\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
507 "iftex\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
508 "ifhtml\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
509 "tex\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
510 "html"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
511 "\\)")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
512 "Regexp specifying environments in which paragraphs are not filled.")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
513
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
514 (defvar texinfo-accent-commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
515 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
516 "@^\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
517 "@`\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
518 "@'\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
519 "@\"\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
520 "@,\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
521 "@=\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
522 "@~\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
523 "@OE{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
524 "@oe{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
525 "@AA{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
526 "@aa{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
527 "@AE{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
528 "@ae{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
529 "@ss{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
530 "@questiondown{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
531 "@exclamdown{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
532 "@L{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
533 "@l{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
534 "@O{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
535 "@o{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
536 "@dotaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
537 "@ubaraccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
538 "@d{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
539 "@H{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
540 "@ringaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
541 "@tieaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
542 "@u{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
543 "@v{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
544 "@dotless{"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
545 ))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
546
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
547 (defvar texinfo-part-of-para-regexp
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
548 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
549 "^@"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
550 "\\("
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
551 "b{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
552 "bullet{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
553 "cite{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
554 "code{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
555 "email{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
556 "emph{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
557 "equiv{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
558 "error{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
559 "expansion{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
560 "file{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
561 "i{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
562 "inforef{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
563 "kbd{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
564 "key{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
565 "lisp{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
566 "minus{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
567 "point{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
568 "print{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
569 "pxref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
570 "r{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
571 "ref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
572 "result{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
573 "samp{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
574 "sc{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
575 "t{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
576 "TeX{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
577 "today{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
578 "url{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
579 "var{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
580 "w{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
581 "xref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
582 "@-\\|" ; @- is a descretionary hyphen (not an accent) (a noop).
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
583 texinfo-accent-commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
584 "\\)"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
585 )
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
586 "Regexp specifying @-commands found within paragraphs.")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
587
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
588 (defun texinfo-append-refill ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
589 "Append @refill at end of each paragraph that should be filled.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
590 Do not append @refill to paragraphs within @example and similar environments.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
591 Do not append @refill to paragraphs containing @w{TEXT} or @*."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
592
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
593 ;; It is necessary to append @refill before other processing because
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
594 ;; the other processing removes information that tells Texinfo
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
595 ;; whether the text should or should not be filled.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
596
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
597 (while (< (point) (point-max))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
598 (let ((refill-blank-lines "^[ \t\n]*$")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
599 (case-fold-search nil)) ; Don't confuse @TeX and @tex....
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
600 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
601 ;; 1. Skip over blank lines;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
602 ;; skip over lines beginning with @-commands,
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
603 ;; but do not skip over lines
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
604 ;; that are no-refill environments such as @example or
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
605 ;; that begin with within-paragraph @-commands such as @code.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
606 (while (and (looking-at (concat "^@\\|^\\\\\\|" refill-blank-lines))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
607 (not (looking-at
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
608 (concat
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
609 "\\("
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
610 texinfo-no-refill-regexp
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
611 "\\|"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
612 texinfo-part-of-para-regexp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
613 "\\)")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
614 (< (point) (point-max)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
615 (forward-line 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
616 ;; 2. Skip over @example and similar no-refill environments.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
617 (if (looking-at texinfo-no-refill-regexp)
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
618 (let ((environment (match-string-no-properties 1)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
619 (progn (re-search-forward (concat "^@end " environment) nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
620 (forward-line 1)))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
621 ;; Else
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
622 ;; 3. Do not refill a paragraph containing @w or @*, or ending
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
623 ;; with @<newline> followed by a newline.
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
624 (if (or (>= (point) (point-max))
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
625 (re-search-forward
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
626 "@w{\\|@\\*\\|@\n\n"
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
627 (save-excursion (forward-paragraph) (forward-line 1) (point))
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
628 t))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
629 ;; Go to end of paragraph and do nothing.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
630 (forward-paragraph)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
631 ;; 4. Else go to end of paragraph and insert @refill
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
632 (forward-paragraph)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
633 (forward-line -1)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
634 (let ((line-beg (point)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
635 (end-of-line)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
636 (delete-region
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
637 (point)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
638 (save-excursion (skip-chars-backward " \t") (point)))
24453
3b8991c22dcd (texinfo-append-refill): Check @c correctly.
Kenichi Handa <handa@m17n.org>
parents: 24314
diff changeset
639 (forward-char 1)
3b8991c22dcd (texinfo-append-refill): Check @c correctly.
Kenichi Handa <handa@m17n.org>
parents: 24314
diff changeset
640 (unless (re-search-backward "@c[ \t\n]\\|@comment[ \t\n]" line-beg t)
3b8991c22dcd (texinfo-append-refill): Check @c correctly.
Kenichi Handa <handa@m17n.org>
parents: 24314
diff changeset
641 (forward-char -1))
60372
f46823f3408c (texinfo-append-refill): Redefine the types of line to which @refill
Robert J. Chassell <bob@rattlesnake.com>
parents: 60327
diff changeset
642 (unless (re-search-backward "@refill\\|^[ \t]*@" line-beg t)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
643 (insert "@refill")))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
644 (forward-line 1))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
645
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
646
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
647 ;;; Handle `@raisesections' and `@lowersections' commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
648
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
649 ;; These commands change the hierarchical level of chapter structuring
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
650 ;; commands.
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
651 ;;
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
652 ;; @raisesections changes @subsection to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
653 ;; @section to @chapter,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
654 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
655 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
656 ;; @lowersections changes @chapter to @section
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
657 ;; @subsection to @subsubsection,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
658 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
659 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
660 ;; An @raisesections/@lowersections command changes only those
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
661 ;; structuring commands that follow the @raisesections/@lowersections
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
662 ;; command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
663 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
664 ;; Repeated @raisesections/@lowersections continue to raise or lower
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
665 ;; the heading level.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
666 ;;
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
667 ;; An @lowersections command cancels an @raisesections command, and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
668 ;; vice versa.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
669 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
670 ;; You cannot raise or lower "beyond" chapters or subsubsections, but
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
671 ;; trying to do so does not elicit an error---you just get more
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
672 ;; headings that mean the same thing as you keep raising or lowering
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
673 ;; (for example, after a single @raisesections, both @chapter and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
674 ;; @section produce chapter headings).
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
675
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
676 (defun texinfo-raise-lower-sections ()
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
677 "Raise or lower the hierarchical level of chapters, sections, etc.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
678
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
679 This function acts according to `@raisesections' and `@lowersections'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
680 commands in the Texinfo file.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
681
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
682 For example, an `@lowersections' command is useful if you wish to
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
683 include what is written as an outer or standalone Texinfo file in
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
684 another Texinfo file as an inner, included file. The `@lowersections'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
685 command changes chapters to sections, sections to subsections and so
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
686 on.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
687
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
688 @raisesections changes @subsection to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
689 @section to @chapter,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
690 @heading to @chapheading,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
691 etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
692
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
693 @lowersections changes @chapter to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
694 @subsection to @subsubsection,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
695 @heading to @subheading,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
696 etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
697
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
698 An `@raisesections' or `@lowersections' command changes only those
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
699 structuring commands that follow the `@raisesections' or
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
700 `@lowersections' command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
701
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
702 An `@lowersections' command cancels an `@raisesections' command, and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
703 vice versa.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
704
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
705 Repeated use of the commands continue to raise or lower the hierarchical
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
706 level a step at a time.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
707
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
708 An attempt to raise above `chapters' reproduces chapter commands; an
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
709 attempt to lower below subsubsections reproduces subsubsection
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
710 commands."
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
711
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
712 ;; `texinfo-section-types-regexp' is defined in `texnfo-upd.el';
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
713 ;; it is a regexp matching chapter, section, other headings
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
714 ;; (but not the top node).
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
715
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
716 (let (type (level 0))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
717 (while
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
718 (re-search-forward
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
719 (concat
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
720 "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\("
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
721 texinfo-section-types-regexp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
722 "\\)\\)")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
723 nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
724 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
725 (save-excursion (setq type (read (current-buffer))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
726 (cond
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
727
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
728 ;; 1. Increment level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
729 ((eq type '@raisesections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
730 (setq level (1+ level))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
731 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
732 (point) (save-excursion (forward-line 1) (point))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
733
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
734 ;; 2. Decrement level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
735 ((eq type '@lowersections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
736 (setq level (1- level))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
737 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
738 (point) (save-excursion (forward-line 1) (point))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
739
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
740 ;; Now handle structuring commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
741 ((cond
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
742
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
743 ;; 3. Raise level when positive
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
744 ((> level 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
745 (let ((count level)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
746 (new-level type))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
747 (while (> count 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
748 (setq new-level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
749 (cdr (assq new-level texinfo-raisesections-alist)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
750 (setq count (1- count)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
751 (kill-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
752 (insert (symbol-name new-level))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
753
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
754 ;; 4. Do nothing except move point when level is zero
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
755 ((= level 0) (forward-line 1))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
756
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
757 ;; 5. Lower level when positive
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
758 ((< level 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
759 (let ((count level)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
760 (new-level type))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
761 (while (< count 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
762 (setq new-level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
763 (cdr (assq new-level texinfo-lowersections-alist)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
764 (setq count (1+ count)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
765 (kill-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
766 (insert (symbol-name new-level))))))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
767
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
768 (defvar texinfo-raisesections-alist
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
769 '((@chapter . @chapter) ; Cannot go higher
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
770 (@unnumbered . @unnumbered)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
771 (@centerchap . @unnumbered)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
772
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
773 (@majorheading . @majorheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
774 (@chapheading . @chapheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
775 (@appendix . @appendix)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
776
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
777 (@section . @chapter)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
778 (@unnumberedsec . @unnumbered)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
779 (@heading . @chapheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
780 (@appendixsec . @appendix)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
781
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
782 (@subsection . @section)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
783 (@unnumberedsubsec . @unnumberedsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
784 (@subheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
785 (@appendixsubsec . @appendixsec)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
786
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
787 (@subsubsection . @subsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
788 (@unnumberedsubsubsec . @unnumberedsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
789 (@subsubheading . @subheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
790 (@appendixsubsubsec . @appendixsubsec))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
791 "*An alist of next higher levels for chapters, sections. etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
792 For example, section to chapter, subsection to section.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
793 Used by `texinfo-raise-lower-sections'.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
794 The keys specify types of section; the values correspond to the next
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
795 higher types.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
796
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
797 (defvar texinfo-lowersections-alist
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
798 '((@chapter . @section)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
799 (@unnumbered . @unnumberedsec)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
800 (@centerchap . @unnumberedsec)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
801 (@majorheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
802 (@chapheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
803 (@appendix . @appendixsec)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
804
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
805 (@section . @subsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
806 (@unnumberedsec . @unnumberedsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
807 (@heading . @subheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
808 (@appendixsec . @appendixsubsec)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
809
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
810 (@subsection . @subsubsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
811 (@unnumberedsubsec . @unnumberedsubsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
812 (@subheading . @subsubheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
813 (@appendixsubsec . @appendixsubsubsec)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
814
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
815 (@subsubsection . @subsubsection) ; Cannot go lower.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
816 (@unnumberedsubsubsec . @unnumberedsubsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
817 (@subsubheading . @subsubheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
818 (@appendixsubsubsec . @appendixsubsubsec))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
819 "*An alist of next lower levels for chapters, sections. etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
820 For example, chapter to section, section to subsection.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
821 Used by `texinfo-raise-lower-sections'.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
822 The keys specify types of section; the values correspond to the next
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
823 lower types.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
824
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
825
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
826 ;;; Perform those texinfo-to-info conversions that apply to the whole input
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
827 ;;; uniformly.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
828
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
829 (defun texinfo-format-scan ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
830 (texinfo-format-convert (point-min) (point-max))
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
831 ;; Search for @copying, which has to be first since the
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
832 ;; @insertcopying command then inserts the text elsewhere.
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
833 (goto-char (point-min))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
834 (when (search-forward "@copying" nil t)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
835 (texinfo-copying))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
836 (while (search-forward "@insertcopying" nil t)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
837 (delete-region (match-beginning 0) (match-end 0))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
838
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
839 (texinfo-insertcopying))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
840 ;; Scan for other @-commands.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
841 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
842 (while (search-forward "@" nil t)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
843 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
844 ;; These are the single-character accent commands: @^ @` @' @" @= @~
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
845 ;; In Info, they are simply quoted and the @ deleted.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
846 ;; Other single-character commands:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
847 ;; @* forces a line break,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
848 ;; @- is a discretionary hyphenation point; does nothing in Info.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
849 ;; @<space>, @<tab>, @<newline> each produce a single space,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
850 ;; unless followed by a newline.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
851 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
852 ;; Old version 2.34 expression: (looking-at "[@{}^'` *\"?!]")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
853 (if (looking-at "[@{}^'`\"=~ \t\n*?!-]")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
854 ;; @*, causes a line break.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
855 (cond
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
856 ;; @*, a line break
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
857 ((= (following-char) ?*)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
858 ;; remove command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
859 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
860 ;; insert return if not at end of line;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
861 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
862 (if (not (= (following-char) ?\n))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
863 (insert ?\n)))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
864 ;; @-, deleted
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
865 ((= (following-char) ?-)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
866 (delete-region (1- (point)) (1+ (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
867 ;; @<space>, @<tab>, @<newline>: produce a single space,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
868 ;; unless followed by a newline.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
869 ((= (following-char) ? )
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
870 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
871 ;; insert single space if not at end of line;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
872 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
873 (if (not (= (following-char) ?\n))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
874 (insert ? )))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
875 ((= (following-char) ?\t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
876 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
877 ;; insert single space if not at end of line;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
878 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
879 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
880 (insert ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
881 ;; following char is a carriage return
27254
650eddd41858 (texinfo-format-scan): Use ?\n instead
Gerd Moellmann <gerd@gnu.org>
parents: 25278
diff changeset
882 ((= (following-char) ?\n)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
883 ;; remove command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
884 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
885 ;; insert single space if not at end of line;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
886 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
887 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
888 (insert ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
889 ;; Otherwise: the other characters are simply quoted. Delete the @.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
890 (t
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
891 (delete-char -1)
36300
e4408f5badaf Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents: 36287
diff changeset
892 ;; Be compatible with makeinfo: if @' and its ilk are
36287
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
893 ;; followed by a @ without a brace, barf.
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
894 (if (looking-at "[\"'^`~=]")
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
895 (progn
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
896 (if (= (char-after (1+ (point))) ?@)
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
897 (error "Use braces to give a command as an argument to @%c"
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
898 (following-char)))
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
899 (forward-char 1)
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
900 ;; @' etc. can optionally accept their argument in
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
901 ;; braces (makeinfo supports that).
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
902 (when (looking-at "{")
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
903 (let ((start (point)))
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
904 (forward-list 1)
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
905 (delete-char -1)
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
906 (goto-char start)
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
907 (delete-char 1))))
6619db0066d9 (texinfo-format-scan): Signal an error if
Eli Zaretskii <eliz@gnu.org>
parents: 28740
diff changeset
908 (forward-char 1))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
909 ;; @ is followed by a command-word; find the end of the word.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
910 (setq texinfo-command-start (1- (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
911 (if (= (char-syntax (following-char)) ?w)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
912 (forward-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
913 (forward-char 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
914 (setq texinfo-command-end (point))
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
915 ;; Detect the case of two @-commands in a row;
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
916 ;; process just the first one.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
917 (goto-char (1+ texinfo-command-start))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
918 (skip-chars-forward "^@" texinfo-command-end)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
919 (setq texinfo-command-end (point))
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
920 ;; Handle let aliasing
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
921 (setq texinfo-command-name
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
922 (let (trial
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
923 (cmdname
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
924 (buffer-substring-no-properties
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
925 (1+ texinfo-command-start) texinfo-command-end)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
926 (while (setq trial (assoc cmdname texinfo-alias-list))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
927 (setq cmdname (cdr trial)))
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
928 (intern cmdname)))
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
929 ;; Call the handler for this command.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
930 (let ((enclosure-type
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
931 (assoc
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
932 (symbol-name texinfo-command-name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
933 texinfo-enclosure-list)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
934 (if enclosure-type
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
935 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
936 (insert
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
937 (car (car (cdr enclosure-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
938 (texinfo-parse-arg-discard)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
939 (car (cdr (car (cdr enclosure-type)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
940 (goto-char texinfo-command-start))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
941 (let ((cmd (get texinfo-command-name 'texinfo-format)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
942 (if cmd (funcall cmd) (texinfo-unsupported)))))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
943
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
944 (cond (texinfo-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
945 (goto-char (nth 2 (car texinfo-stack)))
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
946 (error "Unterminated @%s" (car (car texinfo-stack)))))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
947
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
948 ;; Remove excess whitespace
51550
5ffaa82e4d48 (texinfo-format-scan): Silence `whitespace-cleanup'.
Juanma Barranquero <lekktu@gmail.com>
parents: 49700
diff changeset
949 (let ((whitespace-silent t))
5ffaa82e4d48 (texinfo-format-scan): Silence `whitespace-cleanup'.
Juanma Barranquero <lekktu@gmail.com>
parents: 49700
diff changeset
950 (whitespace-cleanup)))
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
951
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
952 (defvar texinfo-copying-text ""
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
953 "Text of the copyright notice and copying permissions.")
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
954
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
955 (defun texinfo-copying ()
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
956 "Copy the copyright notice and copying permissions from the Texinfo file,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
957 as indicated by the @copying ... @end copying command;
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
958 insert the text with the @insertcopying command."
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
959 (let ((beg (progn (beginning-of-line) (point)))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
960 (end (progn (re-search-forward "^@end copying[ \t]*\n") (point))))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
961 (setq texinfo-copying-text
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
962 (buffer-substring-no-properties
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
963 (save-excursion (goto-char beg) (forward-line 1) (point))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
964 (save-excursion (goto-char end) (forward-line -1) (point))))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
965 (delete-region beg end)))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
966
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
967 (defun texinfo-insertcopying ()
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
968 "Insert the copyright notice and copying permissions from the Texinfo file,
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
969 which are indicated by the @copying ... @end copying command."
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
970 (insert (concat "\n" texinfo-copying-text)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
971
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
972 (put 'begin 'texinfo-format 'texinfo-format-begin)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
973 (defun texinfo-format-begin ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
974 (texinfo-format-begin-end 'texinfo-format))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
975
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
976 (put 'end 'texinfo-format 'texinfo-format-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
977 (defun texinfo-format-end ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
978 (texinfo-format-begin-end 'texinfo-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
979
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
980 (defun texinfo-format-begin-end (prop)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
981 (setq texinfo-command-name (intern (texinfo-parse-line-arg)))
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
982 (let ((cmd (get texinfo-command-name prop)))
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
983 (if cmd (funcall cmd)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
984 (texinfo-unsupported))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
985
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
986 ;;; Parsing functions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
987
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
988 (defun texinfo-parse-line-arg ()
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
989 "Return argument of @-command as string.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
990 Argument is separated from command either by a space or by a brace.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
991 If a space, return rest of line, with beginning and ending white
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
992 space removed. If a brace, return string between braces.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
993 Leave point after argument."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
994 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
995 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
996 (cond ((looking-at " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
997 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
998 (setq start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
999 (end-of-line)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1000 (skip-chars-backward " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1001 (delete-region (point) (progn (end-of-line) (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1002 (setq texinfo-command-end (1+ (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1003 ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1004 (setq start (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1005 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1006 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1007 (forward-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1008 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1009 (error "Invalid texinfo command arg format")))
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1010 (prog1 (buffer-substring-no-properties start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1011 (if (eolp) (forward-char 1)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1012
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1013 (defun texinfo-parse-expanded-arg ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1014 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1015 (let ((start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1016 marker)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1017 (cond ((looking-at " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1018 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1019 (setq start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1020 (end-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1021 (setq texinfo-command-end (1+ (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1022 ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1023 (setq start (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1024 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1025 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1026 (forward-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1027 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1028 (error "Invalid texinfo command arg format")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1029 (setq marker (move-marker (make-marker) texinfo-command-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1030 (texinfo-format-expand-region start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1031 (setq texinfo-command-end (marker-position marker))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1032 (move-marker marker nil)
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1033 (prog1 (buffer-substring-no-properties start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1034 (if (eolp) (forward-char 1)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1035
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1036 (defun texinfo-format-expand-region (start end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1037 (save-restriction
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1038 (narrow-to-region start end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1039 (let (texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1040 texinfo-command-end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1041 texinfo-command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1042 texinfo-stack)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1043 (texinfo-format-scan))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1044 (goto-char (point-max))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1045
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1046 (defun texinfo-parse-arg-discard ()
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1047 "Delete command and argument; return argument of command."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1048 (prog1 (texinfo-parse-line-arg)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1049 (texinfo-discard-command)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1050
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1051 (defun texinfo-discard-command ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1052 (delete-region texinfo-command-start texinfo-command-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1053
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1054 (defun texinfo-optional-braces-discard ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1055 "Discard braces following command, if any."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1056 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1057 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1058 (cond ((looking-at "[ \t]*\n")) ; do nothing
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1059 ((looking-at "{") ; remove braces, if any
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1060 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1061 (setq texinfo-command-end (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1062 (t
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1063 (error
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1064 "Invalid `texinfo-optional-braces-discard' format \(need braces?\)")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1065 (delete-region texinfo-command-start texinfo-command-end)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1066
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1067 (defun texinfo-format-parse-line-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1068 (let ((start (1- (point)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1069 next beg end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1070 args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1071 (skip-chars-forward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1072 (while (not (eolp))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1073 (setq beg (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1074 (re-search-forward "[\n,]")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1075 (setq next (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1076 (if (bolp) (setq next (1- next)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1077 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1078 (skip-chars-backward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1079 (setq end (point))
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1080 (setq args (cons (if (> end beg) (buffer-substring-no-properties beg end))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1081 args))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1082 (goto-char next)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1083 (skip-chars-forward " "))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1084 (if (eolp) (forward-char 1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1085 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1086 (nreverse args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1087
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1088 (defun texinfo-format-parse-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1089 (let ((start (1- (point)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1090 next beg end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1091 args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1092 (search-forward "{")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1093 (save-excursion
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1094 (texinfo-format-expand-region
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1095 (point)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1096 (save-excursion (up-list 1) (1- (point)))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1097 ;; The following does not handle cross references of the form:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1098 ;; `@xref{bullet, , @code{@@bullet}@{@}}.' because the
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1099 ;; re-search-forward finds the first right brace after the second
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1100 ;; comma.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1101 (while (/= (preceding-char) ?\})
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1102 (skip-chars-forward " \t\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1103 (setq beg (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1104 (re-search-forward "[},]")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1105 (setq next (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1106 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1107 (skip-chars-backward " \t\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1108 (setq end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1109 (cond ((< beg end)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1110 (goto-char beg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1111 (while (search-forward "\n" end t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1112 (replace-match " "))))
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1113 (setq args (cons (if (> end beg) (buffer-substring-no-properties beg end))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1114 args))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1115 (goto-char next))
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
1116 ;;(if (eolp) (forward-char 1))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1117 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1118 (nreverse args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1119
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1120 (defun texinfo-format-parse-defun-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1121 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1122 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1123 (end-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1124 (setq texinfo-command-end (1+ (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1125 (let ((marker (move-marker (make-marker) texinfo-command-end)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1126 (texinfo-format-expand-region start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1127 (setq texinfo-command-end (marker-position marker))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1128 (move-marker marker nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1129 (goto-char start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1130 (let ((args '())
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1131 beg end)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1132 (skip-chars-forward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1133 (while (not (eolp))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1134 (cond ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1135 (setq beg (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1136 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1137 (setq end (1- (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1138 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1139 (setq beg (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1140 (re-search-forward "[\n ]")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1141 (forward-char -1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1142 (setq end (point))))
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1143 (setq args (cons (buffer-substring-no-properties beg end) args))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1144 (skip-chars-forward " "))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1145 (forward-char 1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1146 (nreverse args))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1147
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1148 (defun texinfo-discard-line ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1149 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1150 (skip-chars-forward " \t")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1151 (or (eolp)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
1152 (error "Extraneous text at end of command line"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1153 (goto-char texinfo-command-start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1154 (or (bolp)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
1155 (error "Extraneous text at beginning of command line"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1156 (delete-region (point) (progn (forward-line 1) (point))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1157
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1158 (defun texinfo-discard-line-with-args ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1159 (goto-char texinfo-command-start)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1160 (delete-region (point) (progn (forward-line 1) (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1161
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1162
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1163 ;;; @setfilename
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1164
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1165 ;; Only `texinfo-format-buffer' handles @setfilename with this
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1166 ;; definition; `texinfo-format-region' handles @setfilename, if any,
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1167 ;; specially.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1168 (put 'setfilename 'texinfo-format 'texinfo-format-setfilename)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1169 (defun texinfo-format-setfilename ()
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
1170 (texinfo-parse-arg-discard))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1171
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1172 ;;; @node, @menu, @detailmenu
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1173
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1174 (put 'node 'texinfo-format 'texinfo-format-node)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1175 (put 'nwnode 'texinfo-format 'texinfo-format-node)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1176 (defun texinfo-format-node ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1177 (let* ((args (texinfo-format-parse-line-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1178 (name (nth 0 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1179 (next (nth 1 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1180 (prev (nth 2 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1181 (up (nth 3 args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1182 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1183 (setq texinfo-last-node name)
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
1184 (let ((tem (if texinfo-fold-nodename-case (downcase name) name)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1185 (if (assoc tem texinfo-node-names)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1186 (error "Duplicate node name: %s" name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1187 (setq texinfo-node-names (cons (list tem) texinfo-node-names))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1188 (setq texinfo-footnote-number 0)
9896
a70b99926339 (texinfo-format-node): Insert the node delimiter
Richard M. Stallman <rms@gnu.org>
parents: 9759
diff changeset
1189 ;; insert "\n\^_" unconditionally since this is what info is looking for
a70b99926339 (texinfo-format-node): Insert the node delimiter
Richard M. Stallman <rms@gnu.org>
parents: 9759
diff changeset
1190 (insert "\n\^_\nFile: " texinfo-format-filename
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1191 ", Node: " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1192 (if next
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1193 (insert ", Next: " next))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1194 (if prev
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1195 (insert ", Prev: " prev))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1196 (if up
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1197 (insert ", Up: " up))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1198 (insert ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1199 (setq texinfo-last-node-pos (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1200
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1201 (put 'anchor 'texinfo-format 'texinfo-anchor)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1202 (defun texinfo-anchor ()
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1203 (let (anchor-string
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1204 (here (- (point) 7)) ; save location of beginning of `@anchor'
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1205 (arg (texinfo-parse-arg-discard)))
24745
aa8417416f03 (texinfo-anchor): Don't delete a non-speace after the @anchor command.
Richard M. Stallman <rms@gnu.org>
parents: 24621
diff changeset
1206 (if (looking-at " ") ; since a space may be left after -discard
aa8417416f03 (texinfo-anchor): Don't delete a non-speace after the @anchor command.
Richard M. Stallman <rms@gnu.org>
parents: 24621
diff changeset
1207 (delete-char 1))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1208 (forward-paragraph)
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1209 (let ((end (point)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1210 (if (save-excursion
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1211 (backward-word 1)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1212 (search-forward "@refill" end t))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1213 (setq anchor-string "@anchor-yes-refill")
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1214 (setq anchor-string "@anchor-no-refill")))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1215 (goto-char here)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1216 (insert anchor-string "{" arg "}")))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1217
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1218 (put 'menu 'texinfo-format 'texinfo-format-menu)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1219 (defun texinfo-format-menu ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1220 (texinfo-discard-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1221 (insert "* Menu:\n\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1222
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1223 (put 'menu 'texinfo-end 'texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1224
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1225 ;; The @detailmenu should be removed eventually.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1226
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1227 ;; According to Karl Berry, 31 August 1996:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1228 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1229 ;; You don't like, I don't like it. I agree, it would be better just to
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1230 ;; fix the bug [in `makeinfo']. .. At this point, since inserting those
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1231 ;; two commands in the Elisp fn is trivial, I don't especially want to
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1232 ;; expend more effort...
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1233 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1234 ;; I added a couple sentences of documentation to the manual (putting the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1235 ;; blame on makeinfo where it belongs :-().
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1236
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1237 (put 'detailmenu 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1238 (put 'detailmenu 'texinfo-end 'texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1239
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1240 ;; (Also see `texnfo-upd.el')
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1241
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1242
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1243 ;;; Cross references
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1244
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1245 ;; @xref {NODE, FNAME, NAME, FILE, DOCUMENT}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1246 ;; -> *Note FNAME: (FILE)NODE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1247 ;; If FILE is missing,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1248 ;; *Note FNAME: NODE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1249 ;; If FNAME is empty and NAME is present
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1250 ;; *Note NAME: Node
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1251 ;; If both NAME and FNAME are missing
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1252 ;; *Note NODE::
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1253 ;; texinfo ignores the DOCUMENT argument.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1254 ;; -> See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1255 ;; If FILE is specified, (FILE)NODE is used for xrefs.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1256 ;; If fifth argument DOCUMENT is specified, produces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1257 ;; See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1258 ;; of DOCUMENT
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1259
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1260 ;; @ref a reference that does not put `See' or `see' in
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1261 ;; the hardcopy and is the same as @xref in Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1262 (put 'ref 'texinfo-format 'texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1263
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1264 (put 'xref 'texinfo-format 'texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1265 (defun texinfo-format-xref ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1266 (let ((args (texinfo-format-parse-args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1267 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1268 (insert "*Note ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1269 (let ((fname (or (nth 1 args) (nth 2 args))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1270 (if (null (or fname (nth 3 args)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1271 (insert (car args) "::")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1272 (insert (or fname (car args)) ": ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1273 (if (nth 3 args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1274 (insert "(" (nth 3 args) ")"))
28740
14cc47ddd47a (texinfo-format-xref): Don't try to insert nil.
Gerd Moellmann <gerd@gnu.org>
parents: 27254
diff changeset
1275 (and (car args) (insert (car args)))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1276
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1277 (put 'pxref 'texinfo-format 'texinfo-format-pxref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1278 (defun texinfo-format-pxref ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1279 (texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1280 (or (save-excursion
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1281 (forward-char -2)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1282 (looking-at "::"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1283 (insert ".")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1284
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1285 ;; @inforef{NODE, FNAME, FILE}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1286 ;; Like @xref{NODE, FNAME,,FILE} in texinfo.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1287 ;; In Tex, generates "See Info file FILE, node NODE"
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1288 (put 'inforef 'texinfo-format 'texinfo-format-inforef)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1289 (defun texinfo-format-inforef ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1290 (let ((args (texinfo-format-parse-args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1291 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1292 (if (nth 1 args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1293 (insert "*Note " (nth 1 args) ": (" (nth 2 args) ")" (car args))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1294 (insert "*Note " "(" (nth 2 args) ")" (car args) "::"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1295
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1296
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1297 ;;; URL Reference: @uref
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1298
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1299 ;; @uref produces a reference to a uniform resource locator (URL).
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1300 ;; It takes one mandatory argument, the URL, and one optional argument,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1301 ;; the text to display (the default is the URL itself).
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1302
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1303 (put 'uref 'texinfo-format 'texinfo-format-uref)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1304 (defun texinfo-format-uref ()
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1305 "Format URL and optional URL-TITLE.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1306 Insert ` ... ' around URL if no URL-TITLE argument;
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1307 otherwise, insert URL-TITLE followed by URL in parentheses."
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1308 (let ((args (texinfo-format-parse-args)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1309 (texinfo-discard-command)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1310 ;; if url-title
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1311 (if (nth 1 args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1312 (insert (nth 1 args) " (" (nth 0 args) ")")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1313 (insert "`" (nth 0 args) "'"))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1314 (goto-char texinfo-command-start)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1315
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1316
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1317 ;;; Section headings
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1318
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1319 (put 'majorheading 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1320 (put 'chapheading 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1321 (put 'ichapter 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1322 (put 'chapter 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1323 (put 'iappendix 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1324 (put 'appendix 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1325 (put 'iunnumbered 'texinfo-format 'texinfo-format-chapter)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1326 (put 'top 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1327 (put 'unnumbered 'texinfo-format 'texinfo-format-chapter)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1328 (put 'centerchap 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1329 (defun texinfo-format-chapter ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1330 (texinfo-format-chapter-1 ?*))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1331
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1332 (put 'heading 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1333 (put 'isection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1334 (put 'section 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1335 (put 'iappendixsection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1336 (put 'appendixsection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1337 (put 'iappendixsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1338 (put 'appendixsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1339 (put 'iunnumberedsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1340 (put 'unnumberedsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1341 (defun texinfo-format-section ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1342 (texinfo-format-chapter-1 ?=))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1343
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1344 (put 'subheading 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1345 (put 'isubsection 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1346 (put 'subsection 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1347 (put 'iappendixsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1348 (put 'appendixsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1349 (put 'iunnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1350 (put 'unnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1351 (defun texinfo-format-subsection ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1352 (texinfo-format-chapter-1 ?-))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1353
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1354 (put 'subsubheading 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1355 (put 'isubsubsection 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1356 (put 'subsubsection 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1357 (put 'iappendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1358 (put 'appendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1359 (put 'iunnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1360 (put 'unnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1361 (defun texinfo-format-subsubsection ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1362 (texinfo-format-chapter-1 ?.))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1363
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1364 (defun texinfo-format-chapter-1 (belowchar)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1365 (let ((arg (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1366 (message "Formatting: %s ... " arg) ; So we can see where we are.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1367 (insert ?\n arg ?\n "@SectionPAD " belowchar ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1368 (forward-line -2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1369
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1370 (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1371 (defun texinfo-format-sectionpad ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1372 (let ((str (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1373 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1374 (let ((column (current-column)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1375 (forward-char 1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1376 (while (> column 0)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1377 (insert str)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1378 (setq column (1- column))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1379 (insert ?\n)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1380
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1381
9754
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1382 ;;; Space controlling commands: @. and @:, and the soft hyphen.
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1383
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1384 (put '\. 'texinfo-format 'texinfo-format-\.)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1385 (defun texinfo-format-\. ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1386 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1387 (insert "."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1388
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1389 (put '\: 'texinfo-format 'texinfo-format-\:)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1390 (defun texinfo-format-\: ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1391 (texinfo-discard-command))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1392
9754
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1393 (put '\- 'texinfo-format 'texinfo-format-soft-hyphen)
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1394 (defun texinfo-format-soft-hyphen ()
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1395 (texinfo-discard-command))
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1396
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1397
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1398 ;;; @kbdinputstyle, @vskip, headings & footings
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1399 ;; These commands for not for Info and should never
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1400 ;; appear in an Info environment; but if they do,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1401 ;; this causes them to be discarded.
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1402
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1403 ;; @kbdinputstyle
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1404 (put 'kbdinputstyle 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1405
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1406 ;; @vskip
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1407 (put 'vskip 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1408
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1409 ;; headings & footings
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1410 (put 'evenfooting 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1411 (put 'evenheading 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1412 (put 'oddfooting 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1413 (put 'oddheading 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1414 (put 'everyfooting 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1415 (put 'everyheading 'texinfo-format 'texinfo-discard-line-with-args)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1416
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1417
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1418 ;;; @documentdescription ... @end documentdescription
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1419 ;; This command is for HTML output and should never
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1420 ;; appear in an Info environment; but if it does,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1421 ;; this causes it to be discarded.
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1422
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1423 (put 'documentdescription 'texinfo-format 'texinfo-format-documentdescription)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1424 (defun texinfo-format-documentdescription ()
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1425 (delete-region texinfo-command-start
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1426 (progn (re-search-forward "^@end documentdescription[ \t]*\n")
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1427 (point))))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1428
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1429
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
1430
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1431 ;;; @center, @sp, and @br
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1432
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1433 (put 'center 'texinfo-format 'texinfo-format-center)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1434 (defun texinfo-format-center ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1435 (let ((arg (texinfo-parse-expanded-arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1436 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1437 (insert arg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1438 (insert ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1439 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1440 (goto-char (1- (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1441 (let ((indent-tabs-mode nil))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1442 (center-line)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1443
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1444 (put 'sp 'texinfo-format 'texinfo-format-sp)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1445 (defun texinfo-format-sp ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1446 (let* ((arg (texinfo-parse-arg-discard))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1447 (num (read arg)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1448 (insert-char ?\n num)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1449
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1450 (put 'br 'texinfo-format 'texinfo-format-paragraph-break)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1451 (defun texinfo-format-paragraph-break ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1452 "Force a paragraph break.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1453 If used within a line, follow `@br' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1454 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1455 ;; insert one return if at end of line;
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1456 ;; else insert two returns, to generate a blank line.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1457 (if (= (following-char) ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1458 (insert ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1459 (insert-char ?\n 2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1460
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1461
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1462 ;;; @footnote and @footnotestyle
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1463
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1464 ;; In Texinfo, footnotes are created with the `@footnote' command.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1465 ;; This command is followed immediately by a left brace, then by the text of
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1466 ;; the footnote, and then by a terminating right brace. The
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1467 ;; template for a footnote is:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1468 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1469 ;; @footnote{TEXT}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1470 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1471 ;; Info has two footnote styles:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1472 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1473 ;; * In the End of node style, all the footnotes for a single node
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1474 ;; are placed at the end of that node. The footnotes are
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1475 ;; separated from the rest of the node by a line of dashes with
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1476 ;; the word `Footnotes' within it.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1477 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1478 ;; * In the Separate node style, all the footnotes for a single node
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1479 ;; are placed in an automatically constructed node of their own.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1480
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1481 ;; Footnote style is specified by the @footnotestyle command, either
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1482 ;; @footnotestyle separate
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1483 ;; or
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1484 ;; @footnotestyle end
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1485 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1486 ;; The default is separate
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1487
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1488 (defvar texinfo-footnote-style "separate"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1489 "Footnote style, either separate or end.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1490
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1491 (put 'footnotestyle 'texinfo-format 'texinfo-footnotestyle)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1492 (defun texinfo-footnotestyle ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1493 "Specify whether footnotes are at end of node or in separate nodes.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1494 Argument is either end or separate."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1495 (setq texinfo-footnote-style (texinfo-parse-arg-discard)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1496
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1497 (defvar texinfo-footnote-number)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1498
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1499 (put 'footnote 'texinfo-format 'texinfo-format-footnote)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1500 (defun texinfo-format-footnote ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1501 "Format a footnote in either end of node or separate node style.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1502 The texinfo-footnote-style variable controls which style is used."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1503 (setq texinfo-footnote-number (1+ texinfo-footnote-number))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1504 (cond ((string= texinfo-footnote-style "end")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1505 (texinfo-format-end-node))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1506 ((string= texinfo-footnote-style "separate")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1507 (texinfo-format-separate-node))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1508
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1509 (defun texinfo-format-separate-node ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1510 "Format footnote in Separate node style, with notes in own node.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1511 The node is constructed automatically."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1512 (let* (start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1513 (arg (texinfo-parse-line-arg))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1514 (node-name-beginning
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1515 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1516 (re-search-backward
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1517 "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ \t]+Node:")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1518 (match-end 0)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1519 (node-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1520 (save-excursion
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1521 (buffer-substring-no-properties
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1522 (progn (goto-char node-name-beginning) ; skip over node command
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1523 (skip-chars-forward " \t") ; and over spaces
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1524 (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1525 (if (search-forward
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1526 ","
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1527 (save-excursion (end-of-line) (point)) t) ; bound search
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1528 (1- (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1529 (end-of-line) (point))))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1530 (texinfo-discard-command) ; remove or insert whitespace, as needed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1531 (delete-region (save-excursion (skip-chars-backward " \t\n") (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1532 (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1533 (insert (format " (%d) (*Note %s-Footnotes::)"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1534 texinfo-footnote-number node-name))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1535 (fill-paragraph nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1536 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1537 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1538 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1539
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1540 ;; two cases: for the first footnote, we must insert a node header;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1541 ;; for the second and subsequent footnotes, we need only insert
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1542 ;; the text of the footnote.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1543
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1544 (if (save-excursion
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
1545 (search-backward
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1546 (concat node-name "-Footnotes, Up: ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1547 node-name-beginning
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1548 t))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1549 (progn ; already at least one footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1550 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1551 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1552 (fill-region start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1553 ;; else not yet a footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1554 (insert "\n\^_\nFile: " texinfo-format-filename
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1555 " Node: " node-name "-Footnotes, Up: " node-name "\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1556 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1557 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
71675
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
1558 (narrow-to-region (save-excursion (goto-char start) (point)) (point))
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
1559 (fill-region (point-min) (point-max))
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
1560 (widen)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1561
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1562 (defun texinfo-format-end-node ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1563 "Format footnote in the End of node style, with notes at end of node."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1564 (let (start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1565 (arg (texinfo-parse-line-arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1566 (texinfo-discard-command) ; remove or insert whitespace, as needed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1567 (delete-region (save-excursion (skip-chars-backward " \t\n") (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1568 (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1569 (insert (format " (%d) " texinfo-footnote-number))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1570 (fill-paragraph nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1571 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1572 (if (search-forward "\n--------- Footnotes ---------\n" nil t)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1573 (progn ; already have footnote, put new one before end of node
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1574 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1575 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1576 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1577 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1578 (fill-region start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1579 ;; else no prior footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1580 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1581 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1582 (insert "\n--------- Footnotes ---------\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1583 (setq start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1584 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1585
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1586
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1587 ;;; @itemize, @enumerate, and similar commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1588
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1589 ;; @itemize pushes (itemize "COMMANDS" STARTPOS) on texinfo-stack.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1590 ;; @enumerate pushes (enumerate 0 STARTPOS).
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1591 ;; @item dispatches to the texinfo-item prop of the first elt of the list.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1592 ;; For itemize, this puts in and rescans the COMMANDS.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1593 ;; For enumerate, this increments the number and puts it in.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1594 ;; In either case, it puts a Backspace at the front of the line
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1595 ;; which marks it not to be indented later.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1596 ;; All other lines get indented by 5 when the @end is reached.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1597
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1598 (defvar texinfo-stack-depth 0
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1599 "Count of number of unpopped texinfo-push-stack calls.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1600 Used by @refill indenting command to avoid indenting within lists, etc.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1601
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1602 (defun texinfo-push-stack (check arg)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1603 (setq texinfo-stack-depth (1+ texinfo-stack-depth))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1604 (setq texinfo-stack
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1605 (cons (list check arg texinfo-command-start)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1606 texinfo-stack)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1607
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1608 (defun texinfo-pop-stack (check)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1609 (setq texinfo-stack-depth (1- texinfo-stack-depth))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1610 (if (null texinfo-stack)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1611 (error "Unmatched @end %s" check))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1612 (if (not (eq (car (car texinfo-stack)) check))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1613 (error "@end %s matches @%s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1614 check (car (car texinfo-stack))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1615 (prog1 (cdr (car texinfo-stack))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1616 (setq texinfo-stack (cdr texinfo-stack))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1617
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1618 (put 'itemize 'texinfo-format 'texinfo-itemize)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1619 (defun texinfo-itemize ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1620 (texinfo-push-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1621 'itemize
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1622 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1623 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1624 "@bullet"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1625 (texinfo-parse-line-arg))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1626 (texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1627 (setq fill-column (- fill-column 5)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1628
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1629 (put 'itemize 'texinfo-end 'texinfo-end-itemize)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1630 (defun texinfo-end-itemize ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1631 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1632 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1633 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1634 (texinfo-pop-stack 'itemize)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1635 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1636
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1637 (put 'enumerate 'texinfo-format 'texinfo-enumerate)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1638 (defun texinfo-enumerate ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1639 (texinfo-push-stack
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1640 'enumerate
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1641 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1642 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1643 1
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1644 (read (current-buffer)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1645 (if (and (symbolp (car (cdr (car texinfo-stack))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1646 (> 1 (length (symbol-name (car (cdr (car texinfo-stack)))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1647 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1648 "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." ))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1649 (texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1650 (setq fill-column (- fill-column 5)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1651
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1652 (put 'enumerate 'texinfo-end 'texinfo-end-enumerate)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1653 (defun texinfo-end-enumerate ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1654 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1655 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1656 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1657 (texinfo-pop-stack 'enumerate)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1658 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1659
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1660 ;; @alphaenumerate never became a standard part of Texinfo
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1661 (put 'alphaenumerate 'texinfo-format 'texinfo-alphaenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1662 (defun texinfo-alphaenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1663 (texinfo-push-stack 'alphaenumerate (1- ?a))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1664 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1665 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1666
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1667 (put 'alphaenumerate 'texinfo-end 'texinfo-end-alphaenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1668 (defun texinfo-end-alphaenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1669 (setq fill-column (+ fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1670 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1671 (let ((stacktop
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1672 (texinfo-pop-stack 'alphaenumerate)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1673 (texinfo-do-itemize (nth 1 stacktop))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1674
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1675 ;; @capsenumerate never became a standard part of Texinfo
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1676 (put 'capsenumerate 'texinfo-format 'texinfo-capsenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1677 (defun texinfo-capsenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1678 (texinfo-push-stack 'capsenumerate (1- ?A))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1679 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1680 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1681
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1682 (put 'capsenumerate 'texinfo-end 'texinfo-end-capsenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1683 (defun texinfo-end-capsenumerate ()
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1684 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1685 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1686 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1687 (texinfo-pop-stack 'capsenumerate)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1688 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1689
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1690 ;; At the @end, indent all the lines within the construct
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1691 ;; except those marked with backspace. FROM says where
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1692 ;; construct started.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1693 (defun texinfo-do-itemize (from)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1694 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1695 (while (progn (forward-line -1)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1696 (>= (point) from))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1697 (if (= (following-char) ?\b)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1698 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1699 (delete-char 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1700 (end-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1701 (delete-char 6))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1702 (if (not (looking-at "[ \t]*$"))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1703 (save-excursion (insert " ")))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1704
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1705 (put 'item 'texinfo-format 'texinfo-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1706 (put 'itemx 'texinfo-format 'texinfo-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1707 (defun texinfo-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1708 (funcall (get (car (car texinfo-stack)) 'texinfo-item)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1709
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1710 (put 'itemize 'texinfo-item 'texinfo-itemize-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1711 (defun texinfo-itemize-item ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1712 ;; (texinfo-discard-line) ; Did not handle text on same line as @item.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1713 (delete-region (1+ (point)) (save-excursion (beginning-of-line) (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1714 (if (looking-at "[ \t]*[^ \t\n]+")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1715 ;; Text on same line as @item command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1716 (insert "\b " (nth 1 (car texinfo-stack)) " \n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1717 ;; Else text on next line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1718 (insert "\b " (nth 1 (car texinfo-stack)) " "))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1719 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1720
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1721 (put 'enumerate 'texinfo-item 'texinfo-enumerate-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1722 (defun texinfo-enumerate-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1723 (texinfo-discard-line)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1724 (let (enumerating-symbol)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1725 (cond ((integerp (car (cdr (car texinfo-stack))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1726 (setq enumerating-symbol (car (cdr (car texinfo-stack))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1727 (insert ?\b (format "%3d. " enumerating-symbol) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1728 (setcar (cdr (car texinfo-stack)) (1+ enumerating-symbol)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1729 ((symbolp (car (cdr (car texinfo-stack))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1730 (setq enumerating-symbol
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1731 (symbol-name (car (cdr (car texinfo-stack)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1732 (if (or (equal ?\[ (string-to-char enumerating-symbol))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1733 (equal ?\{ (string-to-char enumerating-symbol)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1734 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1735 "Too many items in enumerated list; alphabet ends at Z."))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1736 (insert ?\b (format "%3s. " enumerating-symbol) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1737 (setcar (cdr (car texinfo-stack))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1738 (make-symbol
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1739 (char-to-string
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1740 (1+
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1741 (string-to-char enumerating-symbol))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1742 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1743 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1744 "@enumerate: Use a number or letter, eg: 1, A, a, 3, B or d." )))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1745 (forward-line -1)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1746
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1747 (put 'alphaenumerate 'texinfo-item 'texinfo-alphaenumerate-item)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1748 (defun texinfo-alphaenumerate-item ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1749 (texinfo-discard-line)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1750 (let ((next (1+ (car (cdr (car texinfo-stack))))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1751 (if (> next ?z)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
1752 (error "More than 26 items in @alphaenumerate; get a bigger alphabet"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1753 (setcar (cdr (car texinfo-stack)) next)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1754 (insert "\b " next ". \n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1755 (forward-line -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1756
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1757 (put 'capsenumerate 'texinfo-item 'texinfo-capsenumerate-item)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1758 (defun texinfo-capsenumerate-item ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1759 (texinfo-discard-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1760 (let ((next (1+ (car (cdr (car texinfo-stack))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1761 (if (> next ?Z)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
1762 (error "More than 26 items in @capsenumerate; get a bigger alphabet"))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1763 (setcar (cdr (car texinfo-stack)) next)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1764 (insert "\b " next ". \n"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1765 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1766
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1767
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1768 ;;; @table
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1769
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1770 ;; The `@table' command produces two-column tables.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1771
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1772 (put 'table 'texinfo-format 'texinfo-table)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1773 (defun texinfo-table ()
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1774 (texinfo-push-stack
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1775 'table
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1776 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1777 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1778 "@asis"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1779 (texinfo-parse-line-arg))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1780 (texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1781 (setq fill-column (- fill-column 5)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1782
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1783 (put 'table 'texinfo-item 'texinfo-table-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1784 (defun texinfo-table-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1785 (let ((arg (texinfo-parse-arg-discard))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1786 (itemfont (car (cdr (car texinfo-stack)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1787 (insert ?\b itemfont ?\{ arg "}\n \n"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1788 (forward-line -2))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1789
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1790 (put 'table 'texinfo-end 'texinfo-end-table)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1791 (defun texinfo-end-table ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1792 (setq fill-column (+ fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1793 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1794 (let ((stacktop
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1795 (texinfo-pop-stack 'table)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1796 (texinfo-do-itemize (nth 1 stacktop))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1797
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1798 ;; @description appears to be an undocumented variant on @table that
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1799 ;; does not require an arg. It fails in texinfo.tex 2.58 and is not
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1800 ;; part of makeinfo.c The command appears to be a relic of the past.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1801 (put 'description 'texinfo-end 'texinfo-end-table)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1802 (put 'description 'texinfo-format 'texinfo-description)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1803 (defun texinfo-description ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1804 (texinfo-push-stack 'table "@asis")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1805 (setq fill-column (- fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1806 (texinfo-discard-line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1807
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1808
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1809 ;;; @ftable, @vtable
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1810
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1811 ;; The `@ftable' and `@vtable' commands are like the `@table' command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1812 ;; but they also insert each entry in the first column of the table
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1813 ;; into the function or variable index.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1814
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1815 ;; Handle the @ftable and @vtable commands:
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1816
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1817 (put 'ftable 'texinfo-format 'texinfo-ftable)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1818 (put 'vtable 'texinfo-format 'texinfo-vtable)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1819
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1820 (defun texinfo-ftable () (texinfo-indextable 'ftable))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1821 (defun texinfo-vtable () (texinfo-indextable 'vtable))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1822
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1823 (defun texinfo-indextable (table-type)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1824 (texinfo-push-stack table-type (texinfo-parse-arg-discard))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1825 (setq fill-column (- fill-column 5)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1826
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1827 ;; Handle the @item commands within ftable and vtable:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1828
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1829 (put 'ftable 'texinfo-item 'texinfo-ftable-item)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1830 (put 'vtable 'texinfo-item 'texinfo-vtable-item)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1831
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1832 (defun texinfo-ftable-item () (texinfo-indextable-item 'texinfo-findex))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1833 (defun texinfo-vtable-item () (texinfo-indextable-item 'texinfo-vindex))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1834
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1835 (defun texinfo-indextable-item (index-type)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1836 (let ((item (texinfo-parse-arg-discard))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1837 (itemfont (car (cdr (car texinfo-stack))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1838 (indexvar index-type))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1839 (insert ?\b itemfont ?\{ item "}\n \n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1840 (set indexvar
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1841 (cons
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1842 (list item texinfo-last-node)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1843 (symbol-value indexvar)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1844 (forward-line -2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1845
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1846 ;; Handle @end ftable, @end vtable
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1847
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1848 (put 'ftable 'texinfo-end 'texinfo-end-ftable)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1849 (put 'vtable 'texinfo-end 'texinfo-end-vtable)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1850
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1851 (defun texinfo-end-ftable () (texinfo-end-indextable 'ftable))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1852 (defun texinfo-end-vtable () (texinfo-end-indextable 'vtable))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1853
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1854 (defun texinfo-end-indextable (table-type)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1855 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1856 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1857 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1858 (texinfo-pop-stack table-type)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1859 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1860
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1861
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1862 ;;; @multitable ... @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1863
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1864 ;; Produce a multi-column table, with as many columns as desired.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1865 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1866 ;; A multi-column table has this template:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1867 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1868 ;; @multitable {A1} {A2} {A3}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1869 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1870 ;; @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1871 ;; @item C1 @tab C2 @tab C3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1872 ;; @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1873 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1874 ;; where the width of the text in brackets specifies the width of the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1875 ;; respective column.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1876 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1877 ;; Or else:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1878 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1879 ;; @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1880 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1881 ;; @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1882 ;; @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1883 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1884 ;; where the fractions specify the width of each column as a percent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1885 ;; of the current width of the text (i.e., of the fill-column).
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1886 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1887 ;; Long lines of text are filled within columns.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1888 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1889 ;; Using the Emacs Lisp formatter, texinfmt.el,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1890 ;; the whitespace between columns can be increased by setting
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1891 ;; `texinfo-extra-inter-column-width' to a value greater than 0. By default,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1892 ;; there is at least one blank space between columns.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1893 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1894 ;; The Emacs Lisp formatter, texinfmt.el, ignores the following four
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1895 ;; commands that are defined in texinfo.tex for printed output.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1896 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1897 ;; @multitableparskip,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1898 ;; @multitableparindent,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1899 ;; @multitablecolmargin,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1900 ;; @multitablelinespace.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1901
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1902 ;; How @multitable works.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1903 ;; =====================
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1904 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1905 ;; `texinfo-multitable' reads the @multitable line and determines from it
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1906 ;; how wide each column should be.
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1907 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1908 ;; Also, it pushes this information, along with an identifying symbol,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1909 ;; onto the `texinfo-stack'. At the @end multitable command, the stack
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1910 ;; is checked for its matching @multitable command, and then popped, or
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1911 ;; else an error is signaled. Also, this command pushes the location of
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1912 ;; the start of the table onto the stack.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1913 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1914 ;; `texinfo-end-multitable' checks the `texinfo-stack' that the @end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1915 ;; multitable truly is ending a corresponding beginning, and if it is,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1916 ;; pops the stack.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1917 ;;
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1918 ;; `texinfo-multitable-widths' is called by `texinfo-multitable'.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1919 ;; The function returns a list of the widths of each column in a
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1920 ;; multi-column table, based on the information supplied by the arguments
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1921 ;; to the @multitable command (by arguments, I mean the text on the rest
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1922 ;; of the @multitable line, not the remainder of the multi-column table
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1923 ;; environment).
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1924 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1925 ;; `texinfo-multitable-item' formats a row within a multicolumn table.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1926 ;; This command is executed when texinfmt sees @item inside @multitable.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1927 ;; Cells in row are separated by `@tab's. Widths of cells are specified
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1928 ;; by the arguments in the @multitable line. Cells are filled. All cells
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1929 ;; are made to be the same height by padding their bottoms, as needed,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1930 ;; with blanks.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1931 ;;
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1932 ;; `texinfo-multitable-extract-row' is called by `texinfo-multitable-item'.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1933 ;; This function returns the text in a multitable row, as a string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1934 ;; The start of a row is marked by an @item and the end of row is the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1935 ;; beginning of next @item or beginning of the @end multitable line.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1936 ;; Cells within a row are separated by @tab.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1937 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1938 ;; Note that @tab, the cell separators, are not treated as independent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1939 ;; Texinfo commands.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1940
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1941 (defvar texinfo-extra-inter-column-width 0
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1942 "*Number of extra spaces between entries (columns) in @multitable.")
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1943
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1944 (defvar texinfo-multitable-buffer-name "*multitable-temporary-buffer*")
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1945 (defvar texinfo-multitable-rectangle-name "texinfo-multitable-temp-")
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1946
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1947 ;; These commands are defined in texinfo.tex for printed output.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1948 (put 'multitableparskip 'texinfo-format 'texinfo-discard-line-with-args)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1949 (put 'multitableparindent 'texinfo-format 'texinfo-discard-line-with-args)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1950 (put 'multitablecolmargin 'texinfo-format 'texinfo-discard-line-with-args)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1951 (put 'multitablelinespace 'texinfo-format 'texinfo-discard-line-with-args)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1952
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1953 (put 'multitable 'texinfo-format 'texinfo-multitable)
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1954
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1955 (defun texinfo-multitable ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1956 "Produce multi-column tables.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1957
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1958 A multi-column table has this template:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1959
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1960 @multitable {A1} {A2} {A3}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1961 @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1962 @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1963 @item C1 @tab C2 @tab C3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1964 @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1965
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1966 where the width of the text in brackets specifies the width of the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1967 respective column.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1968
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1969 Or else:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1970
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1971 @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1972 @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1973 @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1974 @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1975
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1976 where the fractions specify the width of each column as a percent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1977 of the current width of the text (i.e., of the fill-column).
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1978
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1979 Long lines of text are filled within columns.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1980
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
1981 Using the Emacs Lisp formatter, texinfmt.el,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1982 the whitespace between columns can be increased by setting
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1983 `texinfo-extra-inter-column-width' to a value greater than 0. By default,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1984 there is at least one blank space between columns.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1985
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1986 The Emacs Lisp formatter, texinfmt.el, ignores the following four
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1987 commands that are defined in texinfo.tex for printed output.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1988
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1989 @multitableparskip,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1990 @multitableparindent,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1991 @multitablecolmargin,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1992 @multitablelinespace."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1993
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1994 ;; This function pushes information onto the `texinfo-stack'.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1995 ;; A stack element consists of:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1996 ;; - type-of-command, i.e., multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1997 ;; - the information about column widths, and
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1998 ;; - the position of texinfo-command-start.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1999 ;; e.g., ('multitable (1 2 3 4) 123)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2000 ;; The command line is then deleted.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2001 (texinfo-push-stack
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2002 'multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2003 ;; push width information on stack
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2004 (texinfo-multitable-widths))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2005 (texinfo-discard-line-with-args))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2006
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2007 (put 'multitable 'texinfo-end 'texinfo-end-multitable)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2008 (defun texinfo-end-multitable ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2009 "Discard the @end multitable line and pop the stack of multitable."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2010 (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2011 (texinfo-pop-stack 'multitable))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2012
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2013 (defun texinfo-multitable-widths ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2014 "Return list of widths of each column in a multi-column table."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2015 (let (texinfo-multitable-width-list)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2016 ;; Fractions format:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2017 ;; @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2018 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2019 ;; Template format:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2020 ;; @multitable {Column 1 template} {Column 2} {Column 3 example}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2021 ;; Place point before first argument
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2022 (skip-chars-forward " \t")
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2023 (cond
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2024 ;; Check for common misspelling
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2025 ((looking-at "@columnfraction ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2026 (error "In @multitable, @columnfractions misspelled"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2027 ;; Case 1: @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2028 ((looking-at "@columnfractions")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2029 (forward-word 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2030 (while (not (eolp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2031 (setq texinfo-multitable-width-list
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2032 (cons
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2033 (truncate
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2034 (1-
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2035 (* fill-column (read (get-buffer (current-buffer))))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2036 texinfo-multitable-width-list))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2037 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2038 ;; Case 2: {Column 1 template} {Column 2} {Column 3 example}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2039 ((looking-at "{")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2040 (let ((start-of-templates (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2041 (while (not (eolp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2042 (skip-chars-forward " \t")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2043 (let* ((start-of-template (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2044 (end-of-template
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2045 ;; forward-sexp works with braces in Texinfo mode
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2046 (progn (forward-sexp 1) (1- (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2047 (setq texinfo-multitable-width-list
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2048 (cons (- end-of-template start-of-template)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2049 texinfo-multitable-width-list))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2050 ;; Remove carriage return from within a template, if any.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2051 ;; This helps those those who want to use more than
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2052 ;; one line's worth of words in @multitable line.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2053 (narrow-to-region start-of-template end-of-template)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2054 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2055 (while (search-forward "
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2056 " nil t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2057 (delete-char -1))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2058 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2059 (widen)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2060 (forward-char 1)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2061 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2062 ;; Case 3: Trouble
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2063 (t
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2064 (error
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2065 "You probably need to specify column widths for @multitable correctly.")))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2066 ;; Check whether columns fit on page.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2067 (let ((desired-columns
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2068 (+
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2069 ;; between column spaces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2070 (length texinfo-multitable-width-list)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2071 ;; additional between column spaces, if any
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2072 texinfo-extra-inter-column-width
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2073 ;; sum of spaces for each entry
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2074 (apply '+ texinfo-multitable-width-list))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2075 (if (> desired-columns fill-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2076 (error
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2077 (format
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2078 "Multi-column table width, %d chars, is greater than page width, %d chars."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2079 desired-columns fill-column))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2080 texinfo-multitable-width-list))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2081
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2082 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2083 (defun texinfo-multitable-extract-row ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2084 "Return multitable row, as a string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2085 End of row is beginning of next @item or beginning of @end.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2086 Cells within rows are separated by @tab."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2087 (skip-chars-forward " \t")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2088 (let* ((start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2089 (end (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2090 (re-search-forward "@item\\|@end")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2091 (match-beginning 0)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2092 (row (progn (goto-char end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2093 (skip-chars-backward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2094 ;; remove whitespace at end of argument
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2095 (delete-region (point) end)
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
2096 (buffer-substring-no-properties start (point)))))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2097 (delete-region texinfo-command-start end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2098 row))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2099
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2100 (put 'multitable 'texinfo-item 'texinfo-multitable-item)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2101 (defun texinfo-multitable-item ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2102 "Format a row within a multicolumn table.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2103 Cells in row are separated by @tab.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2104 Widths of cells are specified by the arguments in the @multitable line.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2105 All cells are made to be the same height.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2106 This command is executed when texinfmt sees @item inside @multitable."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2107 (let ((original-buffer (current-buffer))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2108 (table-widths (reverse (car (cdr (car texinfo-stack)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2109 (existing-fill-column fill-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2110 start
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2111 end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2112 (table-column 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2113 (table-entry-height 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2114 ;; unformatted row looks like: A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2115 ;; extract-row command deletes the source line in the table.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2116 (unformated-row (texinfo-multitable-extract-row)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2117 ;; Use a temporary buffer
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2118 (set-buffer (get-buffer-create texinfo-multitable-buffer-name))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2119 (delete-region (point-min) (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2120 (insert unformated-row)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2121 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2122 ;; 1. Check for correct number of @tab in line.
71675
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2123 (let ((tab-number 1)) ; one @tab between two columns
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2124 (while (search-forward "@tab" nil t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2125 (setq tab-number (1+ tab-number)))
71675
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2126 (let ((needed-tabs (- (length table-widths) tab-number)))
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2127 (when (> needed-tabs 0)
73729
581994501499 (batch-texinfo-format): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 71781
diff changeset
2128 (goto-char (point-min))
71675
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2129 (end-of-line)
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2130 (while (> needed-tabs 0)
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2131 (insert "@w{ }\n@tab")
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2132 (setq needed-tabs (1- needed-tabs))
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2133 (message
e5f36608288b * textmodes/texinfmt.el (texinfo-format-separate-node):
Robert J. Chassell <bob@rattlesnake.com>
parents: 68648
diff changeset
2134 "Added @tabs and empty spaces to a @multitable row")))))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2135 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2136 ;; 2. Format each cell, and copy to a rectangle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2137 ;; buffer looks like this: A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2138 ;; Cell #1: format up to @tab
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2139 ;; Cell #2: format up to @tab
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2140 ;; Cell #3: format up to eob
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2141 (while (not (eobp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2142 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2143 (setq end (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2144 (if (search-forward "@tab" nil 'move)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2145 ;; Delete the @tab command, including the @-sign
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2146 (delete-region
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2147 (point)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2148 (progn (forward-word -1) (1- (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2149 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2150 ;; Set fill-column *wider* than needed to produce inter-column space
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2151 (setq fill-column (+ 1
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2152 texinfo-extra-inter-column-width
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2153 (nth table-column table-widths)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2154 (narrow-to-region start end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2155 ;; Remove whitespace before and after entry.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2156 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2157 (delete-region (point) (save-excursion (beginning-of-line) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2158 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2159 (skip-chars-backward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2160 (delete-region (point) (save-excursion (end-of-line) (point)))
48568
8a7dcd7fcbf7 Fix typos.
Robert J. Chassell <bob@rattlesnake.com>
parents: 48520
diff changeset
2161 ;; Temporarily set texinfo-stack to nil so texinfo-format-scan
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2162 ;; does not see an unterminated @multitable.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2163 (let (texinfo-stack) ; nil
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2164 (texinfo-format-scan))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2165 (let (fill-prefix) ; no fill prefix
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2166 (fill-region (point-min) (point-max)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2167 (setq table-entry-height
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2168 (max table-entry-height (count-lines (point-min) (point-max))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2169 ;; 3. Move point to end of bottom line, and pad that line to fill column.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2170 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2171 (forward-line (1- table-entry-height))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2172 (let* ((beg (point)) ; beginning of line
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2173 ;; add one more space for inter-column spacing
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2174 (needed-whitespace
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2175 (1+
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2176 (- fill-column
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2177 (-
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2178 (progn (end-of-line) (point)) ; end of existing line
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2179 beg)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2180 (insert (make-string
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2181 (if (> needed-whitespace 0) needed-whitespace 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2182 ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2183 ;; now, put formatted cell into a rectangle
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2184 (set (intern (concat texinfo-multitable-rectangle-name
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2185 (int-to-string table-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2186 (extract-rectangle (point-min) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2187 (delete-region (point-min) (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2188 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2189 (setq table-column (1+ table-column))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2190 (widen))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2191 ;; 4. Add extra lines to rectangles so all are of same height
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2192 (let ((total-number-of-columns table-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2193 (column-number 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2194 here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2195 (while (> table-column 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2196 (let ((this-rectangle (int-to-string table-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2197 (while (< (length this-rectangle) table-entry-height)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2198 (setq this-rectangle (append this-rectangle '("")))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2199 (setq table-column (1- table-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2200 ;; 5. Insert formatted rectangles in original buffer
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2201 (switch-to-buffer original-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2202 (open-line table-entry-height)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2203 (while (< column-number total-number-of-columns)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2204 (setq here (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2205 (insert-rectangle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2206 (eval (intern
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2207 (concat texinfo-multitable-rectangle-name
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2208 (int-to-string column-number)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2209 (goto-char here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2210 (end-of-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2211 (setq column-number (1+ column-number))))
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2212 (kill-buffer texinfo-multitable-buffer-name)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2213 (setq fill-column existing-fill-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2214
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2215
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2216 ;;; @image
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2217 ;; Use only the FILENAME argument to the command.
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2218 ;; In Info, ignore the other arguments.
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2219
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2220 (put 'image 'texinfo-format 'texinfo-format-image)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2221 (defun texinfo-format-image ()
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2222 "Insert an image from an an file ending in .txt.
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2223 Use only the FILENAME arg; for Info, ignore the other arguments to @image."
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2224 (let ((args (texinfo-format-parse-args))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2225 filename)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2226 (when (null (nth 0 args))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2227 (error "Invalid image command"))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2228 (texinfo-discard-command)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2229 ;; makeinfo uses FILENAME.txt
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2230 (setq filename (format "%s.txt" (nth 0 args)))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2231 (message "Reading included file: %s" filename)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2232 ;; verbatim for Info output
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2233 (goto-char (+ (point) (cadr (insert-file-contents filename))))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2234 (message "Reading included file: %s...done" filename)))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2235
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2236
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2237 ;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifplaintext, @ifxml, @xml
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2238 ;; @ifnottex, @ifnotinfo, @ifnothtml, @ifnotplaintext, @ifnotxml
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2239
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2240 (put 'ifinfo 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2241 (put 'ifinfo 'texinfo-end 'texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2242
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2243 (put 'iftex 'texinfo-format 'texinfo-format-iftex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2244 (defun texinfo-format-iftex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2245 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2246 (re-search-forward "@end iftex[ \t]*\n")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2247
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2248 (put 'ifhtml 'texinfo-format 'texinfo-format-ifhtml)
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2249 (defun texinfo-format-ifhtml ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2250 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2251 (re-search-forward "@end ifhtml[ \t]*\n")))
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2252
48063
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2253 (put 'ifplaintext 'texinfo-format 'texinfo-format-ifplaintext)
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2254 (defun texinfo-format-ifplaintext ()
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2255 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2256 (re-search-forward "@end ifplaintext[ \t]*\n")))
48063
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2257
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2258 (put 'ifxml 'texinfo-format 'texinfo-format-ifxml)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2259 (defun texinfo-format-ifxml ()
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2260 (delete-region texinfo-command-start
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2261 (progn (re-search-forward "^@end ifxml[ \t]*\n")
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2262 (point))))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2263
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2264 (put 'tex 'texinfo-format 'texinfo-format-tex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2265 (defun texinfo-format-tex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2266 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2267 (re-search-forward "@end tex[ \t]*\n")))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2268
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2269 (put 'html 'texinfo-format 'texinfo-format-html)
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2270 (defun texinfo-format-html ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2271 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2272 (re-search-forward "@end html[ \t]*\n")))
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2273
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2274 (put 'xml 'texinfo-format 'texinfo-format-xml)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2275 (defun texinfo-format-xml ()
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2276 (delete-region texinfo-command-start
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2277 (progn (re-search-forward "^@end xml[ \t]*\n")
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2278 (point))))
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2279
40374
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2280 (put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo)
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2281 (defun texinfo-format-ifnotinfo ()
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2282 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2283 (re-search-forward "@end ifnotinfo[ \t]*\n")))
40374
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2284
48063
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2285 (put 'ifnotplaintext 'texinfo-format 'texinfo-discard-line)
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2286 (put 'ifnotplaintext 'texinfo-end 'texinfo-discard-command)
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
2287
25274
de041ba369d9 Handle @ifnottex.
Karl Heuer <kwzh@gnu.org>
parents: 24792
diff changeset
2288 (put 'ifnottex 'texinfo-format 'texinfo-discard-line)
de041ba369d9 Handle @ifnottex.
Karl Heuer <kwzh@gnu.org>
parents: 24792
diff changeset
2289 (put 'ifnottex 'texinfo-end 'texinfo-discard-command)
de041ba369d9 Handle @ifnottex.
Karl Heuer <kwzh@gnu.org>
parents: 24792
diff changeset
2290
40374
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2291 (put 'ifnothtml 'texinfo-format 'texinfo-discard-line)
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2292 (put 'ifnothtml 'texinfo-end 'texinfo-discard-command)
fb22b0e18665 No change. Error by bob, not eliz, logging change for wrong file.
Eli Zaretskii <eliz@gnu.org>
parents: 38436
diff changeset
2293
48697
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2294 (put 'ifnotxml 'texinfo-format 'texinfo-discard-line)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2295 (put 'ifnotxml 'texinfo-end 'texinfo-discard-command)
880db53196d5 (texinfo-format-scan) Handle new functions for copyright
Robert J. Chassell <bob@rattlesnake.com>
parents: 48568
diff changeset
2296
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2297
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2298 ;;; @titlepage
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2299
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2300 (put 'titlepage 'texinfo-format 'texinfo-format-titlepage)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2301 (defun texinfo-format-titlepage ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2302 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2303 (re-search-forward "@end titlepage[ \t]*\n")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2304
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2305 (put 'endtitlepage 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2306
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2307 ;; @titlespec an alternative titling command; ignored by Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2308
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2309 (put 'titlespec 'texinfo-format 'texinfo-format-titlespec)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2310 (defun texinfo-format-titlespec ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2311 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2312 (re-search-forward "@end titlespec[ \t]*\n")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2313
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2314 (put 'endtitlespec 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2315
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2316
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2317 ;;; @today
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2318
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2319 (put 'today 'texinfo-format 'texinfo-format-today)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2320
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2321 ;; Produces Day Month Year style of output. eg `1 Jan 1900'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2322 ;; The `@today{}' command requires a pair of braces, like `@dots{}'.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2323 (defun texinfo-format-today ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2324 (texinfo-parse-arg-discard)
15680
0f1c12e35879 (texinfo-format-today): Avoid race condition by getting current time only once.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
2325 (insert (format-time-string "%e %b %Y")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2326
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2327
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2328 ;;; @timestamp{}
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2329 ;; Produce `Day Month Year Hour:Min' style of output.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2330 ;; eg `1 Jan 1900 13:52'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2331
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2332 (put 'timestamp 'texinfo-format 'texinfo-format-timestamp)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2333
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2334 ;; The `@timestamp{}' command requires a pair of braces, like `@dots{}'.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2335 (defun texinfo-format-timestamp ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2336 "Insert the current local time and date."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2337 (texinfo-parse-arg-discard)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2338 ;; For seconds and time zone, replace format string with "%e %b %Y %T %Z"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2339 (insert (format-time-string "%e %b %Y %R")))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2340
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2341
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2342 ;;; @ignore
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2343
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2344 (put 'ignore 'texinfo-format 'texinfo-format-ignore)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2345 (defun texinfo-format-ignore ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2346 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2347 (re-search-forward "@end ignore[ \t]*\n")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2348
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2349 (put 'endignore 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2350
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2351
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2352 ;;; Define the Info enclosure command: @definfoenclose
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2353
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2354 ;; A `@definfoenclose' command may be used to define a highlighting
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2355 ;; command for Info, but not for TeX. A command defined using
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2356 ;; `@definfoenclose' marks text by enclosing it in strings that precede
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2357 ;; and follow the text.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2358 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2359 ;; Presumably, if you define a command with `@definfoenclose` for Info,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2360 ;; you will also define the same command in the TeX definitions file,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2361 ;; `texinfo.tex' in a manner appropriate for typesetting.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2362 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2363 ;; Write a `@definfoenclose' command on a line and follow it with three
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2364 ;; arguments separated by commas (commas are used as separators in an
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2365 ;; `@node' line in the same way). The first argument to
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2366 ;; `@definfoenclose' is the @-command name \(without the `@'\); the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2367 ;; second argument is the Info start delimiter string; and the third
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2368 ;; argument is the Info end delimiter string. The latter two arguments
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2369 ;; enclose the highlighted text in the Info file. A delimiter string
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2370 ;; may contain spaces. Neither the start nor end delimiter is
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2371 ;; required. However, if you do not provide a start delimiter, you
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2372 ;; must follow the command name with two commas in a row; otherwise,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2373 ;; the Info formatting commands will misinterpret the end delimiter
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2374 ;; string as a start delimiter string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2375 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2376 ;; If you do a @definfoenclose{} on the name of a pre-defined macro (such
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2377 ;; as @emph{}, @strong{}, @tt{}, or @i{}) the enclosure definition will
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2378 ;; override the built-in definition.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2379 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2380 ;; An enclosure command defined this way takes one argument in braces.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2381 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2382 ;; For example, you can write:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2383 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2384 ;; @ifinfo
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2385 ;; @definfoenclose phoo, //, \\
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2386 ;; @end ifinfo
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2387 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2388 ;; near the beginning of a Texinfo file at the beginning of the lines
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2389 ;; to define `@phoo' as an Info formatting command that inserts `//'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2390 ;; before and `\\' after the argument to `@phoo'. You can then write
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2391 ;; `@phoo{bar}' wherever you want `//bar\\' highlighted in Info.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2392 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2393 ;; Also, for TeX formatting, you could write
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2394 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2395 ;; @iftex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2396 ;; @global@let@phoo=@i
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2397 ;; @end iftex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2398 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2399 ;; to define `@phoo' as a command that causes TeX to typeset
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2400 ;; the argument to `@phoo' in italics.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2401 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2402 ;; Note that each definition applies to its own formatter: one for TeX,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2403 ;; the other for texinfo-format-buffer or texinfo-format-region.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2404 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2405 ;; Here is another example: write
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2406 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2407 ;; @definfoenclose headword, , :
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2408 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2409 ;; near the beginning of the file, to define `@headword' as an Info
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2410 ;; formatting command that inserts nothing before and a colon after the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2411 ;; argument to `@headword'.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2412
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2413 (put 'definfoenclose 'texinfo-format 'texinfo-define-info-enclosure)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2414 (defun texinfo-define-info-enclosure ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2415 (let* ((args (texinfo-format-parse-line-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2416 (command-name (nth 0 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2417 (beginning-delimiter (or (nth 1 args) ""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2418 (end-delimiter (or (nth 2 args) "")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2419 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2420 (setq texinfo-enclosure-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2421 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2422 (list command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2423 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2424 beginning-delimiter
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2425 end-delimiter))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2426 texinfo-enclosure-list))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2427
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2428
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2429 ;;; @alias
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2430
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2431 (put 'alias 'texinfo-format 'texinfo-alias)
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2432 (defun texinfo-alias ()
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2433 (let ((start (1- (point)))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2434 args)
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2435 (skip-chars-forward " ")
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2436 (save-excursion (end-of-line) (setq texinfo-command-end (point)))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2437 (if (not (looking-at "\\([^=]+\\)=\\(.*\\)"))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2438 (error "Invalid alias command")
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2439 (setq texinfo-alias-list
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2440 (cons
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2441 (cons
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2442 (match-string-no-properties 1)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
2443 (match-string-no-properties 2))
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2444 texinfo-alias-list))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2445 (texinfo-discard-command))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2446 )
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2447 )
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2448
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2449
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2450 ;;; @var, @code and the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2451
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2452 (put 'var 'texinfo-format 'texinfo-format-var)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2453 ;; @sc a small caps font for TeX; formatted as `var' in Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2454 (put 'sc 'texinfo-format 'texinfo-format-var)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2455 ;; @acronym for abbreviations in all caps, such as `NASA'.
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2456 ;; Convert all letters to uppercase if they are not already.
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2457 (put 'acronym 'texinfo-format 'texinfo-format-var)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2458 (defun texinfo-format-var ()
24750
ea9b449cc742 (texinfo-format-var): Handle other nested constructs, using
Richard M. Stallman <rms@gnu.org>
parents: 24745
diff changeset
2459 (let ((arg (texinfo-parse-expanded-arg)))
ea9b449cc742 (texinfo-format-var): Handle other nested constructs, using
Richard M. Stallman <rms@gnu.org>
parents: 24745
diff changeset
2460 (texinfo-discard-command)
ea9b449cc742 (texinfo-format-var): Handle other nested constructs, using
Richard M. Stallman <rms@gnu.org>
parents: 24745
diff changeset
2461 (insert (upcase arg))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2462
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2463 (put 'cite 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2464 (put 'code 'texinfo-format 'texinfo-format-code)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2465 ;; @command (for command names)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2466 (put 'command 'texinfo-format 'texinfo-format-code)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2467 ;; @env (for environment variables)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2468 (put 'env 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2469 (put 'file 'texinfo-format 'texinfo-format-code)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2470 (put 'samp 'texinfo-format 'texinfo-format-code)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2471 (put 'url 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2472 (defun texinfo-format-code ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2473 (insert "`" (texinfo-parse-arg-discard) "'")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2474 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2475
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2476 ;; @option (for command-line options) must be different from @code
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2477 ;; because of its special formatting in @table; namely that it does
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2478 ;; not lead to inserted ` ... ' in a table, but does elsewhere.
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2479 (put 'option 'texinfo-format 'texinfo-format-option)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2480 (defun texinfo-format-option ()
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2481 "Insert ` ... ' around arg unless inside a table; in that case, no quotes."
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2482 ;; `looking-at-backward' not available in v. 18.57, 20.2
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2483 (if (not (search-backward "" ; searched-for character is a control-H
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2484 (save-excursion (beginning-of-line) (point))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2485 t))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2486 (insert "`" (texinfo-parse-arg-discard) "'")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2487 (insert (texinfo-parse-arg-discard)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2488 (goto-char texinfo-command-start))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2489
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2490 (put 'emph 'texinfo-format 'texinfo-format-emph)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2491 (put 'strong 'texinfo-format 'texinfo-format-emph)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2492 (defun texinfo-format-emph ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2493 (insert "*" (texinfo-parse-arg-discard) "*")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2494 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2495
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2496 (put 'dfn 'texinfo-format 'texinfo-format-defn)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2497 (put 'defn 'texinfo-format 'texinfo-format-defn)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2498 (defun texinfo-format-defn ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2499 (insert "\"" (texinfo-parse-arg-discard) "\"")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2500 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2501
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2502 (put 'email 'texinfo-format 'texinfo-format-email)
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2503 (defun texinfo-format-email ()
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2504 "Format email address and optional following full name.
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2505 Insert full name, if present, followed by email address
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2506 surrounded by in angle brackets."
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2507 (let ((args (texinfo-format-parse-args)))
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2508 (texinfo-discard-command)
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2509 ;; if full-name
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2510 (if (nth 1 args)
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2511 (insert (nth 1 args) " "))
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2512 (insert "<" (nth 0 args) ">")))
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2513
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2514 (put 'key 'texinfo-format 'texinfo-format-key)
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2515 ;; I've decided not want to have angle brackets around these -- rms.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2516 (defun texinfo-format-key ()
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2517 (insert (texinfo-parse-arg-discard))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2518 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2519
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2520 ;; @verb{<char>TEXT<char>} (in `makeinfo' 4.1 and later)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2521 (put 'verb 'texinfo-format 'texinfo-format-verb)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2522 (defun texinfo-format-verb ()
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2523 "Format text between non-quoted unique delimiter characters verbatim.
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2524 Enclose the verbatim text, including the delimiters, in braces. Print
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2525 text exactly as written (but not the delimiters) in a fixed-width.
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2526
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2527 For example, @verb\{|@|\} results in @ and
48794
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2528 @verb\{+@'e?`!`+} results in @'e?`!`."
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2529
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2530 (let ((delimiter (buffer-substring-no-properties
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2531 (1+ texinfo-command-end) (+ 2 texinfo-command-end))))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2532 (unless (looking-at "{")
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2533 (error "Not found: @verb start brace"))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2534 (delete-region texinfo-command-start (+ 2 texinfo-command-end))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2535 (search-forward delimiter))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2536 (delete-backward-char 1)
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2537 (unless (looking-at "}")
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2538 (error "Not found: @verb end brace"))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2539 (delete-char 1))
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2540
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2541 ;; as of 2002 Dec 10
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2542 ;; see (texinfo)Block Enclosing Commands
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2543 ;; need: @verbatim
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2544
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2545 ;; as of 2002 Dec 10
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2546 ;; see (texinfo)verbatiminclude
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2547 ;; need: @verbatiminclude FILENAME
837d37faadcf Installed on behalf of TAKAHASHI Kaoru <kaoru@kaisei.org>
Robert J. Chassell <bob@rattlesnake.com>
parents: 48755
diff changeset
2548
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2549 (put 'bullet 'texinfo-format 'texinfo-format-bullet)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2550 (defun texinfo-format-bullet ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2551 "Insert an asterisk.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2552 If used within a line, follow `@bullet' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2553 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2554 (insert "*"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2555
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2556
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2557 ;;; @kbd
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2558
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2559 ;; Inside of @example ... @end example and similar environments,
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2560 ;; @kbd does nothing; but outside of such environments, it places
48568
8a7dcd7fcbf7 Fix typos.
Robert J. Chassell <bob@rattlesnake.com>
parents: 48520
diff changeset
2561 ;; single quotation marks around its argument.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2562
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2563 (defvar texinfo-format-kbd-regexp
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2564 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2565 "^@"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2566 "\\("
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2567 "display\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2568 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2569 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2570 "lisp\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2571 "smalllisp"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2572 "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2573 "Regexp specifying environments in which @kbd does not put `...'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2574 around argument.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2575
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2576 (defvar texinfo-format-kbd-end-regexp
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2577 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2578 "^@end "
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2579 "\\("
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
2580 "display\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2581 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2582 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2583 "lisp\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2584 "smalllisp"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2585 "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2586 "Regexp specifying end of environments in which @kbd does not put `...'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2587 around argument. (See `texinfo-format-kbd-regexp')")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2588
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2589 (put 'kbd 'texinfo-format 'texinfo-format-kbd)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2590 (defun texinfo-format-kbd ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2591 "Place single quote marks around arg, except in @example and similar."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2592 ;; Search forward for @end example closer than an @example.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2593 ;; Can stop search at nearest @node or texinfo-section-types-regexp
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2594 (let* ((stop
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2595 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2596 (re-search-forward
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2597 (concat "^@node\\|\\(" texinfo-section-types-regexp "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2598 nil
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2599 'move-to-end) ; if necessary, return point at end of buffer
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2600 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2601 (example-location
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2602 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2603 (re-search-forward texinfo-format-kbd-regexp stop 'move-to-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2604 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2605 (end-example-location
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2606 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2607 (re-search-forward texinfo-format-kbd-end-regexp stop 'move-to-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2608 (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2609 ;; If inside @example, @end example will be closer than @example
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2610 ;; or end of search i.e., end-example-location less than example-location
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2611 (if (>= end-example-location example-location)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2612 ;; outside an @example or equivalent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2613 (insert "`" (texinfo-parse-arg-discard) "'")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2614 ;; else, in @example; do not surround with `...'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2615 (insert (texinfo-parse-arg-discard)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2616 (goto-char texinfo-command-start)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2617
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2618
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2619 ;;; @example, @lisp, @quotation, @display, @smalllisp, @smallexample,
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2620 ;; @smalldisplay
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2621
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2622 (put 'display 'texinfo-format 'texinfo-format-example)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2623 (put 'smalldisplay 'texinfo-format 'texinfo-format-example)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2624 (put 'example 'texinfo-format 'texinfo-format-example)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2625 (put 'lisp 'texinfo-format 'texinfo-format-example)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2626 (put 'quotation 'texinfo-format 'texinfo-format-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2627 (put 'smallexample 'texinfo-format 'texinfo-format-example)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2628 (put 'smalllisp 'texinfo-format 'texinfo-format-example)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2629 (defun texinfo-format-example ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2630 (texinfo-push-stack 'example nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2631 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2632 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2633
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2634 (put 'example 'texinfo-end 'texinfo-end-example)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2635 (put 'display 'texinfo-end 'texinfo-end-example)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2636 (put 'smalldisplay 'texinfo-end 'texinfo-end-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2637 (put 'lisp 'texinfo-end 'texinfo-end-example)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2638 (put 'quotation 'texinfo-end 'texinfo-end-example)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2639 (put 'smallexample 'texinfo-end 'texinfo-end-example)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2640 (put 'smalllisp 'texinfo-end 'texinfo-end-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2641 (defun texinfo-end-example ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2642 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2643 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2644 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2645 (texinfo-pop-stack 'example)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2646 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2647
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2648 (put 'exdent 'texinfo-format 'texinfo-format-exdent)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2649 (defun texinfo-format-exdent ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2650 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2651 (delete-region (point)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2652 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2653 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2654 (point)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2655 (insert ?\b)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2656 ;; Cancel out the deletion that texinfo-do-itemize
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2657 ;; is going to do at the end of this line.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2658 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2659 (end-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2660 (insert "\n ")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2661
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2662
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2663 ;; @direntry and @dircategory
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2664
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2665 (put 'direntry 'texinfo-format 'texinfo-format-direntry)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2666 (defun texinfo-format-direntry ()
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2667 (texinfo-push-stack 'direntry nil)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2668 (texinfo-discard-line)
24792
c4e546aa9dd5 (texinfo-format-direntry): Avoid blank line.
Karl Heuer <kwzh@gnu.org>
parents: 24750
diff changeset
2669 (insert "START-INFO-DIR-ENTRY\n"))
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2670
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2671 (put 'direntry 'texinfo-end 'texinfo-end-direntry)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2672 (defun texinfo-end-direntry ()
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2673 (texinfo-discard-command)
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2674 (insert "END-INFO-DIR-ENTRY\n\n")
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2675 (texinfo-pop-stack 'direntry))
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2676
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2677 (put 'dircategory 'texinfo-format 'texinfo-format-dircategory)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2678 (defun texinfo-format-dircategory ()
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2679 (let ((str (texinfo-parse-arg-discard)))
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2680 (delete-region (point)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2681 (progn
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2682 (skip-chars-forward " ")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2683 (point)))
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2684 (insert "INFO-DIR-SECTION " str "\n")))
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2685
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2686 ;;; @cartouche
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2687
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2688 ;; The @cartouche command is a noop in Info; in a printed manual,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2689 ;; it makes a box with rounded corners.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2690
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2691 (put 'cartouche 'texinfo-format 'texinfo-discard-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2692 (put 'cartouche 'texinfo-end 'texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2693
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2694
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2695 ;;; @flushleft and @format
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2696
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2697 ;; The @flushleft command left justifies every line but leaves the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2698 ;; right end ragged. As far as Info is concerned, @flushleft is a
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2699 ;; `do-nothing' command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2700
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2701 ;; The @format command is similar to @example except that it does not
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2702 ;; indent; this means that in Info, @format is similar to @flushleft.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2703
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2704 (put 'format 'texinfo-format 'texinfo-format-flushleft)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2705 (put 'smallformat 'texinfo-format 'texinfo-format-flushleft)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2706 (put 'flushleft 'texinfo-format 'texinfo-format-flushleft)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2707 (defun texinfo-format-flushleft ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2708 (texinfo-discard-line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2709
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2710 (put 'format 'texinfo-end 'texinfo-end-flushleft)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2711 (put 'smallformat 'texinfo-end 'texinfo-end-flushleft)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2712 (put 'flushleft 'texinfo-end 'texinfo-end-flushleft)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2713 (defun texinfo-end-flushleft ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2714 (texinfo-discard-command))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2715
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2716
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2717 ;;; @flushright
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2718
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2719 ;; The @flushright command right justifies every line but leaves the
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2720 ;; left end ragged. Spaces and tabs at the right ends of lines are
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2721 ;; removed so that visible text lines up on the right side.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2722
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2723 (put 'flushright 'texinfo-format 'texinfo-format-flushright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2724 (defun texinfo-format-flushright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2725 (texinfo-push-stack 'flushright nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2726 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2727
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2728 (put 'flushright 'texinfo-end 'texinfo-end-flushright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2729 (defun texinfo-end-flushright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2730 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2731
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2732 (let ((stacktop
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2733 (texinfo-pop-stack 'flushright)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2734
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2735 (texinfo-do-flushright (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2736
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2737 (defun texinfo-do-flushright (from)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2738 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2739 (while (progn (forward-line -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2740 (>= (point) from))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2741
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2742 (beginning-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2743 (insert
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2744 (make-string
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2745 (- fill-column
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2746 (save-excursion
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2747 (end-of-line)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2748 (skip-chars-backward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2749 (delete-region (point) (progn (end-of-line) (point)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2750 (current-column)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2751 ? )))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2752
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2753
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2754 ;;; @ctrl, @TeX, @copyright, @minus, @dots, @enddots, @pounds
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2755
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2756 (put 'ctrl 'texinfo-format 'texinfo-format-ctrl)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2757 (defun texinfo-format-ctrl ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2758 (let ((str (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2759 (insert (logand 31 (aref str 0)))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2760
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2761 (put 'TeX 'texinfo-format 'texinfo-format-TeX)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2762 (defun texinfo-format-TeX ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2763 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2764 (insert "TeX"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2765
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2766 (put 'copyright 'texinfo-format 'texinfo-format-copyright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2767 (defun texinfo-format-copyright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2768 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2769 (insert "(C)"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2770
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2771 (put 'minus 'texinfo-format 'texinfo-format-minus)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2772 (defun texinfo-format-minus ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2773 "Insert a minus sign.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2774 If used within a line, follow `@minus' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2775 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2776 (insert "-"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2777
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2778 (put 'dots 'texinfo-format 'texinfo-format-dots)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2779 (defun texinfo-format-dots ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2780 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2781 (insert "..."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2782
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2783 (put 'enddots 'texinfo-format 'texinfo-format-enddots)
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2784 (defun texinfo-format-enddots ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2785 (texinfo-parse-arg-discard)
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2786 (insert "...."))
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2787
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2788 (put 'pounds 'texinfo-format 'texinfo-format-pounds)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2789 (defun texinfo-format-pounds ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2790 (texinfo-parse-arg-discard)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2791 (insert "#"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2792
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2793
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2794 ;;; Refilling and indenting: @refill, @paragraphindent, @noindent
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2795
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2796 ;;; Indent only those paragraphs that are refilled as a result of an
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2797 ;;; @refill command.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2798
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2799 ;; * If the value is `asis', do not change the existing indentation at
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2800 ;; the starts of paragraphs.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2801
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2802 ;; * If the value zero, delete any existing indentation.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2803
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2804 ;; * If the value is greater than zero, indent each paragraph by that
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2805 ;; number of spaces.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2806
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2807 ;;; But do not refill paragraphs with an @refill command that are
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2808 ;;; preceded by @noindent or are part of a table, list, or deffn.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2809
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2810 (defvar texinfo-paragraph-indent "asis"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2811 "Number of spaces for @refill to indent a paragraph; else to leave as is.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2812
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2813 (put 'paragraphindent 'texinfo-format 'texinfo-paragraphindent)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2814
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2815 (defun texinfo-paragraphindent ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2816 "Specify the number of spaces for @refill to indent a paragraph.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2817 Default is to leave the number of spaces as is."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2818 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2819 (if (string= "asis" arg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2820 (setq texinfo-paragraph-indent "asis")
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 60372
diff changeset
2821 (setq texinfo-paragraph-indent (string-to-number arg)))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2822
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2823 (put 'refill 'texinfo-format 'texinfo-format-refill)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2824 (defun texinfo-format-refill ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2825 "Refill paragraph. Also, indent first line as set by @paragraphindent.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2826 Default is to leave paragraph indentation as is."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2827 (texinfo-discard-command)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2828 (let ((position (point-marker)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2829 (forward-paragraph -1)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2830 (if (looking-at "[ \t\n]*$") (forward-line 1))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2831 ;; Do not indent if an entry in a list, table, or deffn,
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2832 ;; or if paragraph is preceded by @noindent.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2833 ;; Otherwise, indent
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2834 (cond
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2835 ;; delete a @noindent line and do not indent paragraph
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2836 ((save-excursion (forward-line -1)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2837 (looking-at "^@noindent"))
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2838 (forward-line -1)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2839 (delete-region (point) (progn (forward-line 1) (point))))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2840 ;; do nothing if "asis"
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2841 ((equal texinfo-paragraph-indent "asis"))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2842 ;; do no indenting in list, etc.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2843 ((> texinfo-stack-depth 0))
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2844 ;; otherwise delete existing whitespace and indent
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2845 (t
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2846 (delete-region (point) (progn (skip-chars-forward " \t") (point)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2847 (insert (make-string texinfo-paragraph-indent ? ))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2848 (forward-paragraph 1)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2849 (forward-line -1)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2850 (end-of-line)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2851 ;; Do not fill a section title line with asterisks, hyphens, etc. that
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2852 ;; are used to underline it. This could occur if the line following
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2853 ;; the underlining is not an index entry and has text within it.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2854 (let* ((previous-paragraph-separate paragraph-separate)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2855 (paragraph-separate
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2856 (concat paragraph-separate "\\|[-=.]+\\|\\*\\*+"))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2857 (previous-paragraph-start paragraph-start)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2858 (paragraph-start
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2859 (concat paragraph-start "\\|[-=.]+\\|\\*\\*+")))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2860 (unwind-protect
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2861 (fill-paragraph nil)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2862 (setq paragraph-separate previous-paragraph-separate)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2863 (setq paragraph-start previous-paragraph-start)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2864 (goto-char position)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2865
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2866 (put 'noindent 'texinfo-format 'texinfo-noindent)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2867 (defun texinfo-noindent ()
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2868 (save-excursion
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2869 (forward-paragraph 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2870 (if (search-backward "@refill"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2871 (save-excursion (forward-line -1) (point)) t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2872 () ; leave @noindent command so @refill command knows not to indent
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2873 ;; else
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2874 (texinfo-discard-line))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2875
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2876
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2877 ;;; Index generation
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2878
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2879 (put 'vindex 'texinfo-format 'texinfo-format-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2880 (defun texinfo-format-vindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2881 (texinfo-index 'texinfo-vindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2882
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2883 (put 'cindex 'texinfo-format 'texinfo-format-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2884 (defun texinfo-format-cindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2885 (texinfo-index 'texinfo-cindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2886
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2887 (put 'findex 'texinfo-format 'texinfo-format-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2888 (defun texinfo-format-findex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2889 (texinfo-index 'texinfo-findex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2890
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2891 (put 'pindex 'texinfo-format 'texinfo-format-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2892 (defun texinfo-format-pindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2893 (texinfo-index 'texinfo-pindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2894
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2895 (put 'tindex 'texinfo-format 'texinfo-format-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2896 (defun texinfo-format-tindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2897 (texinfo-index 'texinfo-tindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2898
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2899 (put 'kindex 'texinfo-format 'texinfo-format-kindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2900 (defun texinfo-format-kindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2901 (texinfo-index 'texinfo-kindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2902
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2903 (defun texinfo-index (indexvar)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2904 (let ((arg (texinfo-parse-expanded-arg)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2905 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2906 (set indexvar
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2907 (cons (list arg
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2908 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2909 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2910 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2911 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2912 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2913 (symbol-value indexvar)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2914
55770
f813d67d717a (texinfo-indexvar-alist): Declare as variable instead of constant.
John Paul Wallington <jpw@pobox.com>
parents: 55752
diff changeset
2915 (defvar texinfo-indexvar-alist
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2916 '(("cp" . texinfo-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2917 ("fn" . texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2918 ("vr" . texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2919 ("tp" . texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2920 ("pg" . texinfo-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2921 ("ky" . texinfo-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2922
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2923
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2924 ;;; @defindex @defcodeindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2925 (put 'defindex 'texinfo-format 'texinfo-format-defindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2926 (put 'defcodeindex 'texinfo-format 'texinfo-format-defindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2927
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2928 (defun texinfo-format-defindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2929 (let* ((index-name (texinfo-parse-arg-discard)) ; eg: `aa'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2930 (indexing-command (intern (concat index-name "index")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2931 (index-formatting-command ; eg: `texinfo-format-aaindex'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2932 (intern (concat "texinfo-format-" index-name "index")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2933 (index-alist-name ; eg: `texinfo-aaindex'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2934 (intern (concat "texinfo-" index-name "index"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2935
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2936 (set index-alist-name nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2937
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2938 (put indexing-command ; eg, aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2939 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2940 index-formatting-command) ; eg, texinfo-format-aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2941
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2942 ;; eg: "aa" . texinfo-aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2943 (or (assoc index-name texinfo-indexvar-alist)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2944 (setq texinfo-indexvar-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2945 (cons
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2946 (cons index-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2947 index-alist-name)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2948 texinfo-indexvar-alist)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2949
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2950 (fset index-formatting-command
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2951 (list 'lambda 'nil
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
2952 (list 'texinfo-index
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2953 (list 'quote index-alist-name))))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2954
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2955
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2956 ;;; @synindex @syncodeindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2957
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2958 (put 'synindex 'texinfo-format 'texinfo-format-synindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2959 (put 'syncodeindex 'texinfo-format 'texinfo-format-synindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2960
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2961 (defun texinfo-format-synindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2962 (let* ((args (texinfo-parse-arg-discard))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2963 (second (cdr (read-from-string args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2964 (joiner (symbol-name (car (read-from-string args))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2965 (joined (symbol-name (car (read-from-string args second)))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2966
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2967 (if (assoc joiner texinfo-short-index-cmds-alist)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2968 (put
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2969 (cdr (assoc joiner texinfo-short-index-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2970 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2971 (or (cdr (assoc joined texinfo-short-index-format-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2972 (intern (concat "texinfo-format-" joined "index"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2973 (put
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2974 (intern (concat joiner "index"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2975 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2976 (or (cdr(assoc joined texinfo-short-index-format-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2977 (intern (concat "texinfo-format-" joined "index")))))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2978
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2979 (defconst texinfo-short-index-cmds-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2980 '(("cp" . cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2981 ("fn" . findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2982 ("vr" . vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2983 ("tp" . tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2984 ("pg" . pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2985 ("ky" . kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2986
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2987 (defconst texinfo-short-index-format-cmds-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2988 '(("cp" . texinfo-format-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2989 ("fn" . texinfo-format-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2990 ("vr" . texinfo-format-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2991 ("tp" . texinfo-format-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2992 ("pg" . texinfo-format-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2993 ("ky" . texinfo-format-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2994
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2995
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2996 ;;; Sort and index (for VMS)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2997
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2998 ;; Sort an index which is in the current buffer between START and END.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2999 ;; Used on VMS, where the `sort' utility is not available.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3000 (defun texinfo-sort-region (start end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3001 (require 'sort)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3002 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3003 (narrow-to-region start end)
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
3004 (goto-char (point-min))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3005 (sort-subr nil 'forward-line 'end-of-line 'texinfo-sort-startkeyfun)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3006
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3007 ;; Subroutine for sorting an index.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3008 ;; At start of a line, return a string to sort the line under.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3009 (defun texinfo-sort-startkeyfun ()
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
3010 (let ((line (buffer-substring-no-properties (point) (line-end-position))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3011 ;; Canonicalize whitespace and eliminate funny chars.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3012 (while (string-match "[ \t][ \t]+\\|[^a-z0-9 ]+" line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3013 (setq line (concat (substring line 0 (match-beginning 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3014 " "
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
3015 (substring line (match-end 0)))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3016 line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3017
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3018
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3019 ;;; @printindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3020
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3021 (put 'printindex 'texinfo-format 'texinfo-format-printindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3022
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3023 (defun texinfo-format-printindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3024 (let ((indexelts (symbol-value
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3025 (cdr (assoc (texinfo-parse-arg-discard)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3026 texinfo-indexvar-alist))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3027 opoint)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3028 (insert "\n* Menu:\n\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3029 (setq opoint (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3030 (texinfo-print-index nil indexelts)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3031
15985
eb812636dcb5 (texinfo-format-printindex):
Richard M. Stallman <rms@gnu.org>
parents: 15680
diff changeset
3032 (if (memq system-type '(vax-vms windows-nt ms-dos))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3033 (texinfo-sort-region opoint (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3034 (shell-command-on-region opoint (point) "sort -fd" 1))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3035
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3036 (defun texinfo-print-index (file indexelts)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3037 (while indexelts
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3038 (if (stringp (car (car indexelts)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3039 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3040 (insert "* " (car (car indexelts)) ": " )
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3041 (indent-to 32)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3042 (insert
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3043 (if file (concat "(" file ")") "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3044 (nth 1 (car indexelts)) ".")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3045 (indent-to 54)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3046 (insert
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3047 (if (nth 2 (car indexelts))
55752
a7f7c0fa52a6 (texinfo-print-index): Print index line numbers in the new Texinfo 4.7 format.
Juri Linkov <juri@jurta.org>
parents: 52969
diff changeset
3048 (format " (line %3d)" (1+ (nth 2 (car indexelts))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3049 "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3050 "\n"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3051 ;; index entries from @include'd file
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3052 (texinfo-print-index (nth 1 (car indexelts))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3053 (nth 2 (car indexelts))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3054 (setq indexelts (cdr indexelts))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3055
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3056
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3057 ;;; Glyphs: @equiv, @error, etc
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3058
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3059 ;; @equiv to show that two expressions are equivalent
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3060 ;; @error to show an error message
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3061 ;; @expansion to show what a macro expands to
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3062 ;; @point to show the location of point in an example
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3063 ;; @print to show what an evaluated expression prints
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3064 ;; @result to indicate the value returned by an expression
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3065
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3066 (put 'equiv 'texinfo-format 'texinfo-format-equiv)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3067 (defun texinfo-format-equiv ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3068 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3069 (insert "=="))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3070
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3071 (put 'error 'texinfo-format 'texinfo-format-error)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3072 (defun texinfo-format-error ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3073 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3074 (insert "error-->"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3075
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3076 (put 'expansion 'texinfo-format 'texinfo-format-expansion)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3077 (defun texinfo-format-expansion ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3078 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3079 (insert "==>"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3080
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3081 (put 'point 'texinfo-format 'texinfo-format-point)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3082 (defun texinfo-format-point ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3083 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3084 (insert "-!-"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3085
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3086 (put 'print 'texinfo-format 'texinfo-format-print)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3087 (defun texinfo-format-print ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3088 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3089 (insert "-|"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3090
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3091 (put 'result 'texinfo-format 'texinfo-format-result)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3092 (defun texinfo-format-result ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3093 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3094 (insert "=>"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3095
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3096
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3097 ;;; Accent commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3098
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3099 ;; Info presumes a plain ASCII output, so the accented characters do
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3100 ;; not look as they would if typeset, or output with a different
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3101 ;; character set.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3102
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3103 ;; See the `texinfo-accent-commands' variable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3104 ;; in the section for `texinfo-append-refill'.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3105 ;; Also, see the defun for `texinfo-format-scan'
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3106 ;; for single-character accent commands.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3107
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3108 ;; Command Info output Name
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3109
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3110 ;; These do not have braces:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3111 ;; @^ ==> ^ circumflex accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3112 ;; @` ==> ` grave accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3113 ;; @' ==> ' acute accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3114 ;; @" ==> " umlaut accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3115 ;; @= ==> = overbar accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3116 ;; @~ ==> ~ tilde accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3117
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3118 ;; These have braces, but take no argument:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3119 ;; @OE{} ==> OE French-OE-ligature
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3120 ;; @oe{} ==> oe
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3121 ;; @AA{} ==> AA Scandinavian-A-with-circle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3122 ;; @aa{} ==> aa
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3123 ;; @AE{} ==> AE Latin-Scandinavian-AE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3124 ;; @ae{} ==> ae
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3125 ;; @ss{} ==> ss German-sharp-S
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3126
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3127 ;; @questiondown{} ==> ? upside-down-question-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3128 ;; @exclamdown{} ==> ! upside-down-exclamation-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3129 ;; @L{} ==> L/ Polish suppressed-L (Lslash)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3130 ;; @l{} ==> l/ Polish suppressed-L (Lslash) (lower case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3131 ;; @O{} ==> O/ Scandinavian O-with-slash
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3132 ;; @o{} ==> o/ Scandinavian O-with-slash (lower case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3133
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3134 ;; These have braces, and take an argument:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3135 ;; @,{c} ==> c, cedilla accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3136 ;; @dotaccent{o} ==> .o overdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3137 ;; @ubaraccent{o} ==> _o underbar-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3138 ;; @udotaccent{o} ==> o-. underdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3139 ;; @H{o} ==> ""o long Hungarian umlaut
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3140 ;; @ringaccent{o} ==> *o ring accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3141 ;; @tieaccent{oo} ==> [oo tie after accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3142 ;; @u{o} ==> (o breve accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3143 ;; @v{o} ==> <o hacek accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3144 ;; @dotless{i} ==> i dotless i and dotless j
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3145
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3146 ;; ==========
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3147
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3148 ;; Note: The defun texinfo-format-scan
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3149 ;; looks at "[@{}^'`\",=~ *?!-]"
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3150 ;; In the case of @*, a line break is inserted;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3151 ;; in the other cases, the characters are simply quoted and the @ is deleted.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3152 ;; Thus, `texinfo-format-scan' handles the following
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3153 ;; single-character accent commands: @^ @` @' @" @, @- @= @~
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3154
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3155 ;; @^ ==> ^ circumflex accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3156 ;; (put '^ 'texinfo-format 'texinfo-format-circumflex-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3157 ;; (defun texinfo-format-circumflex-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3158 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3159 ;; (insert "^"))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3160 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3161 ;; @` ==> ` grave accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3162 ;; (put '\` 'texinfo-format 'texinfo-format-grave-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3163 ;; (defun texinfo-format-grave-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3164 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3165 ;; (insert "\`"))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3166 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3167 ;; @' ==> ' acute accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3168 ;; (put '\' 'texinfo-format 'texinfo-format-acute-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3169 ;; (defun texinfo-format-acute-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3170 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3171 ;; (insert "'"))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3172 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3173 ;; @" ==> " umlaut accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3174 ;; (put '\" 'texinfo-format 'texinfo-format-umlaut-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3175 ;; (defun texinfo-format-umlaut-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3176 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3177 ;; (insert "\""))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3178 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3179 ;; @= ==> = overbar accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3180 ;; (put '= 'texinfo-format 'texinfo-format-overbar-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3181 ;; (defun texinfo-format-overbar-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3182 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3183 ;; (insert "="))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3184 ;;
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3185 ;; @~ ==> ~ tilde accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3186 ;; (put '~ 'texinfo-format 'texinfo-format-tilde-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3187 ;; (defun texinfo-format-tilde-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3188 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3189 ;; (insert "~"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3190
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3191 ;; @OE{} ==> OE French-OE-ligature
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3192 (put 'OE 'texinfo-format 'texinfo-format-French-OE-ligature)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3193 (defun texinfo-format-French-OE-ligature ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3194 (insert "OE" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3195 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3196
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3197 ;; @oe{} ==> oe
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3198 (put 'oe 'texinfo-format 'texinfo-format-French-oe-ligature)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3199 (defun texinfo-format-French-oe-ligature () ; lower case
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3200 (insert "oe" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3201 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3202
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3203 ;; @AA{} ==> AA Scandinavian-A-with-circle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3204 (put 'AA 'texinfo-format 'texinfo-format-Scandinavian-A-with-circle)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3205 (defun texinfo-format-Scandinavian-A-with-circle ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3206 (insert "AA" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3207 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3208
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3209 ;; @aa{} ==> aa
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3210 (put 'aa 'texinfo-format 'texinfo-format-Scandinavian-a-with-circle)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3211 (defun texinfo-format-Scandinavian-a-with-circle () ; lower case
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3212 (insert "aa" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3213 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3214
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3215 ;; @AE{} ==> AE Latin-Scandinavian-AE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3216 (put 'AE 'texinfo-format 'texinfo-format-Latin-Scandinavian-AE)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3217 (defun texinfo-format-Latin-Scandinavian-AE ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3218 (insert "AE" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3219 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3220
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3221 ;; @ae{} ==> ae
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3222 (put 'ae 'texinfo-format 'texinfo-format-Latin-Scandinavian-ae)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3223 (defun texinfo-format-Latin-Scandinavian-ae () ; lower case
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3224 (insert "ae" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3225 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3226
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3227 ;; @ss{} ==> ss German-sharp-S
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3228 (put 'ss 'texinfo-format 'texinfo-format-German-sharp-S)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3229 (defun texinfo-format-German-sharp-S ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3230 (insert "ss" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3231 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3232
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3233 ;; @questiondown{} ==> ? upside-down-question-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3234 (put 'questiondown 'texinfo-format 'texinfo-format-upside-down-question-mark)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3235 (defun texinfo-format-upside-down-question-mark ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3236 (insert "?" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3237 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3238
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3239 ;; @exclamdown{} ==> ! upside-down-exclamation-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3240 (put 'exclamdown 'texinfo-format 'texinfo-format-upside-down-exclamation-mark)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3241 (defun texinfo-format-upside-down-exclamation-mark ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3242 (insert "!" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3243 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3244
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3245 ;; @L{} ==> L/ Polish suppressed-L (Lslash)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3246 (put 'L 'texinfo-format 'texinfo-format-Polish-suppressed-L)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3247 (defun texinfo-format-Polish-suppressed-L ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3248 (insert (texinfo-parse-arg-discard) "/L")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3249 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3250
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3251 ;; @l{} ==> l/ Polish suppressed-L (Lslash) (lower case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3252 (put 'l 'texinfo-format 'texinfo-format-Polish-suppressed-l-lower-case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3253 (defun texinfo-format-Polish-suppressed-l-lower-case ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3254 (insert (texinfo-parse-arg-discard) "/l")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3255 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3256
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3257
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3258 ;; @O{} ==> O/ Scandinavian O-with-slash
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3259 (put 'O 'texinfo-format 'texinfo-format-Scandinavian-O-with-slash)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3260 (defun texinfo-format-Scandinavian-O-with-slash ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3261 (insert (texinfo-parse-arg-discard) "O/")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3262 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3263
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3264 ;; @o{} ==> o/ Scandinavian O-with-slash (lower case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3265 (put 'o 'texinfo-format 'texinfo-format-Scandinavian-o-with-slash-lower-case)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3266 (defun texinfo-format-Scandinavian-o-with-slash-lower-case ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3267 (insert (texinfo-parse-arg-discard) "o/")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3268 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3269
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3270 ;; Take arguments
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3271
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3272 ;; @,{c} ==> c, cedilla accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3273 (put ', 'texinfo-format 'texinfo-format-cedilla-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3274 (defun texinfo-format-cedilla-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3275 (insert (texinfo-parse-arg-discard) ",")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3276 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3277
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3278
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3279 ;; @dotaccent{o} ==> .o overdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3280 (put 'dotaccent 'texinfo-format 'texinfo-format-overdot-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3281 (defun texinfo-format-overdot-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3282 (insert "." (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3283 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3284
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3285 ;; @ubaraccent{o} ==> _o underbar-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3286 (put 'ubaraccent 'texinfo-format 'texinfo-format-underbar-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3287 (defun texinfo-format-underbar-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3288 (insert "_" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3289 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3290
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3291 ;; @udotaccent{o} ==> o-. underdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3292 (put 'udotaccent 'texinfo-format 'texinfo-format-underdot-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3293 (defun texinfo-format-underdot-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3294 (insert (texinfo-parse-arg-discard) "-.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3295 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3296
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3297 ;; @H{o} ==> ""o long Hungarian umlaut
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3298 (put 'H 'texinfo-format 'texinfo-format-long-Hungarian-umlaut)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3299 (defun texinfo-format-long-Hungarian-umlaut ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3300 (insert "\"\"" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3301 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3302
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3303 ;; @ringaccent{o} ==> *o ring accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3304 (put 'ringaccent 'texinfo-format 'texinfo-format-ring-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3305 (defun texinfo-format-ring-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3306 (insert "*" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3307 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3308
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3309 ;; @tieaccent{oo} ==> [oo tie after accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3310 (put 'tieaccent 'texinfo-format 'texinfo-format-tie-after-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3311 (defun texinfo-format-tie-after-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3312 (insert "[" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3313 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3314
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3315
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3316 ;; @u{o} ==> (o breve accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3317 (put 'u 'texinfo-format 'texinfo-format-breve-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3318 (defun texinfo-format-breve-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3319 (insert "(" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3320 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3321
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3322 ;; @v{o} ==> <o hacek accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3323 (put 'v 'texinfo-format 'texinfo-format-hacek-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3324 (defun texinfo-format-hacek-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3325 (insert "<" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3326 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3327
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3328
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3329 ;; @dotless{i} ==> i dotless i and dotless j
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3330 (put 'dotless 'texinfo-format 'texinfo-format-dotless)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3331 (defun texinfo-format-dotless ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3332 (insert (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3333 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3334
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3335
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3336 ;;; Definition formatting: @deffn, @defun, etc
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3337
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3338 ;; What definition formatting produces:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3339 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3340 ;; @deffn category name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3341 ;; In Info, `Category: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3342 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3343 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3344 ;; @defvr category name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3345 ;; In Info, `Category: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3346 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3347 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3348 ;; @deftp category name attributes...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3349 ;; `category name attributes...' Note: @deftp args in lower case.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3350 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3351 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3352 ;; Specialized function-like or variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3353 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3354 ;; @defun, @defmac, @defspec, @defvar, @defopt
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3355 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3356 ;; @defun name args In Info, `Function: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3357 ;; @defmac name args In Info, `Macro: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3358 ;; @defvar name In Info, `Variable: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3359 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3360 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3361 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3362 ;; Generalized typed-function-like or typed-variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3363 ;; @deftypefn category data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3364 ;; In Info, `Category: data-type name args...'
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3365 ;; @deftypevr category data-type name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3366 ;; In Info, `Category: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3367 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3368 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3369 ;; Specialized typed-function-like or typed-variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3370 ;; @deftypefun data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3371 ;; In Info, `Function: data-type name ARGS'
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3372 ;; In index: name: node. line#.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3373 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3374 ;; @deftypevar data-type name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3375 ;; In Info, `Variable: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3376 ;; In index: name: node. line#. but include args after name!?
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3377 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3378 ;; Generalized object oriented entity:
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3379 ;; @defop category class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3380 ;; In Info, `Category on class: name ARG'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3381 ;; In index: name on class: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3382 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3383 ;; @defcv category class name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3384 ;; In Info, `Category of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3385 ;; In index: name of class: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3386 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3387 ;; Specialized object oriented entity:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3388 ;; @defmethod class name args...
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3389 ;; In Info, `Method on class: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3390 ;; In index: name on class: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3391 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3392 ;; @defivar class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3393 ;; In Info, `Instance variable of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3394 ;; In index: name of class: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3395
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3397 ;;; The definition formatting functions
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3398
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3399 (defun texinfo-format-defun ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3400 (texinfo-push-stack 'defun nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3401 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3402 (texinfo-format-defun-1 t))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3403
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3404 (defun texinfo-end-defun ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3405 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3406 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3407 (let ((start (nth 1 (texinfo-pop-stack 'defun))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3408 (texinfo-do-itemize start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3409 ;; Delete extra newline inserted after header.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3410 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3411 (goto-char start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3412 (delete-char -1))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3413
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3414 (defun texinfo-format-defunx ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3415 (texinfo-format-defun-1 nil))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3416
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3417 (defun texinfo-format-defun-1 (first-p)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3418 (let ((parse-args (texinfo-format-parse-defun-args))
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3419 (texinfo-defun-type (get texinfo-command-name 'texinfo-defun-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3420 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3421 ;; Delete extra newline inserted after previous header line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3422 (if (not first-p)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3423 (delete-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3424 (funcall
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3425 (get texinfo-command-name 'texinfo-deffn-formatting-property) parse-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3426 ;; Insert extra newline so that paragraph filling does not mess
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3427 ;; with header line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3428 (insert "\n\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3429 (rplaca (cdr (cdr (car texinfo-stack))) (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3430 (funcall
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3431 (get texinfo-command-name 'texinfo-defun-indexing-property) parse-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3432
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3433 ;;; Formatting the first line of a definition
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3434
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3435 ;; @deffn, @defvr, @deftp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3436 (put 'deffn 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3437 (put 'deffnx 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3438 (put 'defvr 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3439 (put 'defvrx 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3440 (put 'deftp 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3441 (put 'deftpx 'texinfo-deffn-formatting-property 'texinfo-format-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3442 (defun texinfo-format-deffn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3443 ;; Generalized function-like, variable-like, or generic data-type entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3444 ;; @deffn category name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3445 ;; In Info, `Category: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3446 ;; @deftp category name attributes...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3447 ;; `category name attributes...' Note: @deftp args in lower case.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3448 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3449 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3450 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3451 (insert " -- " category ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3452 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3453 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3454 (if (or (= ?& (aref (car args) 0))
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3455 (eq (eval (car texinfo-defun-type)) 'deftp-type))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3456 (car args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3457 (upcase (car args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3458 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3459
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3460 ;; @defun, @defmac, @defspec, @defvar, @defopt: Specialized, simple
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3461 (put 'defun 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3462 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3463 (put 'defunx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3464 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3465 (put 'defmac 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3466 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3467 (put 'defmacx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3468 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3469 (put 'defspec 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3470 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3471 (put 'defspecx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3472 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3473 (put 'defvar 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3474 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3475 (put 'defvarx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3476 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3477 (put 'defopt 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3478 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3479 (put 'defoptx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3480 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3481 (defun texinfo-format-specialized-defun (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3482 ;; Specialized function-like or variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3483 ;; @defun name args In Info, `Function: Name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3484 ;; @defmac name args In Info, `Macro: Name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3485 ;; @defvar name In Info, `Variable: Name'
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3486 ;; Use cdr of texinfo-defun-type to determine category:
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3487 (let ((category (car (cdr texinfo-defun-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3488 (name (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3489 (args (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3490 (insert " -- " category ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3491 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3492 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3493 (if (= ?& (aref (car args) 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3494 (car args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3495 (upcase (car args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3496 (setq args (cdr args)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3497
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3498 ;; @deftypefn, @deftypevr: Generalized typed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3499 (put 'deftypefn 'texinfo-deffn-formatting-property 'texinfo-format-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3500 (put 'deftypefnx 'texinfo-deffn-formatting-property 'texinfo-format-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3501 (put 'deftypevr 'texinfo-deffn-formatting-property 'texinfo-format-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3502 (put 'deftypevrx 'texinfo-deffn-formatting-property 'texinfo-format-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3503 (defun texinfo-format-deftypefn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3504 ;; Generalized typed-function-like or typed-variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3505 ;; @deftypefn category data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3506 ;; In Info, `Category: data-type name args...'
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3507 ;; @deftypevr category data-type name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3508 ;; In Info, `Category: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3509 ;; Note: args in lower case, unless modified in command line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3510 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3511 (data-type (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3512 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3513 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3514 (insert " -- " category ": " data-type " " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3515 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3516 (insert " " (car args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3517 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3518
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3519 ;; @deftypefun, @deftypevar: Specialized typed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3520 (put 'deftypefun 'texinfo-deffn-formatting-property 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3521 (put 'deftypefunx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3522 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3523 (put 'deftypevar 'texinfo-deffn-formatting-property 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3524 (put 'deftypevarx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3525 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3526 (defun texinfo-format-deftypefun (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3527 ;; Specialized typed-function-like or typed-variable-like entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3528 ;; @deftypefun data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3529 ;; In Info, `Function: data-type name ARGS'
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3530 ;; @deftypevar data-type name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3531 ;; In Info, `Variable: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3532 ;; Note: args in lower case, unless modified in command line.
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3533 ;; Use cdr of texinfo-defun-type to determine category:
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3534 (let ((category (car (cdr texinfo-defun-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3535 (data-type (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3536 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3537 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3538 (insert " -- " category ": " data-type " " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3539 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3540 (insert " " (car args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3541 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3542
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3543 ;; @defop: Generalized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3544 (put 'defop 'texinfo-deffn-formatting-property 'texinfo-format-defop)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3545 (put 'defopx 'texinfo-deffn-formatting-property 'texinfo-format-defop)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3546 (defun texinfo-format-defop (parsed-args)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3547 ;; Generalized object oriented entity:
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3548 ;; @defop category class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3549 ;; In Info, `Category on class: name ARG'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3550 ;; Note: args in upper case; use of `on'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3551 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3552 (class (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3553 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3554 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3555 (insert " -- " category " on " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3556 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3557 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3558 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3559
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3560 ;; @defcv: Generalized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3561 (put 'defcv 'texinfo-deffn-formatting-property 'texinfo-format-defcv)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3562 (put 'defcvx 'texinfo-deffn-formatting-property 'texinfo-format-defcv)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3563 (defun texinfo-format-defcv (parsed-args)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3564 ;; Generalized object oriented entity:
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3565 ;; @defcv category class name
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3566 ;; In Info, `Category of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3567 ;; Note: args in upper case; use of `of'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3568 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3569 (class (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3570 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3571 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3572 (insert " -- " category " of " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3573 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3574 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3575 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3576
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3577 ;; @defmethod: Specialized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3578 (put 'defmethod 'texinfo-deffn-formatting-property 'texinfo-format-defmethod)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3579 (put 'defmethodx 'texinfo-deffn-formatting-property 'texinfo-format-defmethod)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3580 (defun texinfo-format-defmethod (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3581 ;; Specialized object oriented entity:
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3582 ;; @defmethod class name args...
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3583 ;; In Info, `Method on class: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3584 ;; Note: args in upper case; use of `on'
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3585 ;; Use cdr of texinfo-defun-type to determine category:
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3586 (let ((category (car (cdr texinfo-defun-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3587 (class (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3588 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3589 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3590 (insert " -- " category " on " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3591 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3592 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3593 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3594
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3595 ;; @defivar: Specialized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3596 (put 'defivar 'texinfo-deffn-formatting-property 'texinfo-format-defivar)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3597 (put 'defivarx 'texinfo-deffn-formatting-property 'texinfo-format-defivar)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3598 (defun texinfo-format-defivar (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3599 ;; Specialized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3600 ;; @defivar class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3601 ;; In Info, `Instance variable of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3602 ;; Note: args in upper case; use of `of'
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3603 ;; Use cdr of texinfo-defun-type to determine category:
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
3604 (let ((category (car (cdr texinfo-defun-type)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3605 (class (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3606 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3607 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3608 (insert " -- " category " of " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3609 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3610 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3611 (setq args (cdr args)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3612
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3613
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3614 ;;; Indexing for definitions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3615
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3616 ;; An index entry has three parts: the `entry proper', the node name, and the
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3617 ;; line number. Depending on the which command is used, the entry is
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3618 ;; formatted differently:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3619 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3620 ;; @defun,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3621 ;; @defmac,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3622 ;; @defspec,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3623 ;; @defvar,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3624 ;; @defopt all use their 1st argument as the entry-proper
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3625 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3626 ;; @deffn,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3627 ;; @defvr,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3628 ;; @deftp
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3629 ;; @deftypefun
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3630 ;; @deftypevar all use their 2nd argument as the entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3631 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3632 ;; @deftypefn,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3633 ;; @deftypevr both use their 3rd argument as the entry-proper
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3634 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3635 ;; @defmethod uses its 2nd and 1st arguments as an entry-proper
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3636 ;; formatted: NAME on CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3637
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3638 ;; @defop uses its 3rd and 2nd arguments as an entry-proper
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3639 ;; formatted: NAME on CLASS
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3640 ;;
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3641 ;; @defivar uses its 2nd and 1st arguments as an entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3642 ;; formatted: NAME of CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3643 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3644 ;; @defcv uses its 3rd and 2nd argument as an entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3645 ;; formatted: NAME of CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3646
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3647 (put 'defun 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3648 (put 'defunx 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3649 (put 'defmac 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3650 (put 'defmacx 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3651 (put 'defspec 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3652 (put 'defspecx 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3653 (put 'defvar 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3654 (put 'defvarx 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3655 (put 'defopt 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3656 (put 'defoptx 'texinfo-defun-indexing-property 'texinfo-index-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3657 (defun texinfo-index-defun (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3658 ;; use 1st parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3659 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3660 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3661 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3662 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3663 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3664 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3665 (car parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3666 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3667 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3668 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3669 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3670 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3671 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3672
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3673 (put 'deffn 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3674 (put 'deffnx 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3675 (put 'defvr 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3676 (put 'defvrx 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3677 (put 'deftp 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3678 (put 'deftpx 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3679 (put 'deftypefun 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3680 (put 'deftypefunx 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3681 (put 'deftypevar 'texinfo-defun-indexing-property 'texinfo-index-deffn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3682 (put 'deftypevarx 'texinfo-defun-indexing-property 'texinfo-index-deffn)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3683 (defun texinfo-index-deffn (parsed-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3684 ;; use 2nd parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3685 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3686 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3687 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3688 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3689 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3690 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3691 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3692 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3693 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3694 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3695 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3696 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3697 (symbol-value index-list)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3698
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3699 (put 'deftypefn 'texinfo-defun-indexing-property 'texinfo-index-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3700 (put 'deftypefnx 'texinfo-defun-indexing-property 'texinfo-index-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3701 (put 'deftypevr 'texinfo-defun-indexing-property 'texinfo-index-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3702 (put 'deftypevrx 'texinfo-defun-indexing-property 'texinfo-index-deftypefn)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3703 (defun texinfo-index-deftypefn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3704 ;; use 3rd parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3705 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3706 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3707 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3708 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3709 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3710 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3711 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3712 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3713 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3714 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3715 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3716 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3717 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3718
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3719 (put 'defmethod 'texinfo-defun-indexing-property 'texinfo-index-defmethod)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3720 (put 'defmethodx 'texinfo-defun-indexing-property 'texinfo-index-defmethod)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3721 (defun texinfo-index-defmethod (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3722 ;; use 2nd on 1st parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3723 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3724 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3725 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3726 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3727 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3728 (list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3729 (format "%s on %s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3730 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3731 (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3732 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3733 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3734 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3735 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3736 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3737 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3738
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3739 (put 'defop 'texinfo-defun-indexing-property 'texinfo-index-defop)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3740 (put 'defopx 'texinfo-defun-indexing-property 'texinfo-index-defop)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3741 (defun texinfo-index-defop (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3742 ;; use 3rd on 2nd parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3743 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3744 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3745 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3746 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3747 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3748 (list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3749 (format "%s on %s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3750 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3751 (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3752 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3753 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3754 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3755 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3756 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3757 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3758
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3759 (put 'defivar 'texinfo-defun-indexing-property 'texinfo-index-defivar)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3760 (put 'defivarx 'texinfo-defun-indexing-property 'texinfo-index-defivar)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3761 (defun texinfo-index-defivar (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3762 ;; use 2nd of 1st parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3763 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3764 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3765 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3766 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3767 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3768 (list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3769 (format "%s of %s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3770 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3771 (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3772 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3773 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3774 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3775 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3776 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3777 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3778
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3779 (put 'defcv 'texinfo-defun-indexing-property 'texinfo-index-defcv)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3780 (put 'defcvx 'texinfo-defun-indexing-property 'texinfo-index-defcv)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3781 (defun texinfo-index-defcv (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3782 ;; use 3rd of 2nd parsed-arg as entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3783 ;; `index-list' will be texinfo-findex or the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3784 (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3785 (set index-list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3786 (cons
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3787 ;; Three elements: entry-proper, node-name, line-number
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3788 (list
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3789 (format "%s of %s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3790 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3791 (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3792 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3793 ;; Region formatting may not provide last node position.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3794 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3795 (1+ (count-lines texinfo-last-node-pos (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3796 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3797 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3798
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3799
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3800 ;;; Properties for definitions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3801
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3802 ;; Each definition command has six properties:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3803 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3804 ;; 1. texinfo-deffn-formatting-property to format definition line
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3805 ;; 2. texinfo-defun-indexing-property to create index entry
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3806 ;; 3. texinfo-format formatting command
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3807 ;; 4. texinfo-end end formatting command
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3808 ;; 5. texinfo-defun-type type of deffn to format
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3809 ;; 6. texinfo-defun-index type of index to use
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3810 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3811 ;; The `x' forms of each definition command are used for the second
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3812 ;; and subsequent header lines.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3813
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3814 ;; The texinfo-deffn-formatting-property and texinfo-defun-indexing-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3815 ;; are listed just before the appropriate formatting and indexing commands.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3816
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3817 (put 'deffn 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3818 (put 'deffnx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3819 (put 'deffn 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3820 (put 'deffn 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3821 (put 'deffnx 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3822 (put 'deffn 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3823 (put 'deffnx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3824
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3825 (put 'defun 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3826 (put 'defunx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3827 (put 'defun 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3828 (put 'defun 'texinfo-defun-type '('defun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3829 (put 'defunx 'texinfo-defun-type '('defun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3830 (put 'defun 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3831 (put 'defunx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3832
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3833 (put 'defmac 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3834 (put 'defmacx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3835 (put 'defmac 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3836 (put 'defmac 'texinfo-defun-type '('defun-type "Macro"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3837 (put 'defmacx 'texinfo-defun-type '('defun-type "Macro"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3838 (put 'defmac 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3839 (put 'defmacx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3840
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3841 (put 'defspec 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3842 (put 'defspecx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3843 (put 'defspec 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3844 (put 'defspec 'texinfo-defun-type '('defun-type "Special form"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3845 (put 'defspecx 'texinfo-defun-type '('defun-type "Special form"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3846 (put 'defspec 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3847 (put 'defspecx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3848
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3849 (put 'defvr 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3850 (put 'defvrx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3851 (put 'defvr 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3852 (put 'defvr 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3853 (put 'defvrx 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3854 (put 'defvr 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3855 (put 'defvrx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3856
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3857 (put 'defvar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3858 (put 'defvarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3859 (put 'defvar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3860 (put 'defvar 'texinfo-defun-type '('defun-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3861 (put 'defvarx 'texinfo-defun-type '('defun-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3862 (put 'defvar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3863 (put 'defvarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3864
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3865 (put 'defconst 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3866 (put 'defconstx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3867 (put 'defconst 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3868 (put 'defconst 'texinfo-defun-type '('defun-type "Constant"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3869 (put 'defconstx 'texinfo-defun-type '('defun-type "Constant"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3870 (put 'defconst 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3871 (put 'defconstx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3872
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3873 (put 'defcmd 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3874 (put 'defcmdx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3875 (put 'defcmd 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3876 (put 'defcmd 'texinfo-defun-type '('defun-type "Command"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3877 (put 'defcmdx 'texinfo-defun-type '('defun-type "Command"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3878 (put 'defcmd 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3879 (put 'defcmdx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3880
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3881 (put 'defopt 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3882 (put 'defoptx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3883 (put 'defopt 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3884 (put 'defopt 'texinfo-defun-type '('defun-type "User Option"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3885 (put 'defoptx 'texinfo-defun-type '('defun-type "User Option"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3886 (put 'defopt 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3887 (put 'defoptx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3888
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3889 (put 'deftp 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3890 (put 'deftpx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3891 (put 'deftp 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3892 (put 'deftp 'texinfo-defun-type '('deftp-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3893 (put 'deftpx 'texinfo-defun-type '('deftp-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3894 (put 'deftp 'texinfo-defun-index 'texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3895 (put 'deftpx 'texinfo-defun-index 'texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3896
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3897 ;;; Object-oriented stuff is a little hairier.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3898
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3899 (put 'defop 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3900 (put 'defopx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3901 (put 'defop 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3902 (put 'defop 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3903 (put 'defopx 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3904 (put 'defop 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3905 (put 'defopx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3906
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3907 (put 'defmethod 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3908 (put 'defmethodx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3909 (put 'defmethod 'texinfo-end 'texinfo-end-defun)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3910 (put 'defmethod 'texinfo-defun-type '('defmethod-type "Method"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3911 (put 'defmethodx 'texinfo-defun-type '('defmethod-type "Method"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3912 (put 'defmethod 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3913 (put 'defmethodx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3914
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3915 (put 'defcv 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3916 (put 'defcvx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3917 (put 'defcv 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3918 (put 'defcv 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3919 (put 'defcvx 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3920 (put 'defcv 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3921 (put 'defcvx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3922
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3923 (put 'defivar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3924 (put 'defivarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3925 (put 'defivar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3926 (put 'defivar 'texinfo-defun-type '('defmethod-type "Instance variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3927 (put 'defivarx 'texinfo-defun-type '('defmethod-type "Instance variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3928 (put 'defivar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3929 (put 'defivarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3930
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3931 ;;; Typed functions and variables
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3932
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3933 (put 'deftypefn 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3934 (put 'deftypefnx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3935 (put 'deftypefn 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3936 (put 'deftypefn 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3937 (put 'deftypefnx 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3938 (put 'deftypefn 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3939 (put 'deftypefnx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3940
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3941 (put 'deftypefun 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3942 (put 'deftypefunx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3943 (put 'deftypefun 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3944 (put 'deftypefun 'texinfo-defun-type '('deftypefun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3945 (put 'deftypefunx 'texinfo-defun-type '('deftypefun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3946 (put 'deftypefun 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3947 (put 'deftypefunx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3948
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3949 (put 'deftypevr 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3950 (put 'deftypevrx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3951 (put 'deftypevr 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3952 (put 'deftypevr 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3953 (put 'deftypevrx 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3954 (put 'deftypevr 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3955 (put 'deftypevrx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3956
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3957 (put 'deftypevar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3958 (put 'deftypevarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3959 (put 'deftypevar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3960 (put 'deftypevar 'texinfo-defun-type '('deftypevar-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3961 (put 'deftypevarx 'texinfo-defun-type '('deftypevar-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3962 (put 'deftypevar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3963 (put 'deftypevarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3964
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3965
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3966 ;;; @set, @clear, @ifset, @ifclear
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3967
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3968 ;; If a flag is set with @set FLAG, then text between @ifset and @end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3969 ;; ifset is formatted normally, but if the flag is is cleared with
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3970 ;; @clear FLAG, then the text is not formatted; it is ignored.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3971
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3972 ;; If a flag is cleared with @clear FLAG, then text between @ifclear
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3973 ;; and @end ifclear is formatted normally, but if the flag is is set with
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3974 ;; @set FLAG, then the text is not formatted; it is ignored. @ifclear
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3975 ;; is the opposite of @ifset.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3976
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3977 ;; If a flag is set to a string with @set FLAG,
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3978 ;; replace @value{FLAG} with the string.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3979 ;; If a flag with a value is cleared,
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
3980 ;; @value{FLAG} is invalid,
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3981 ;; as if there had never been any @set FLAG previously.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3982
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3983 (put 'clear 'texinfo-format 'texinfo-clear)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3984 (defun texinfo-clear ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3985 "Clear the value of the flag."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3986 (let* ((arg (texinfo-parse-arg-discard))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3987 (flag (car (read-from-string arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3988 (value (substring arg (cdr (read-from-string arg)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3989 (put flag 'texinfo-whether-setp 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3990 (put flag 'texinfo-set-value "")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3991
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3992 (put 'set 'texinfo-format 'texinfo-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3993 (defun texinfo-set ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3994 "Set the value of the flag, optionally to a string.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3995 The command `@set foo This is a string.'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3996 sets flag foo to the value: `This is a string.'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3997 The command `@value{foo}' expands to the value."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3998 (let* ((arg (texinfo-parse-arg-discard))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3999 (flag (car (read-from-string arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4000 (value (substring arg (cdr (read-from-string arg)))))
37538
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
4001 (if (string-match "^[ \t]+" value)
92c065fa43f6 (texinfo-format-parse-args): Don't
Gerd Moellmann <gerd@gnu.org>
parents: 36300
diff changeset
4002 (setq value (substring value (match-end 0))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4003 (put flag 'texinfo-whether-setp 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4004 (put flag 'texinfo-set-value value)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4005
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4006 (put 'value 'texinfo-format 'texinfo-value)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4007 (defun texinfo-value ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4008 "Insert the string to which the flag is set.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4009 The command `@set foo This is a string.'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4010 sets flag foo to the value: `This is a string.'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4011 The command `@value{foo}' expands to the value."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4012 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4013 (cond ((and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4014 (eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4015 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4016 (get (car (read-from-string arg)) 'texinfo-set-value))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4017 (insert (get (car (read-from-string arg)) 'texinfo-set-value)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
4018 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4019 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4020 (insert (format "{No value for \"%s\"}" arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4021 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp) nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4022 (insert (format "{No value for \"%s\"}" arg))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4023
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4024 (put 'ifset 'texinfo-end 'texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4025 (put 'ifset 'texinfo-format 'texinfo-if-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4026 (defun texinfo-if-set ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4027 "If set, continue formatting; else do not format region up to @end ifset"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4028 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4029 (cond
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4030 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4031 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4032 ;; Format the text (i.e., do not remove it); do nothing here.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4033 ())
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4034 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4035 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4036 ;; Clear region (i.e., cause the text to be ignored).
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4037 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
4038 (re-search-forward "@end ifset[ \t]*\n")))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4039 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4040 nil)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
4041 ;; In this case flag is neither set nor cleared.
5118
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
4042 ;; Act as if set, i.e. do nothing.
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
4043 ()))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4044
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4045 (put 'ifclear 'texinfo-end 'texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4046 (put 'ifclear 'texinfo-format 'texinfo-if-clear)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4047 (defun texinfo-if-clear ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4048 "If clear, continue formatting; if set, do not format up to @end ifset"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4049 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4050 (cond
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4051 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4052 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4053 ;; Clear region (i.e., cause the text to be ignored).
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4054 (delete-region texinfo-command-start
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
4055 (re-search-forward "@end ifclear[ \t]*\n")))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4056 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4057 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4058 ;; Format the text (i.e., do not remove it); do nothing here.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4059 ())
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4060 ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4061 nil)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48932
diff changeset
4062 ;; In this case flag is neither set nor cleared.
5118
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
4063 ;; Act as if clear, i.e. do nothing.
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
4064 ()))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4065
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4066 ;;; @ifeq
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4067
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4068 (put 'ifeq 'texinfo-format 'texinfo-format-ifeq)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4069 (defun texinfo-format-ifeq ()
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
4070 "If ARG1 and ARG2 caselessly string compare to same string, perform COMMAND.
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4071 Otherwise produces no output.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4072
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4073 Thus:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4074 @ifeq{ arg1 , arg1 , @code{foo}} bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4075
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4076 ==> `foo' bar.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4077 but
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4078 @ifeq{ arg1 , arg2 , @code{foo}} bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4079
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4080 ==> bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4081
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4082 Note that the Texinfo command and its arguments must be arguments to
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4083 the @ifeq command."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4084 ;; compare-buffer-substrings does not exist in version 18; don't use
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4085 (goto-char texinfo-command-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4086 (let* ((case-fold-search t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4087 (stop (save-excursion (forward-sexp 1) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4088 start end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4089 ;; @ifeq{arg1, arg2, @command{optional-args}}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4090 (arg1
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4091 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4092 (forward-char 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4093 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4094 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4095 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4096 (skip-chars-backward ", ")
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
4097 (buffer-substring-no-properties start (point))))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4098 (arg2
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4099 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4100 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4101 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4102 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4103 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4104 (skip-chars-backward ", ")
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
4105 (buffer-substring-no-properties start (point))))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4106 (texinfo-command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4107 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4108 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4109 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4110 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4111 (goto-char (1- stop))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4112 (skip-chars-backward " ")
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
4113 (buffer-substring-no-properties start (point)))))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4114 (delete-region texinfo-command-start stop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4115 (if (equal arg1 arg2)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4116 (insert texinfo-command))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4117 (goto-char texinfo-command-start)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4118
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4119
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4120 ;;; Process included files: `@include' command
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4121
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4122 ;; Updated 19 October 1990
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4123 ;; In the original version, include files were ignored by Info but
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4124 ;; incorporated in to the printed manual. To make references to the
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4125 ;; included file, the Texinfo source file has to refer to the included
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
4126 ;; files using the `(filename)nodename' format for referring to other
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4127 ;; Info files. Also, the included files had to be formatted on their
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4128 ;; own. It was just like they were another file.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4129
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4130 ;; Currently, include files are inserted into the buffer that is
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4131 ;; formatted for Info. If large, the resulting info file is split and
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4132 ;; tagified. For current include files to work, the master menu must
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4133 ;; refer to all the nodes, and the highest level nodes in the include
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4134 ;; files must have the correct next, prev, and up pointers.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4135
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4136 ;; The included file may have an @setfilename and even an @settitle,
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4137 ;; but not an `\input texinfo' line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4138
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4139 ;; Updated 24 March 1993
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4140 ;; In order for @raisesections and @lowersections to work, included
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4141 ;; files must be inserted into the buffer holding the outer file
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4142 ;; before other Info formatting takes place. So @include is no longer
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4143 ;; is treated like other @-commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4144 (put 'include 'texinfo-format 'texinfo-format-noop)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4145
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4146 ;; Original definition:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4147 ;; (defun texinfo-format-include ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4148 ;; (let ((filename (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4149 ;; (default-directory input-directory)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4150 ;; subindex)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4151 ;; (setq subindex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4152 ;; (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4153 ;; (progn (find-file
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4154 ;; (cond ((file-readable-p (concat filename ".texinfo"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4155 ;; (concat filename ".texinfo"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4156 ;; ((file-readable-p (concat filename ".texi"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4157 ;; (concat filename ".texi"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4158 ;; ((file-readable-p (concat filename ".tex"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4159 ;; (concat filename ".tex"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4160 ;; ((file-readable-p filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4161 ;; filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4162 ;; (t (error "@include'd file %s not found"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4163 ;; filename))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4164 ;; (texinfo-format-buffer-1))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4165 ;; (texinfo-subindex 'texinfo-vindex (car subindex) (nth 1 subindex))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4166 ;; (texinfo-subindex 'texinfo-findex (car subindex) (nth 2 subindex))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4167 ;; (texinfo-subindex 'texinfo-cindex (car subindex) (nth 3 subindex))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4168 ;; (texinfo-subindex 'texinfo-pindex (car subindex) (nth 4 subindex))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4169 ;; (texinfo-subindex 'texinfo-tindex (car subindex) (nth 5 subindex))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4170 ;; (texinfo-subindex 'texinfo-kindex (car subindex) (nth 6 subindex))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4171 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4172 ;;(defun texinfo-subindex (indexvar file content)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4173 ;; (set indexvar (cons (list 'recurse file content)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4174 ;; (symbol-value indexvar))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4175
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4176 ;; Second definition:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4177 ;; (put 'include 'texinfo-format 'texinfo-format-include)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4178 ;; (defun texinfo-format-include ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4179 ;; (let ((filename (concat input-directory
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4180 ;; (texinfo-parse-arg-discard)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4181 ;; (default-directory input-directory))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4182 ;; (message "Reading: %s" filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4183 ;; (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4184 ;; (save-restriction
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4185 ;; (narrow-to-region
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4186 ;; (point)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4187 ;; (+ (point) (car (cdr (insert-file-contents filename)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4188 ;; (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4189 ;; (texinfo-append-refill)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4190 ;; (texinfo-format-convert (point-min) (point-max))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4191 ;; (setq last-input-buffer input-buffer) ; to bypass setfilename
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4192 ;; ))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4193
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4194
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4195 ;;; Numerous commands do nothing in Info
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4196 ;; These commands are defined in texinfo.tex for printed output.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4197
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4198
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4199 ;;; various noops, such as @b{foo}, that take arguments in braces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4200
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4201 (put 'b 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4202 (put 'i 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4203 (put 'r 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4204 (put 't 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4205 (put 'w 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4206 (put 'asis 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4207 (put 'dmn 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4208 (put 'math 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4209 (put 'titlefont 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4210 (defun texinfo-format-noop ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4211 (insert (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4212 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4213
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4214 ;; @hyphenation command discards an argument within braces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4215 (put 'hyphenation 'texinfo-format 'texinfo-discard-command-and-arg)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4216 (defun texinfo-discard-command-and-arg ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4217 "Discard both @-command and its argument in braces."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4218 (goto-char texinfo-command-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4219 (forward-list 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4220 (setq texinfo-command-end (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4221 (delete-region texinfo-command-start texinfo-command-end))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4222
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4223
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4224 ;;; Do nothing commands, such as @smallbook, that have no args and no braces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4225 ;; These must appear on a line of their own
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4226
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4227 (put 'bye 'texinfo-format 'texinfo-discard-line)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4228 (put 'smallbook 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4229 (put 'finalout 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4230 (put 'overfullrule 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4231 (put 'smallbreak 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4232 (put 'medbreak 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4233 (put 'bigbreak 'texinfo-format 'texinfo-discard-line)
48063
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
4234 (put 'afourpaper 'texinfo-format 'texinfo-discard-line)
48755
a4aa559a2dec Fix typos found by TAKAHASHI Kaoru <kaoru@kaisei.org>.
Robert J. Chassell <bob@rattlesnake.com>
parents: 48697
diff changeset
4235 (put 'afivepaper 'texinfo-format 'texinfo-discard-line)
a4aa559a2dec Fix typos found by TAKAHASHI Kaoru <kaoru@kaisei.org>.
Robert J. Chassell <bob@rattlesnake.com>
parents: 48697
diff changeset
4236 (put 'afourlatex 'texinfo-format 'texinfo-discard-line)
a4aa559a2dec Fix typos found by TAKAHASHI Kaoru <kaoru@kaisei.org>.
Robert J. Chassell <bob@rattlesnake.com>
parents: 48697
diff changeset
4237 (put 'afourwide 'texinfo-format 'texinfo-discard-line)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4238
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4239
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4240 ;;; These noop commands discard the rest of the line.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4241
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4242 (put 'c 'texinfo-format 'texinfo-discard-line-with-args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4243 (put 'comment 'texinfo-format 'texinfo-discard-line-with-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4244 (put 'contents 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4245 (put 'group 'texinfo-end 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4246 (put 'group 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4247 (put 'headings 'texinfo-format 'texinfo-discard-line-with-args)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4248 (put 'setchapterstyle 'texinfo-format 'texinfo-discard-line-with-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4249 (put 'hsize 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4250 (put 'itemindent 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4251 (put 'lispnarrowing 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4252 (put 'need 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4253 (put 'nopara 'texinfo-format 'texinfo-discard-line-with-args)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4254
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4255 ;; @novalidate suppresses cross-reference checking and auxiliary file
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4256 ;; creation with TeX. The Info-validate command checks that every
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4257 ;; node pointer points to an existing node. Since this Info command
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4258 ;; is not invoked automatically, the @novalidate command is irrelevant
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4259 ;; and not supported by texinfmt.el
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4260 (put 'novalidate 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4261
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4262 (put 'page 'texinfo-format 'texinfo-discard-line-with-args)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4263 (put 'pagesizes 'texinfo-format 'texinfo-discard-line-with-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4264 (put 'parindent 'texinfo-format 'texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4265 (put 'setchapternewpage 'texinfo-format 'texinfo-discard-line-with-args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4266 (put 'setq 'texinfo-format 'texinfo-discard-line-with-args)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4267
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4268 (put 'setcontentsaftertitlepage
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4269 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4270 (put 'setshortcontentsaftertitlepage
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4271 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4272
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4273 (put 'settitle 'texinfo-format 'texinfo-discard-line-with-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4274 (put 'setx 'texinfo-format 'texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4275 (put 'shortcontents 'texinfo-format 'texinfo-discard-line-with-args)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4276 (put 'shorttitlepage 'texinfo-format 'texinfo-discard-line-with-args)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4277 (put 'summarycontents 'texinfo-format 'texinfo-discard-line-with-args)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4278 (put 'input 'texinfo-format 'texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4279
48063
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
4280 (put 'documentlanguage 'texinfo-format 'texinfo-discard-line-with-args)
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
4281 (put 'documentencoding 'texinfo-format 'texinfo-discard-line-with-args)
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
4282
4cef5030d270 (texinfo-format-ifplaintext): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 43808
diff changeset
4283
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4284
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4285 ;;; Some commands cannot be handled
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4286
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4287 (defun texinfo-unsupported ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4288 (error "%s is not handled by texinfo"
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
4289 (buffer-substring-no-properties texinfo-command-start texinfo-command-end)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4290
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4291 ;;; Batch formatting
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4292
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4293 (defun batch-texinfo-format ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4294 "Runs texinfo-format-buffer on the files remaining on the command line.
73729
581994501499 (batch-texinfo-format): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 71781
diff changeset
4295 Must be used only with -batch, and kills Emacs on completion.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4296 Each file will be processed even if an error occurred previously.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4297 For example, invoke
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4298 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4299 (if (not noninteractive)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
4300 (error "batch-texinfo-format may only be used -batch"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4301 (let ((version-control t)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4302 (auto-save-default nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4303 (find-file-run-dired nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4304 (kept-old-versions 259259)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4305 (kept-new-versions 259259))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4306 (let ((error 0)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4307 file
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4308 (files ()))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4309 (while command-line-args-left
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4310 (setq file (expand-file-name (car command-line-args-left)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4311 (cond ((not (file-exists-p file))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4312 (message ">> %s does not exist!" file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4313 (setq error 1
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4314 command-line-args-left (cdr command-line-args-left)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4315 ((file-directory-p file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4316 (setq command-line-args-left
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4317 (nconc (directory-files file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4318 (cdr command-line-args-left))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4319 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4320 (setq files (cons file files)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4321 command-line-args-left (cdr command-line-args-left)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4322 (while files
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4323 (setq file (car files)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4324 files (cdr files))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4325 (condition-case err
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4326 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4327 (if buffer-file-name (kill-buffer (current-buffer)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4328 (find-file file)
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
4329 (buffer-disable-undo (current-buffer))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4330 (set-buffer-modified-p nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4331 (texinfo-mode)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4332 (message "texinfo formatting %s..." file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4333 (texinfo-format-buffer nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4334 (if (buffer-modified-p)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4335 (progn (message "Saving modified %s" (buffer-file-name))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4336 (save-buffer))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4337 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4338 (message ">> Error: %s" (prin1-to-string err))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4339 (message ">> point at")
48518
0eb01081d9f5 (texinfo-format-separate-node): Handle node names with
Robert J. Chassell <bob@rattlesnake.com>
parents: 48063
diff changeset
4340 (let ((s (buffer-substring-no-properties (point)
49700
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
4341 (min (+ (point) 100)
176bfa5ffebf (texinfo-format-iftex, texinfo-format-ifhtml)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49599
diff changeset
4342 (point-max))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4343 (tem 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4344 (while (setq tem (string-match "\n+" s tem))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4345 (setq s (concat (substring s 0 (match-beginning 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4346 "\n>> "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4347 (substring s (match-end 0)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4348 tem (1+ tem)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4349 (message ">> %s" s))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4350 (setq error 1))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4351 (kill-emacs error))))
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
4352
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4353
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4354 ;;; Place `provide' at end of file.
3456
57089987a2de Provide texinfmt.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
4355 (provide 'texinfmt)
57089987a2de Provide texinfmt.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
4356
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51550
diff changeset
4357 ;;; arch-tag: 1e8d9a2d-bca0-40a0-ac6c-dab01bc6f725
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38044
diff changeset
4358 ;;; texinfmt.el ends here