annotate lisp/textmodes/texinfmt.el @ 24784:8c5bc687c346

(dired-insert-subdir-doinsert): Check that the headerline does not exist already.
author Andreas Schwab <schwab@suse.de>
date Thu, 27 May 1999 09:34:36 +0000
parents ea9b449cc742
children c4e546aa9dd5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10896
diff changeset
1 ;;; texinfmt.el --- format Texinfo files into Info files.
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10896
diff changeset
2
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4 ;; 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
6 ;; Maintainer: Robert J. Chassell <bug-texinfo@prep.ai.mit.edu>
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
7 ;; Keywords: maint, tex, docs
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
8
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10896
diff changeset
9 ;; This file is part of GNU Emacs.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
10
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
12 ;; 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
13 ;; the Free Software Foundation; either version 2, or (at your option)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
14 ;; any later version.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
15
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
20
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
21 ;; 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
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
24 ;; Boston, MA 02111-1307, USA.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
25
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
26 ;;; Code:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
27
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
28 ;;; 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
29
19630
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
30 (or (fboundp 'defgroup)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
31 (defmacro defgroup (&rest ignore) nil))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
32
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
33 (or (fboundp 'defcustom)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
34 (defmacro defcustom (var value doc &rest ignore)
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
35 `(defvar ,var ,value ,doc)))
95743e18a01c (defgroup, defcustom): Add Emacs 19 compatibility definitions.
Richard M. Stallman <rms@gnu.org>
parents: 18908
diff changeset
36
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
37 (defvar texinfmt-version "2.38 of 3 July 1998")
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
38
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
39 (defun texinfmt-version (&optional here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
40 "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
41 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
42 (interactive "P")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
43 (let ((version-string
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
44 (format "Version of \`texinfmt.el\': %s" texinfmt-version)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
45 (if here
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
46 (insert version-string)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
47 (if (interactive-p)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
48 (message "%s" version-string)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
49 version-string))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
50
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
51
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
52 ;;; Variable definitions
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
53
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
54 (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
55 (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
56
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
57 (defvar texinfo-format-syntax-table nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
58
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
59 (defvar texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
60 (defvar texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
61 (defvar texinfo-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
62 (defvar texinfo-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
63 (defvar texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
64 (defvar texinfo-kindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
65 (defvar texinfo-last-node)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
66 (defvar texinfo-node-names)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
67 (defvar texinfo-enclosure-list)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
68 (defvar texinfo-alias-list)
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
69 (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
70
4868
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
71 (defvar texinfo-command-start)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
72 (defvar texinfo-command-end)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
73 (defvar texinfo-command-name)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
74 (defvar texinfo-defun-type)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
75 (defvar texinfo-last-node-pos)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
76 (defvar texinfo-stack)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
77 (defvar texinfo-short-index-cmds-alist)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
78 (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
79 (defvar texinfo-format-filename)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
80 (defvar texinfo-footnote-number)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
81 (defvar texinfo-start-of-header)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
82 (defvar texinfo-end-of-header)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
83 (defvar texinfo-raisesections-alist)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
84 (defvar texinfo-lowersections-alist)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
85
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
86 ;;; Syntax table
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
87
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
88 (if texinfo-format-syntax-table
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
89 nil
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
90 (setq texinfo-format-syntax-table (make-syntax-table))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
91 (modify-syntax-entry ?\" " " texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
92 (modify-syntax-entry ?\\ " " texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
93 (modify-syntax-entry ?@ "\\" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
94 (modify-syntax-entry ?\^q "\\" texinfo-format-syntax-table)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
95 (modify-syntax-entry ?\[ "." texinfo-format-syntax-table)
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 ?\( "." 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
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
103
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
104 ;;; 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
105
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
106 ;;;###autoload
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
107 (defun texinfo-format-buffer (&optional nosplit)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
108 "Process the current buffer as texinfo code, into an Info file.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
109 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
110 name specified in the @setfilename command.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
111
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
112 Non-nil argument (prefix, if interactive) means don't make tag table
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
113 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
114 Info-split to do these manually."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
115 (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
116 (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
117 (coding-system-for-write buffer-file-coding-system))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
118 (message lastmessage)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
119 (widen)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
120 (texinfo-format-buffer-1)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
121 (Info-tagify)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
122 (if nosplit
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
123 nil
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
124 (if (> (buffer-size) 100000)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
125 (progn
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
126 (message (setq lastmessage "Splitting Info file..."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
127 (Info-split))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
128 (message (concat lastmessage
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
129 (if (interactive-p) "done. Now save it." "done.")))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
130
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
131 (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
132 "*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
133
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
134 ;;;###autoload
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
135 (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
136 "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
137 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
138 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
139 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
140 (interactive "r")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
141 (message "Converting region to Info format...")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
142 (let (texinfo-command-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
143 texinfo-command-end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
144 texinfo-command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
145 texinfo-vindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
146 texinfo-findex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
147 texinfo-cindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
148 texinfo-pindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
149 texinfo-tindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
150 texinfo-kindex
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
151 texinfo-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
152 (texinfo-format-filename "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
153 texinfo-example-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
154 texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
155 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
156 texinfo-node-names
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
157 (texinfo-footnote-number 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
158 last-input-buffer
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
159 (fill-column-for-info fill-column)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
160 (input-buffer (current-buffer))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
161 (input-directory default-directory)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
162 (header-text "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
163 (header-beginning 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
164 (header-end 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
165
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
166 ;;; Copy lines between beginning and end of header lines,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
167 ;;; 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
168 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
169 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
170 (widen)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
171 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
172 (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
173 (if (or
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
174 ;; Either copy header text.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
175 (and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
176 (prog1
4982
36b78ccd6285 (texinfo-format-region): Change `texinfo-[start
Richard M. Stallman <rms@gnu.org>
parents: 4868
diff changeset
177 (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
178 (forward-line 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
179 ;; Mark beginning of header.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
180 (setq header-beginning (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
181 (prog1
4982
36b78ccd6285 (texinfo-format-region): Change `texinfo-[start
Richard M. Stallman <rms@gnu.org>
parents: 4868
diff changeset
182 (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
183 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
184 ;; Mark end of header
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
185 (setq header-end (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
186 ;; Or copy @filename line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
187 (prog2
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
188 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
189 (search-forward "@setfilename" search-end t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
190 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
191 (setq header-beginning (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
192 (forward-line 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
193 (setq header-end (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
194
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
195 ;; Copy header
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
196 (setq header-text
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
197 (buffer-substring
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
198 (min header-beginning region-beginning)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
199 header-end))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
200
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
201 ;;; Find a buffer to use.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
202 (switch-to-buffer (get-buffer-create texinfo-region-buffer-name))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
203 (erase-buffer)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
204 ;; Insert the header into the buffer.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
205 (insert header-text)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
206 ;; Insert the region into the buffer.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
207 (insert-buffer-substring
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
208 input-buffer
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
209 (max region-beginning header-end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
210 region-end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
211 ;; 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
212 (or (= (preceding-char) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
213 (insert "\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
214
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
215 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
216 (texinfo-mode)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
217 (message "Converting region to Info format...")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
218 (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
219 ;; 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
220 (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
221
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
222 ;; 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
223 ;; work on them without losing track of multiple
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
224 ;; @raise/@lowersections commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
225 (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
226 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
227 (let ((filename (concat input-directory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
228 (texinfo-parse-line-arg))))
9178
0facf5c89fff (texinfo-format-region, texinfo-format-buffer-1):
Richard M. Stallman <rms@gnu.org>
parents: 6309
diff changeset
229 (re-search-backward "^@include")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
230 (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
231 (message "Reading included file: %s" filename)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
232 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
233 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
234 (narrow-to-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
235 (point)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
236 (+ (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
237 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
238 ;; 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
239 ;; so @setfilename command not duplicated.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
240 (if (re-search-forward
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
241 "^@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
242 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
243 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
244 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
245 (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
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
247 ;; 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
248 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
249 (texinfo-raise-lower-sections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
250 ;; 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
251 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
252 (texinfo-append-refill)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
253 ;; 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
254 ;; discard everything after that.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
255 (goto-char (point-max))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
256 (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
257 (delete-region (point) (point-max)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
258 ;; 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
259 (or (= (preceding-char) ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
260 (insert "\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
261 ;; 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
262 (setq texinfo-enclosure-list nil)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
263 (setq texinfo-alias-list nil)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
264
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
265 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
266 (if (looking-at "\\\\input[ \t]+texinfo")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
267 (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
268
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
269 ;; Insert Info region title text.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
270 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
271 (if (search-forward
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
272 "@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
273 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
274 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
275 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
276 (setq texinfo-command-start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
277 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
278 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
279 texinfo-region-buffer-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
280 " buffer for: `")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
281 (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
282 (insert "', -*-Text-*-\n")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
283 ;; Else no `@setfilename' line
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
284 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
285 texinfo-region-buffer-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
286 " buffer -*-Text-*-\n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
287 (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
288 "from a region in: "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
289 (if (buffer-file-name input-buffer)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
290 (concat "`"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
291 (file-name-sans-versions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
292 (file-name-nondirectory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
293 (buffer-file-name input-buffer)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
294 "'")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
295 (concat "buffer `" (buffer-name input-buffer) "'"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
296 "\nusing `texinfmt.el' version "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
297 texinfmt-version
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
298 ".\n\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
299
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
300 ;; Now convert for real.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
301 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
302 (texinfo-format-scan)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
303 (goto-char (point-min))
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
304 (Info-tagify input-buffer)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
305 (goto-char (point-min))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
306 (message "Done.")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
307
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
308 ;;;###autoload
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
309 (defun texi2info (&optional nosplit)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
310 "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
311 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
312 names specified in the @setfilename command.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
313
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
314 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
315 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
316 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
317 Texinfo source buffer is not changed.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
318
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
319 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
320 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
321 (interactive "P")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
322 (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
323 (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
324 ;; (sit-for 2)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
325 (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
326 (switch-to-buffer temp-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
327 (texinfo-master-menu t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
328 (message "Now creating Info file.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
329 (sit-for 2)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
330 (texinfo-format-buffer nosplit)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
331 (save-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
332 (kill-buffer temp-buffer)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
333
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
334
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
335 ;;; 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
336
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
337 (defun texinfo-format-buffer-1 ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
338 (let (texinfo-format-filename
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
339 texinfo-example-start
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
340 texinfo-command-start
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
341 texinfo-command-end
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
342 texinfo-command-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
343 texinfo-last-node
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
344 texinfo-last-node-pos
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
345 texinfo-vindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
346 texinfo-findex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
347 texinfo-cindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
348 texinfo-pindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
349 texinfo-tindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
350 texinfo-kindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
351 texinfo-stack
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
352 texinfo-node-names
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
353 (texinfo-footnote-number 0)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
354 last-input-buffer
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
355 outfile
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
356 (fill-column-for-info fill-column)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
357 (input-buffer (current-buffer))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
358 (input-directory default-directory))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
359 (setq texinfo-enclosure-list nil)
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
360 (setq texinfo-alias-list nil)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
361 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
362 (goto-char (point-min))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
363 (or (search-forward "@setfilename" nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
364 (error "Texinfo file needs an `@setfilename FILENAME' line."))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
365 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
366 (setq outfile (texinfo-parse-line-arg)))
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
367
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
368 (find-file outfile)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
369 (texinfo-mode)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
370 (erase-buffer)
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
371
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
372 (message "Formatting Info file: %s" outfile)
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
373 (setq texinfo-format-filename
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
374 (file-name-nondirectory (expand-file-name outfile)))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
375
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
376 (setq fill-column fill-column-for-info)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
377 (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
378
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
379 (insert-buffer-substring input-buffer)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
380 (message "Converting %s to Info format..." (buffer-name input-buffer))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
381
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
382 ;; 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
383 ;; work on them without losing track of multiple
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
384 ;; @raise/@lowersections commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
385 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
386 (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
387 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
388 (let ((filename (concat input-directory
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
389 (texinfo-parse-line-arg))))
9178
0facf5c89fff (texinfo-format-region, texinfo-format-buffer-1):
Richard M. Stallman <rms@gnu.org>
parents: 6309
diff changeset
390 (re-search-backward "^@include")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
391 (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
392 (message "Reading included file: %s" filename)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
393 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
394 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
395 (narrow-to-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
396 (point)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
397 (+ (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
398 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
399 ;; 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
400 ;; so @setfilename command not duplicated.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
401 (if (re-search-forward
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
402 "^@setfilename"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
403 (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
404 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
405 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
406 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
407 (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
408 ;; 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
409 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
410 (texinfo-raise-lower-sections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
411 ;; Append @refill to appropriate paragraphs
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 (texinfo-append-refill)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
414 (goto-char (point-min))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
415 (search-forward "@setfilename")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
416 (beginning-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
417 (delete-region (point-min) (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
418 ;; Remove @bye at end of file, if it is there.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
419 (goto-char (point-max))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
420 (if (search-backward "@bye" nil t)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
421 (delete-region (point) (point-max)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
422 ;; Make sure buffer ends in a newline.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
423 (or (= (preceding-char) ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
424 (insert "\n"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
425 ;; Scan the whole buffer, converting to Info format.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
426 (texinfo-format-scan)
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
427 (goto-char (point-min))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
428 ;; 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
429 (insert "Info file: "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
430 texinfo-format-filename ", -*-Text-*-\n"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
431 "produced by `texinfo-format-buffer'\n"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
432 ;; 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
433 ;; "on "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
434 ;; (insert (format-time-string "%e %b %Y")) " "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
435 "from file"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
436 (if (buffer-file-name input-buffer)
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
437 (concat " `"
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
438 (file-name-sans-versions
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
439 (file-name-nondirectory
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
440 (buffer-file-name input-buffer)))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
441 "'")
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
442 (concat "buffer `" (buffer-name input-buffer) "'"))
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
443 "\nusing `texinfmt.el' version "
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
444 texinfmt-version
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
445 ".\n\n")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
446 ;; Return data for indices.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
447 (list outfile
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
448 texinfo-vindex texinfo-findex texinfo-cindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
449 texinfo-pindex texinfo-tindex texinfo-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
450
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
451
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
452 ;;; Perform non-@-command file conversions: quotes and hyphens
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
453
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
454 (defun texinfo-format-convert (min max)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
455 ;; 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
456 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
457 (while (search-forward "``" max t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
458 (replace-match "\""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
459 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
460 (while (search-forward "''" max t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
461 (replace-match "\""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
462 ;; 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
463 (goto-char min)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
464 (while (re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" max t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
465 (delete-region (1+ (match-beginning 2)) (+ 2 (match-beginning
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
466 2)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
467
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
468
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
469 ;;; Handle paragraph filling
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
470
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
471 ;; 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
472
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
473 (defvar texinfo-no-refill-regexp
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
474 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
475 "^@"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
476 "\\("
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
477 "direntry\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
478 "lisp\\|"
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
479 "smalllisp\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
480 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
481 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
482 "display\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
483 "smalldisplay\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
484 "format\\|"
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
485 "smallformat\\|"
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
486 "flushleft\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
487 "flushright\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
488 "menu\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
489 "multitable\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
490 "titlepage\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
491 "iftex\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
492 "ifhtml\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
493 "tex\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
494 "html"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
495 "\\)")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
496 "Regexp specifying environments in which paragraphs are not filled.")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
497
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
498 (defvar texinfo-accent-commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
499 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
500 "@^\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
501 "@`\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
502 "@'\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
503 "@\"\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
504 "@,\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
505 "@=\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
506 "@~\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
507 "@OE{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
508 "@oe{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
509 "@AA{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
510 "@aa{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
511 "@AE{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
512 "@ae{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
513 "@ss{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
514 "@questiondown{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
515 "@exclamdown{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
516 "@L{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
517 "@l{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
518 "@O{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
519 "@o{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
520 "@dotaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
521 "@ubaraccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
522 "@d{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
523 "@H{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
524 "@ringaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
525 "@tieaccent{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
526 "@u{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
527 "@v{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
528 "@dotless{"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
529 ))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
530
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
531 (defvar texinfo-part-of-para-regexp
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
532 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
533 "^@"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
534 "\\("
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
535 "b{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
536 "bullet{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
537 "cite{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
538 "code{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
539 "email{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
540 "emph{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
541 "equiv{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
542 "error{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
543 "expansion{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
544 "file{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
545 "i{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
546 "inforef{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
547 "kbd{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
548 "key{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
549 "lisp{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
550 "minus{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
551 "point{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
552 "print{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
553 "pxref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
554 "r{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
555 "ref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
556 "result{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
557 "samp{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
558 "sc{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
559 "t{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
560 "TeX{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
561 "today{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
562 "url{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
563 "var{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
564 "w{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
565 "xref{\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
566 "@-\\|" ; @- 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
567 texinfo-accent-commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
568 "\\)"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
569 )
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
570 "Regexp specifying @-commands found within paragraphs.")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
571
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
572 (defun texinfo-append-refill ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
573 "Append @refill at end of each paragraph that should be filled.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
574 Do not append @refill to paragraphs within @example and similar environments.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
575 Do not append @refill to paragraphs containing @w{TEXT} or @*."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
576
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
577 ;; 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
578 ;; 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
579 ;; whether the text should or should not be filled.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
580
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
581 (while (< (point) (point-max))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
582 (let ((refill-blank-lines "^[ \t\n]*$")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
583 (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
584 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
585 ;; 1. Skip over blank lines;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
586 ;; skip over lines beginning with @-commands,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
587 ;; but do not skip over lines
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
588 ;; 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
589 ;; 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
590 (while (and (looking-at (concat "^@\\|^\\\\\\|" refill-blank-lines))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
591 (not (looking-at
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
592 (concat
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
593 "\\("
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
594 texinfo-no-refill-regexp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
595 "\\|"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
596 texinfo-part-of-para-regexp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
597 "\\)")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
598 (< (point) (point-max)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
599 (forward-line 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
600 ;; 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
601 (if (looking-at texinfo-no-refill-regexp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
602 (let ((environment
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
603 (buffer-substring (match-beginning 1) (match-end 1))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
604 (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
605 (forward-line 1)))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
606 ;; Else
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
607 ;; 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
608 ;; with @<newline> followed by a newline.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
609 (if (or
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
610 (>= (point) (point-max))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
611 (re-search-forward
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
612 "@w{\\|@\\*\\|@\n\n"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
613 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
614 (forward-paragraph)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
615 (forward-line 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
616 (point)) t))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
617 ;; Go to end of paragraph and do nothing.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
618 (forward-paragraph)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
619 ;; 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
620 (forward-paragraph)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
621 (forward-line -1)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
622 (let ((line-beg (point)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
623 (end-of-line)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
624 (delete-region
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
625 (point)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
626 (save-excursion (skip-chars-backward " \t") (point)))
24453
3b8991c22dcd (texinfo-append-refill): Check @c correctly.
Kenichi Handa <handa@m17n.org>
parents: 24314
diff changeset
627 (forward-char 1)
3b8991c22dcd (texinfo-append-refill): Check @c correctly.
Kenichi Handa <handa@m17n.org>
parents: 24314
diff changeset
628 (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
629 (forward-char -1))
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
630 (unless (re-search-backward "@refill\\|@bye" line-beg t)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
631 (insert "@refill")))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
632 (forward-line 1))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
633
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
634
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
635 ;;; Handle `@raisesections' and `@lowersections' commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
636
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
637 ;; These commands change the hierarchical level of chapter structuring
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
638 ;; commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
639 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
640 ;; @raisesections changes @subsection to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
641 ;; @section to @chapter,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
642 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
643 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
644 ;; @lowersections changes @chapter to @section
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
645 ;; @subsection to @subsubsection,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
646 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
647 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
648 ;; 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
649 ;; 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
650 ;; command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
651 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
652 ;; 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
653 ;; the heading level.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
654 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
655 ;; 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
656 ;; vice versa.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
657 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
658 ;; 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
659 ;; 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
660 ;; 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
661 ;; (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
662 ;; @section produce chapter headings).
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 (defun texinfo-raise-lower-sections ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
665 "Raise or lower the hierarchical level of chapters, sections, etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
666
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
667 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
668 commands in the Texinfo file.
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 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
671 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
672 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
673 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
674 on.
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 @raisesections changes @subsection to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
677 @section to @chapter,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
678 @heading to @chapheading,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
679 etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
680
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
681 @lowersections changes @chapter to @section,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
682 @subsection to @subsubsection,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
683 @heading to @subheading,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
684 etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
685
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
686 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
687 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
688 `@lowersections' command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
689
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
690 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
691 vice versa.
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 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
694 level a step at a time.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
695
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
696 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
697 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
698 commands."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
699
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
700 ;; `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
701 ;; 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
702 ;; (but not the top node).
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
703
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
704 (let (type (level 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
705 (while
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
706 (re-search-forward
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
707 (concat
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
708 "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\("
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
709 texinfo-section-types-regexp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
710 "\\)\\)")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
711 nil t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
712 (beginning-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
713 (save-excursion (setq type (read (current-buffer))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
714 (cond
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 ;; 1. Increment level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
717 ((eq type '@raisesections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
718 (setq level (1+ level))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
719 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
720 (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
721
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
722 ;; 2. Decrement level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
723 ((eq type '@lowersections)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
724 (setq level (1- level))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
725 (delete-region
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
726 (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
727
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
728 ;; Now handle structuring commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
729 ((cond
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
730
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
731 ;; 3. Raise level when positive
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
732 ((> level 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
733 (let ((count level)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
734 (new-level type))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
735 (while (> count 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
736 (setq new-level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
737 (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
738 (setq count (1- count)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
739 (kill-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
740 (insert (symbol-name new-level))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
741
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
742 ;; 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
743 ((= level 0) (forward-line 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
744
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
745 ;; 5. Lower level when positive
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
746 ((< level 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
747 (let ((count level)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
748 (new-level type))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
749 (while (< count 0)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
750 (setq new-level
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
751 (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
752 (setq count (1+ count)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
753 (kill-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
754 (insert (symbol-name new-level))))))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
755
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
756 (defvar texinfo-raisesections-alist
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
757 '((@chapter . @chapter) ; Cannot go higher
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
758 (@unnumbered . @unnumbered)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
759 (@centerchap . @unnumbered)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
760
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
761 (@majorheading . @majorheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
762 (@chapheading . @chapheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
763 (@appendix . @appendix)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
764
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
765 (@section . @chapter)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
766 (@unnumberedsec . @unnumbered)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
767 (@heading . @chapheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
768 (@appendixsec . @appendix)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
769
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
770 (@subsection . @section)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
771 (@unnumberedsubsec . @unnumberedsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
772 (@subheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
773 (@appendixsubsec . @appendixsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
774
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
775 (@subsubsection . @subsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
776 (@unnumberedsubsubsec . @unnumberedsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
777 (@subsubheading . @subheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
778 (@appendixsubsubsec . @appendixsubsec))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
779 "*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
780 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
781 Used by `texinfo-raise-lower-sections'.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
782 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
783 higher types.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
784
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
785 (defvar texinfo-lowersections-alist
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
786 '((@chapter . @section)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
787 (@unnumbered . @unnumberedsec)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
788 (@centerchap . @unnumberedsec)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
789 (@majorheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
790 (@chapheading . @heading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
791 (@appendix . @appendixsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
792
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
793 (@section . @subsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
794 (@unnumberedsec . @unnumberedsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
795 (@heading . @subheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
796 (@appendixsec . @appendixsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
797
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
798 (@subsection . @subsubsection)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
799 (@unnumberedsubsec . @unnumberedsubsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
800 (@subheading . @subsubheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
801 (@appendixsubsec . @appendixsubsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
802
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
803 (@subsubsection . @subsubsection) ; Cannot go lower.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
804 (@unnumberedsubsubsec . @unnumberedsubsubsec)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
805 (@subsubheading . @subsubheading)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
806 (@appendixsubsubsec . @appendixsubsubsec))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
807 "*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
808 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
809 Used by `texinfo-raise-lower-sections'.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
810 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
811 lower types.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
812
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
813
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
814 ;;; 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
815 ;;; uniformly.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
816
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
817 (defun texinfo-format-scan ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
818 (texinfo-format-convert (point-min) (point-max))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
819 ;; Scan for @-commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
820 (goto-char (point-min))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
821 (while (search-forward "@" nil t)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
822 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
823 ;; These are the single-character accent commands: @^ @` @' @" @= @~
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
824 ;; 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
825 ;; Other single-character commands:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
826 ;; @* forces a line break,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
827 ;; @- 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
828 ;; @<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
829 ;; unless followed by a newline.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
830 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
831 ;; Old version 2.34 expression: (looking-at "[@{}^'` *\"?!]")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
832 (if (looking-at "[@{}^'`\"=~ \t\n*?!-]")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
833 ;; @*, causes a line break.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
834 (cond
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
835 ;; @*, a line break
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
836 ((= (following-char) ?*)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
837 ;; remove command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
838 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
839 ;; 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
840 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
841 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
842 (insert ?\n)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
843 ;; @-, deleted
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
844 ((= (following-char) ?-)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
845 (delete-region (1- (point)) (1+ (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
846 ;; @<space>, @<tab>, @<newline>: produce a single space,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
847 ;; unless followed by a newline.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
848 ((= (following-char) ? )
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
849 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
850 ;; 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
851 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
852 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
853 (insert ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
854 ((= (following-char) ?\t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
855 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
856 ;; 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
857 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
858 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
859 (insert ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
860 ;; following char is a carriage return
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
861 ((= (following-char) ?
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
862 )
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
863 ;; remove command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
864 (delete-region (1- (point)) (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
865 ;; 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
866 ;; else line is already broken.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
867 (if (not (= (following-char) ?\n))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
868 (insert ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
869 ;; 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
870 (t
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
871 (delete-char -1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
872 (forward-char 1)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
873 ;; @ 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
874 (setq texinfo-command-start (1- (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
875 (if (= (char-syntax (following-char)) ?w)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
876 (forward-word 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
877 (forward-char 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
878 (setq texinfo-command-end (point))
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
879 ;; Detect the case of two @-commands in a row;
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
880 ;; process just the first one.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
881 (goto-char (1+ texinfo-command-start))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
882 (skip-chars-forward "^@" texinfo-command-end)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
883 (setq texinfo-command-end (point))
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
884 ;; Handle let aliasing
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
885 (setq texinfo-command-name
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
886 (let (trial
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
887 (cmdname
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
888 (buffer-substring
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
889 (1+ texinfo-command-start) texinfo-command-end)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
890 (while (setq trial (assoc cmdname texinfo-alias-list))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
891 (setq cmdname (cdr trial)))
9759
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
892 (intern cmdname)))
ebe611f49450 (texinfo-alias-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9754
diff changeset
893 ;; 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
894 (let ((enclosure-type
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
895 (assoc
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
896 (symbol-name texinfo-command-name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
897 texinfo-enclosure-list)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
898 (if enclosure-type
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
899 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
900 (insert
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
901 (car (car (cdr enclosure-type)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
902 (texinfo-parse-arg-discard)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
903 (car (cdr (car (cdr enclosure-type)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
904 (goto-char texinfo-command-start))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
905 (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
906 (if cmd (funcall cmd) (texinfo-unsupported)))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
907
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
908 (cond (texinfo-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
909 (goto-char (nth 2 (car texinfo-stack)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
910 (error "Unterminated @%s" (car (car texinfo-stack))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
911
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
912 (put 'begin 'texinfo-format 'texinfo-format-begin)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
913 (defun texinfo-format-begin ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
914 (texinfo-format-begin-end 'texinfo-format))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
915
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
916 (put 'end 'texinfo-format 'texinfo-format-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
917 (defun texinfo-format-end ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
918 (texinfo-format-begin-end 'texinfo-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
919
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
920 (defun texinfo-format-begin-end (prop)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
921 (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
922 (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
923 (if cmd (funcall cmd)
6de32c7b6045 (texinfo-format-begin-end): Bind cmd locally.
Richard M. Stallman <rms@gnu.org>
parents: 4769
diff changeset
924 (texinfo-unsupported))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
925
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
926 ;;; Parsing functions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
927
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
928 (defun texinfo-parse-line-arg ()
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
929 "Return argument of @-command as string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
930 Argument is separated from command either by a space or by a brace.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
931 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
932 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
933 Leave point after argument."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
934 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
935 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
936 (cond ((looking-at " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
937 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
938 (setq start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
939 (end-of-line)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
940 (skip-chars-backward " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
941 (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
942 (setq texinfo-command-end (1+ (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
943 ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
944 (setq start (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
945 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
946 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
947 (forward-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
948 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
949 (error "Invalid texinfo command arg format")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
950 (prog1 (buffer-substring start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
951 (if (eolp) (forward-char 1)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
952
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
953 (defun texinfo-parse-expanded-arg ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
954 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
955 (let ((start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
956 marker)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
957 (cond ((looking-at " ")
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
958 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
959 (setq start (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
960 (end-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
961 (setq texinfo-command-end (1+ (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
962 ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
963 (setq start (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
964 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
965 (setq texinfo-command-end (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
966 (forward-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
967 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
968 (error "Invalid texinfo command arg format")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
969 (setq marker (move-marker (make-marker) texinfo-command-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
970 (texinfo-format-expand-region start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
971 (setq texinfo-command-end (marker-position marker))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
972 (move-marker marker nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
973 (prog1 (buffer-substring start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
974 (if (eolp) (forward-char 1)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
975
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
976 (defun texinfo-format-expand-region (start end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
977 (save-restriction
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
978 (narrow-to-region start end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
979 (let (texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
980 texinfo-command-end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
981 texinfo-command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
982 texinfo-stack)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
983 (texinfo-format-scan))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
984 (goto-char (point-max))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
985
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
986 (defun texinfo-parse-arg-discard ()
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
987 "Delete command and argument; return argument of command."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
988 (prog1 (texinfo-parse-line-arg)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
989 (texinfo-discard-command)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
990
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
991 (defun texinfo-discard-command ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
992 (delete-region texinfo-command-start texinfo-command-end))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
993
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
994 (defun texinfo-optional-braces-discard ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
995 "Discard braces following command, if any."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
996 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
997 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
998 (cond ((looking-at "[ \t]*\n")) ; do nothing
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
999 ((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
1000 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1001 (setq texinfo-command-end (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1002 (t
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1003 (error
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1004 "Invalid `texinfo-optional-braces-discard' format \(need braces?\)")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1005 (delete-region texinfo-command-start texinfo-command-end)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1006
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1007 (defun texinfo-format-parse-line-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1008 (let ((start (1- (point)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1009 next beg end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1010 args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1011 (skip-chars-forward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1012 (while (not (eolp))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1013 (setq beg (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1014 (re-search-forward "[\n,]")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1015 (setq next (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1016 (if (bolp) (setq next (1- next)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1017 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1018 (skip-chars-backward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1019 (setq end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1020 (setq args (cons (if (> end beg) (buffer-substring beg end))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1021 args))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1022 (goto-char next)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1023 (skip-chars-forward " "))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1024 (if (eolp) (forward-char 1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1025 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1026 (nreverse args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1027
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1028 (defun texinfo-format-parse-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1029 (let ((start (1- (point)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1030 next beg end
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1031 args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1032 (search-forward "{")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1033 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1034 (texinfo-format-expand-region
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1035 (point)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1036 (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
1037 ;; 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
1038 ;; `@xref{bullet, , @code{@@bullet}@{@}}.' because the
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1039 ;; re-search-forward finds the first right brace after the second
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1040 ;; comma.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1041 (while (/= (preceding-char) ?\})
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1042 (skip-chars-forward " \t\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1043 (setq beg (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1044 (re-search-forward "[},]")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1045 (setq next (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1046 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1047 (skip-chars-backward " \t\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1048 (setq end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1049 (cond ((< beg end)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1050 (goto-char beg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1051 (while (search-forward "\n" end t)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1052 (replace-match " "))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1053 (setq args (cons (if (> end beg) (buffer-substring beg end))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1054 args))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1055 (goto-char next))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1056 (if (eolp) (forward-char 1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1057 (setq texinfo-command-end (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1058 (nreverse args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1059
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1060 (defun texinfo-format-parse-defun-args ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1061 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1062 (let ((start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1063 (end-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1064 (setq texinfo-command-end (1+ (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1065 (let ((marker (move-marker (make-marker) texinfo-command-end)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1066 (texinfo-format-expand-region start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1067 (setq texinfo-command-end (marker-position marker))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1068 (move-marker marker nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1069 (goto-char start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1070 (let ((args '())
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1071 beg end)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1072 (skip-chars-forward " ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1073 (while (not (eolp))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1074 (cond ((looking-at "{")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1075 (setq beg (1+ (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1076 (forward-list 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1077 (setq end (1- (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1078 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1079 (setq beg (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1080 (re-search-forward "[\n ]")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1081 (forward-char -1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1082 (setq end (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1083 (setq args (cons (buffer-substring beg end) args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1084 (skip-chars-forward " "))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1085 (forward-char 1)
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-discard-line ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1089 (goto-char texinfo-command-end)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1090 (skip-chars-forward " \t")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1091 (or (eolp)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1092 (error "Extraneous text at end of command line."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1093 (goto-char texinfo-command-start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1094 (or (bolp)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1095 (error "Extraneous text at beginning of command line."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1096 (delete-region (point) (progn (forward-line 1) (point))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1097
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1098 (defun texinfo-discard-line-with-args ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1099 (goto-char texinfo-command-start)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1100 (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
1101
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1102
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1103 ;;; @setfilename
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1104
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1105 ;; 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
1106 ;; definition; `texinfo-format-region' handles @setfilename, if any,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1107 ;; specially.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1108 (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
1109 (defun texinfo-format-setfilename ()
18818
3c0dec827888 (texinfo-format-buffer-1): Insert, here,
Richard M. Stallman <rms@gnu.org>
parents: 17939
diff changeset
1110 (texinfo-parse-arg-discard))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1111
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1112 ;;; @node, @menu, @detailmenu
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1113
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1114 (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
1115 (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
1116 (defun texinfo-format-node ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1117 (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
1118 (name (nth 0 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1119 (next (nth 1 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1120 (prev (nth 2 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1121 (up (nth 3 args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1122 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1123 (setq texinfo-last-node name)
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
1124 (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
1125 (if (assoc tem texinfo-node-names)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1126 (error "Duplicate node name: %s" name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1127 (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
1128 (setq texinfo-footnote-number 0)
9896
a70b99926339 (texinfo-format-node): Insert the node delimiter
Richard M. Stallman <rms@gnu.org>
parents: 9759
diff changeset
1129 ;; 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
1130 (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
1131 ", Node: " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1132 (if next
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1133 (insert ", Next: " next))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1134 (if prev
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1135 (insert ", Prev: " prev))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1136 (if up
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1137 (insert ", Up: " up))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1138 (insert ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1139 (setq texinfo-last-node-pos (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1140
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1141 (put 'anchor 'texinfo-format 'texinfo-anchor)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1142 (defun texinfo-anchor ()
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1143 (let (anchor-string
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1144 (here (- (point) 7)) ; save location of beginning of `@anchor'
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1145 (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
1146 (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
1147 (delete-char 1))
22661
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1148 (forward-paragraph)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1149 (let ((end (point)))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1150 (if (save-excursion
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1151 (backward-word 1)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1152 (search-forward "@refill" end t))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1153 (setq anchor-string "@anchor-yes-refill")
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1154 (setq anchor-string "@anchor-no-refill")))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1155 (goto-char here)
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1156 (insert anchor-string "{" arg "}")))
90460d1e2c3f (texinfo-anchor): New function.
Richard M. Stallman <rms@gnu.org>
parents: 19630
diff changeset
1157
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1158 (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
1159 (defun texinfo-format-menu ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1160 (texinfo-discard-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1161 (insert "* Menu:\n\n"))
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 (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
1164
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1165 ;; The @detailmenu should be removed eventually.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1166
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1167 ;; According to Karl Berry, 31 August 1996:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1168 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1169 ;; 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
1170 ;; 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
1171 ;; 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
1172 ;; expend more effort...
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1173 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1174 ;; 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
1175 ;; blame on makeinfo where it belongs :-().
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1176
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1177 (put 'detailmenu 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1178 (put 'detailmenu 'texinfo-end 'texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1179
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1180 ;; (Also see `texnfo-upd.el')
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1181
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1182
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1183 ;;; Cross references
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1184
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1185 ;; @xref {NODE, FNAME, NAME, FILE, DOCUMENT}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1186 ;; -> *Note FNAME: (FILE)NODE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1187 ;; If FILE is missing,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1188 ;; *Note FNAME: NODE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1189 ;; 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
1190 ;; *Note NAME: Node
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1191 ;; If both NAME and FNAME are missing
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1192 ;; *Note NODE::
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1193 ;; texinfo ignores the DOCUMENT argument.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1194 ;; -> 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
1195 ;; 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
1196 ;; If fifth argument DOCUMENT is specified, produces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1197 ;; 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
1198 ;; of DOCUMENT
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1199
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1200 ;; @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
1201 ;; the hardcopy and is the same as @xref in Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1202 (put 'ref 'texinfo-format 'texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1203
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1204 (put 'xref 'texinfo-format 'texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1205 (defun texinfo-format-xref ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1206 (let ((args (texinfo-format-parse-args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1207 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1208 (insert "*Note ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1209 (let ((fname (or (nth 1 args) (nth 2 args))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1210 (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
1211 (insert (car args) "::")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1212 (insert (or fname (car args)) ": ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1213 (if (nth 3 args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1214 (insert "(" (nth 3 args) ")"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1215 (insert (car args))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1216
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1217 (put 'pxref 'texinfo-format 'texinfo-format-pxref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1218 (defun texinfo-format-pxref ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1219 (texinfo-format-xref)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1220 (or (save-excursion
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1221 (forward-char -2)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1222 (looking-at "::"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1223 (insert ".")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1224
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1225 ;; @inforef{NODE, FNAME, FILE}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1226 ;; Like @xref{NODE, FNAME,,FILE} in texinfo.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1227 ;; In Tex, generates "See Info file FILE, node NODE"
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1228 (put 'inforef 'texinfo-format 'texinfo-format-inforef)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1229 (defun texinfo-format-inforef ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1230 (let ((args (texinfo-format-parse-args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1231 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1232 (if (nth 1 args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1233 (insert "*Note " (nth 1 args) ": (" (nth 2 args) ")" (car args))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1234 (insert "*Note " "(" (nth 2 args) ")" (car args) "::"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1235
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1236
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1237 ;;; URL Reference: @uref
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1238
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1239 ;; @uref produces a reference to a uniform resource locator (URL).
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1240 ;; It takes one mandatory argument, the URL, and one optional argument,
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1241 ;; the text to display (the default is the URL itself).
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1242
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1243 (put 'uref 'texinfo-format 'texinfo-format-uref)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1244 (defun texinfo-format-uref ()
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1245 "Format URL and optional URL-TITLE.
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1246 Insert ` ... ' around URL if no URL-TITLE argument;
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1247 otherwise, insert URL-TITLE followed by URL in parentheses."
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1248 (let ((args (texinfo-format-parse-args)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1249 (texinfo-discard-command)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1250 ;; if url-title
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1251 (if (nth 1 args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1252 (insert (nth 1 args) " (" (nth 0 args) ")")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1253 (insert "`" (nth 0 args) "'"))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1254 (goto-char texinfo-command-start)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1255
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
1256
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1257 ;;; Section headings
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1258
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1259 (put 'majorheading 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1260 (put 'chapheading 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1261 (put 'ichapter 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1262 (put 'chapter 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1263 (put 'iappendix 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1264 (put 'appendix 'texinfo-format 'texinfo-format-chapter)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1265 (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
1266 (put 'top 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1267 (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
1268 (put 'centerchap 'texinfo-format 'texinfo-format-chapter)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1269 (defun texinfo-format-chapter ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1270 (texinfo-format-chapter-1 ?*))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1271
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1272 (put 'heading 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1273 (put 'isection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1274 (put 'section 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1275 (put 'iappendixsection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1276 (put 'appendixsection 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1277 (put 'iappendixsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1278 (put 'appendixsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1279 (put 'iunnumberedsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1280 (put 'unnumberedsec 'texinfo-format 'texinfo-format-section)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1281 (defun texinfo-format-section ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1282 (texinfo-format-chapter-1 ?=))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1283
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1284 (put 'subheading 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1285 (put 'isubsection 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1286 (put 'subsection 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1287 (put 'iappendixsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1288 (put 'appendixsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1289 (put 'iunnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1290 (put 'unnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1291 (defun texinfo-format-subsection ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1292 (texinfo-format-chapter-1 ?-))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1293
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1294 (put 'subsubheading 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1295 (put 'isubsubsection 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1296 (put 'subsubsection 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1297 (put 'iappendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1298 (put 'appendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1299 (put 'iunnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1300 (put 'unnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1301 (defun texinfo-format-subsubsection ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1302 (texinfo-format-chapter-1 ?.))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1303
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1304 (defun texinfo-format-chapter-1 (belowchar)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1305 (let ((arg (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1306 (message "Formatting: %s ... " arg) ; So we can see where we are.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1307 (insert ?\n arg ?\n "@SectionPAD " belowchar ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1308 (forward-line -2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1309
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1310 (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1311 (defun texinfo-format-sectionpad ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1312 (let ((str (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1313 (forward-char -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1314 (let ((column (current-column)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1315 (forward-char 1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1316 (while (> column 0)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1317 (insert str)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1318 (setq column (1- column))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1319 (insert ?\n)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1320
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1321
9754
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1322 ;;; 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
1323
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1324 (put '\. 'texinfo-format 'texinfo-format-\.)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1325 (defun texinfo-format-\. ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1326 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1327 (insert "."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1328
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1329 (put '\: 'texinfo-format 'texinfo-format-\:)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1330 (defun texinfo-format-\: ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1331 (texinfo-discard-command))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1332
9754
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1333 (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
1334 (defun texinfo-format-soft-hyphen ()
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1335 (texinfo-discard-command))
7e9b8823755b (texinfo-format-scan): Make @- vanish; don't insert -.
Richard M. Stallman <rms@gnu.org>
parents: 9549
diff changeset
1336
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1337
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1338 ;;; @center, @sp, and @br
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1339
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1340 (put 'center 'texinfo-format 'texinfo-format-center)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1341 (defun texinfo-format-center ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1342 (let ((arg (texinfo-parse-expanded-arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1343 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1344 (insert arg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1345 (insert ?\n)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1346 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1347 (goto-char (1- (point)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1348 (let ((indent-tabs-mode nil))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1349 (center-line)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1350
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1351 (put 'sp 'texinfo-format 'texinfo-format-sp)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1352 (defun texinfo-format-sp ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1353 (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
1354 (num (read arg)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1355 (insert-char ?\n num)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1356
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1357 (put 'br 'texinfo-format 'texinfo-format-paragraph-break)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1358 (defun texinfo-format-paragraph-break ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1359 "Force a paragraph break.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1360 If used within a line, follow `@br' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1361 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1362 ;; insert one return if at end of line;
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1363 ;; else insert two returns, to generate a blank line.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1364 (if (= (following-char) ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1365 (insert ?\n)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1366 (insert-char ?\n 2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1367
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1368
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1369 ;;; @footnote and @footnotestyle
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1370
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1371 ;; 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
1372 ;; 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
1373 ;; 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
1374 ;; template for a footnote is:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1375 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1376 ;; @footnote{TEXT}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1377 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1378 ;; Info has two footnote styles:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1379 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1380 ;; * 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
1381 ;; 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
1382 ;; 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
1383 ;; the word `Footnotes' within it.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1384 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1385 ;; * 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
1386 ;; 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
1387
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1388 ;; 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
1389 ;; @footnotestyle separate
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1390 ;; or
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1391 ;; @footnotestyle end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1392 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1393 ;; The default is separate
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1394
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1395 (defvar texinfo-footnote-style "separate"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1396 "Footnote style, either separate or end.")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1397
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1398 (put 'footnotestyle 'texinfo-format 'texinfo-footnotestyle)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1399 (defun texinfo-footnotestyle ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1400 "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
1401 Argument is either end or separate."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1402 (setq texinfo-footnote-style (texinfo-parse-arg-discard)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1403
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1404 (defvar texinfo-footnote-number)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1405
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1406 (put 'footnote 'texinfo-format 'texinfo-format-footnote)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1407 (defun texinfo-format-footnote ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1408 "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
1409 The texinfo-footnote-style variable controls which style is used."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1410 (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
1411 (cond ((string= texinfo-footnote-style "end")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1412 (texinfo-format-end-node))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1413 ((string= texinfo-footnote-style "separate")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1414 (texinfo-format-separate-node))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1415
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1416 (defun texinfo-format-separate-node ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1417 "Format footnote in Separate node style, with notes in own node.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1418 The node is constructed automatically."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1419 (let* (start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1420 (arg (texinfo-parse-line-arg))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1421 (node-name-beginning
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1422 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1423 (re-search-backward
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1424 "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ \t]+Node:")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1425 (match-end 0)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1426 (node-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1427 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1428 (buffer-substring
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1429 (progn (goto-char node-name-beginning) ; skip over node command
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1430 (skip-chars-forward " \t") ; and over spaces
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1431 (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1432 (if (search-forward
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1433 ","
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1434 (save-excursion (end-of-line) (point)) t) ; bound search
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1435 (1- (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1436 (end-of-line) (point))))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1437 (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
1438 (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
1439 (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1440 (insert (format " (%d) (*Note %s-Footnotes::)"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1441 texinfo-footnote-number node-name))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1442 (fill-paragraph nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1443 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1444 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1445 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1446
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1447 ;; two cases: for the first footnote, we must insert a node header;
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1448 ;; for the second and subsequent footnotes, we need only insert
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1449 ;; the text of the footnote.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1450
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1451 (if (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1452 (re-search-backward
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1453 (concat node-name "-Footnotes, Up: ")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1454 node-name-beginning
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1455 t))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1456 (progn ; already at least one footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1457 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1458 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1459 (fill-region start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1460 ;; else not yet a footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1461 (insert "\n\^_\nFile: " texinfo-format-filename
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1462 " Node: " node-name "-Footnotes, Up: " node-name "\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1463 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1464 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1465 (fill-region start (point))))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1466
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1467 (defun texinfo-format-end-node ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1468 "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
1469 (let (start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1470 (arg (texinfo-parse-line-arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1471 (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
1472 (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
1473 (point))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1474 (insert (format " (%d) " texinfo-footnote-number))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1475 (fill-paragraph nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1476 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1477 (if (search-forward "\n--------- Footnotes ---------\n" nil t)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1478 (progn ; already have footnote, put new one before end of node
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1479 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1480 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1481 (setq start (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1482 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1483 (fill-region start (point)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1484 ;; else no prior footnote
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1485 (if (re-search-forward "^@node" nil 'move)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1486 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1487 (insert "\n--------- Footnotes ---------\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1488 (setq start (point))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1489 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1490
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1491
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1492 ;;; @itemize, @enumerate, and similar commands
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1493
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1494 ;; @itemize pushes (itemize "COMMANDS" STARTPOS) on texinfo-stack.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1495 ;; @enumerate pushes (enumerate 0 STARTPOS).
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1496 ;; @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
1497 ;; For itemize, this puts in and rescans the COMMANDS.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1498 ;; For enumerate, this increments the number and puts it in.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1499 ;; In either case, it puts a Backspace at the front of the line
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1500 ;; which marks it not to be indented later.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1501 ;; All other lines get indented by 5 when the @end is reached.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1502
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1503 (defvar texinfo-stack-depth 0
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1504 "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
1505 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
1506
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1507 (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
1508 (setq texinfo-stack-depth (1+ texinfo-stack-depth))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1509 (setq texinfo-stack
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1510 (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
1511 texinfo-stack)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1512
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1513 (defun texinfo-pop-stack (check)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1514 (setq texinfo-stack-depth (1- texinfo-stack-depth))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1515 (if (null texinfo-stack)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1516 (error "Unmatched @end %s" check))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1517 (if (not (eq (car (car texinfo-stack)) check))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1518 (error "@end %s matches @%s"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1519 check (car (car texinfo-stack))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1520 (prog1 (cdr (car texinfo-stack))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1521 (setq texinfo-stack (cdr texinfo-stack))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1522
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1523 (put 'itemize 'texinfo-format 'texinfo-itemize)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1524 (defun texinfo-itemize ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1525 (texinfo-push-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1526 'itemize
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1527 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1528 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1529 "@bullet"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1530 (texinfo-parse-line-arg))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1531 (texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1532 (setq fill-column (- fill-column 5)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1533
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1534 (put 'itemize 'texinfo-end 'texinfo-end-itemize)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1535 (defun texinfo-end-itemize ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1536 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1537 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1538 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1539 (texinfo-pop-stack 'itemize)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1540 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1541
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1542 (put 'enumerate 'texinfo-format 'texinfo-enumerate)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1543 (defun texinfo-enumerate ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1544 (texinfo-push-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1545 'enumerate
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1546 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1547 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1548 1
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1549 (read (current-buffer)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1550 (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
1551 (> 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
1552 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1553 "@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
1554 (texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1555 (setq fill-column (- fill-column 5)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1556
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1557 (put 'enumerate 'texinfo-end 'texinfo-end-enumerate)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1558 (defun texinfo-end-enumerate ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1559 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1560 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1561 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1562 (texinfo-pop-stack 'enumerate)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1563 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1564
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1565 ;; @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
1566 (put 'alphaenumerate 'texinfo-format 'texinfo-alphaenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1567 (defun texinfo-alphaenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1568 (texinfo-push-stack 'alphaenumerate (1- ?a))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1569 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1570 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1571
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1572 (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
1573 (defun texinfo-end-alphaenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1574 (setq fill-column (+ fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1575 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1576 (let ((stacktop
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1577 (texinfo-pop-stack 'alphaenumerate)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1578 (texinfo-do-itemize (nth 1 stacktop))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1579
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1580 ;; @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
1581 (put 'capsenumerate 'texinfo-format 'texinfo-capsenumerate)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1582 (defun texinfo-capsenumerate ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1583 (texinfo-push-stack 'capsenumerate (1- ?A))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1584 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1585 (texinfo-discard-line))
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 (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
1588 (defun texinfo-end-capsenumerate ()
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1589 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1590 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1591 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1592 (texinfo-pop-stack 'capsenumerate)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1593 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1594
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1595 ;; At the @end, indent all the lines within the construct
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1596 ;; except those marked with backspace. FROM says where
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1597 ;; construct started.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1598 (defun texinfo-do-itemize (from)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1599 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1600 (while (progn (forward-line -1)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1601 (>= (point) from))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1602 (if (= (following-char) ?\b)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1603 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1604 (delete-char 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1605 (end-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1606 (delete-char 6))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1607 (if (not (looking-at "[ \t]*$"))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1608 (save-excursion (insert " ")))))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1609
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1610 (put 'item 'texinfo-format 'texinfo-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1611 (put 'itemx 'texinfo-format 'texinfo-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1612 (defun texinfo-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1613 (funcall (get (car (car texinfo-stack)) 'texinfo-item)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1614
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1615 (put 'itemize 'texinfo-item 'texinfo-itemize-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1616 (defun texinfo-itemize-item ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1617 ;; (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
1618 (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
1619 (if (looking-at "[ \t]*[^ \t\n]+")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1620 ;; 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
1621 (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
1622 ;; Else text on next line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1623 (insert "\b " (nth 1 (car texinfo-stack)) " "))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1624 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1625
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1626 (put 'enumerate 'texinfo-item 'texinfo-enumerate-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1627 (defun texinfo-enumerate-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1628 (texinfo-discard-line)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1629 (let (enumerating-symbol)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1630 (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
1631 (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
1632 (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
1633 (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
1634 ((symbolp (car (cdr (car texinfo-stack))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1635 (setq enumerating-symbol
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1636 (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
1637 (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
1638 (equal ?\{ (string-to-char enumerating-symbol)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1639 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1640 "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
1641 (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
1642 (setcar (cdr (car texinfo-stack))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1643 (make-symbol
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1644 (char-to-string
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1645 (1+
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1646 (string-to-char enumerating-symbol))))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1647 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1648 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1649 "@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
1650 (forward-line -1)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1651
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1652 (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
1653 (defun texinfo-alphaenumerate-item ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1654 (texinfo-discard-line)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1655 (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
1656 (if (> next ?z)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1657 (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1658 (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
1659 (insert "\b " next ". \n"))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1660 (forward-line -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1661
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1662 (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
1663 (defun texinfo-capsenumerate-item ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1664 (texinfo-discard-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1665 (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
1666 (if (> next ?Z)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1667 (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1668 (setcar (cdr (car texinfo-stack)) next)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1669 (insert "\b " next ". \n"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1670 (forward-line -1))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1671
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1672
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1673 ;;; @table
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1674
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1675 ;; 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
1676
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1677 (put 'table 'texinfo-format 'texinfo-table)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1678 (defun texinfo-table ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1679 (texinfo-push-stack
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1680 'table
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1681 (progn (skip-chars-forward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1682 (if (eolp)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1683 "@asis"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1684 (texinfo-parse-line-arg))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1685 (texinfo-discard-line-with-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1686 (setq fill-column (- fill-column 5)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1687
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1688 (put 'table 'texinfo-item 'texinfo-table-item)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1689 (defun texinfo-table-item ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1690 (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
1691 (itemfont (car (cdr (car texinfo-stack)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1692 (insert ?\b itemfont ?\{ arg "}\n \n"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1693 (forward-line -2))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1694
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1695 (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
1696 (defun texinfo-end-table ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1697 (setq fill-column (+ fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1698 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1699 (let ((stacktop
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1700 (texinfo-pop-stack 'table)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1701 (texinfo-do-itemize (nth 1 stacktop))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1702
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1703 ;; @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
1704 ;; 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
1705 ;; 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
1706 (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
1707 (put 'description 'texinfo-format 'texinfo-description)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1708 (defun texinfo-description ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1709 (texinfo-push-stack 'table "@asis")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1710 (setq fill-column (- fill-column 5))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1711 (texinfo-discard-line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1712
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1713
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1714 ;;; @ftable, @vtable
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1715
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1716 ;; 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
1717 ;; 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
1718 ;; 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
1719
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1720 ;; Handle the @ftable and @vtable commands:
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1721
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1722 (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
1723 (put 'vtable 'texinfo-format 'texinfo-vtable)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1724
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1725 (defun texinfo-ftable () (texinfo-indextable 'ftable))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1726 (defun texinfo-vtable () (texinfo-indextable 'vtable))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1727
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1728 (defun texinfo-indextable (table-type)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1729 (texinfo-push-stack table-type (texinfo-parse-arg-discard))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1730 (setq fill-column (- fill-column 5)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1731
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1732 ;; 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
1733
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1734 (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
1735 (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
1736
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1737 (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
1738 (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
1739
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1740 (defun texinfo-indextable-item (index-type)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1741 (let ((item (texinfo-parse-arg-discard))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1742 (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
1743 (indexvar index-type))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1744 (insert ?\b itemfont ?\{ item "}\n \n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1745 (set indexvar
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1746 (cons
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1747 (list item texinfo-last-node)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1748 (symbol-value indexvar)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1749 (forward-line -2)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1750
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1751 ;; Handle @end ftable, @end vtable
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1752
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1753 (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
1754 (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
1755
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1756 (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
1757 (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
1758
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1759 (defun texinfo-end-indextable (table-type)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1760 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1761 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1762 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1763 (texinfo-pop-stack table-type)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1764 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1765
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
1766
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1767 ;;; @multitable ... @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1768
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1769 ;; 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
1770 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1771 ;; A multi-column table has this template:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1772 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1773 ;; @multitable {A1} {A2} {A3}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1774 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1775 ;; @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1776 ;; @item C1 @tab C2 @tab C3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1777 ;; @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1778 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1779 ;; 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
1780 ;; respective column.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1781 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1782 ;; Or else:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1783 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1784 ;; @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1785 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1786 ;; @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1787 ;; @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1788 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1789 ;; 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
1790 ;; 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
1791 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1792 ;; 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
1793 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1794 ;; Using the Emacs Lisp formatter, texinfmt.el,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1795 ;; 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
1796 ;; `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
1797 ;; 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
1798 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1799 ;; 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
1800 ;; 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
1801 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1802 ;; @multitableparskip,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1803 ;; @multitableparindent,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1804 ;; @multitablecolmargin,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1805 ;; @multitablelinespace.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1806
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1807 ;; How @multitable works.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1808 ;; =====================
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1809 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1810 ;; `texinfo-multitable' reads the @multitable line and determines from it
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1811 ;; how wide each column should be.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1812 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1813 ;; 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
1814 ;; 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
1815 ;; 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
1816 ;; 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
1817 ;; the start of the table onto the stack.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1818 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1819 ;; `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
1820 ;; 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
1821 ;; pops the stack.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1822 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1823 ;; `texinfo-multitable-widths' is called by `texinfo-multitable'.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1824 ;; 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
1825 ;; 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
1826 ;; 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
1827 ;; 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
1828 ;; environment).
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1829 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1830 ;; `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
1831 ;; 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
1832 ;; 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
1833 ;; 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
1834 ;; 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
1835 ;; with blanks.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1836 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1837 ;; `texinfo-multitable-extract-row' is called by `texinfo-multitable-item'.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1838 ;; 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
1839 ;; 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
1840 ;; 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
1841 ;; Cells within a row are separated by @tab.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1842 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1843 ;; 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
1844 ;; Texinfo commands.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1845
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1846 (defvar texinfo-extra-inter-column-width 0
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1847 "*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
1848
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1849 (defvar texinfo-multitable-buffer-name "*multitable-temporary-buffer*")
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1850 (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
1851
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1852 ;; 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
1853 (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
1854 (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
1855 (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
1856 (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
1857
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1858 (put 'multitable 'texinfo-format 'texinfo-multitable)
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1859
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1860 (defun texinfo-multitable ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1861 "Produce multi-column tables.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1862
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1863 A multi-column table has this template:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1864
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1865 @multitable {A1} {A2} {A3}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1866 @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1867 @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1868 @item C1 @tab C2 @tab C3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1869 @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1870
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1871 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
1872 respective column.
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 Or else:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1875
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1876 @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1877 @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1878 @item B1 @tab B2 @tab B3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1879 @end multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1880
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1881 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
1882 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
1883
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1884 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
1885
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1886 Using the Emacs Lisp formatter, texinfmt.el,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1887 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
1888 `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
1889 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
1890
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1891 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
1892 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
1893
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1894 @multitableparskip,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1895 @multitableparindent,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1896 @multitablecolmargin,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1897 @multitablelinespace."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1898
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1899 ;; 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
1900 ;; A stack element consists of:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1901 ;; - type-of-command, i.e., multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1902 ;; - the information about column widths, and
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1903 ;; - the position of texinfo-command-start.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1904 ;; 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
1905 ;; The command line is then deleted.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1906 (texinfo-push-stack
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1907 'multitable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1908 ;; push width information on stack
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1909 (texinfo-multitable-widths))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1910 (texinfo-discard-line-with-args))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1911
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1912 (put 'multitable 'texinfo-end 'texinfo-end-multitable)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1913 (defun texinfo-end-multitable ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1914 "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
1915 (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1916 (texinfo-pop-stack 'multitable))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1917
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1918 (defun texinfo-multitable-widths ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1919 "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
1920 (let (texinfo-multitable-width-list)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1921 ;; Fractions format:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1922 ;; @multitable @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1923 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1924 ;; Template format:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1925 ;; @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
1926 ;; Place point before first argument
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1927 (skip-chars-forward " \t")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1928 (cond
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1929 ;; Check for common misspelling
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1930 ((looking-at "@columnfraction ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1931 (error "In @multitable, @columnfractions misspelled"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1932 ;; Case 1: @columnfractions .25 .3 .45
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1933 ((looking-at "@columnfractions")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1934 (forward-word 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1935 (while (not (eolp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1936 (setq texinfo-multitable-width-list
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1937 (cons
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1938 (truncate
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1939 (1-
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1940 (* fill-column (read (get-buffer (current-buffer))))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1941 texinfo-multitable-width-list))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1942 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1943 ;; 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
1944 ((looking-at "{")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1945 (let ((start-of-templates (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1946 (while (not (eolp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1947 (skip-chars-forward " \t")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1948 (let* ((start-of-template (1+ (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1949 (end-of-template
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1950 ;; 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
1951 (progn (forward-sexp 1) (1- (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1952 (setq texinfo-multitable-width-list
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1953 (cons (- end-of-template start-of-template)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1954 texinfo-multitable-width-list))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1955 ;; 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
1956 ;; 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
1957 ;; 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
1958 (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
1959 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1960 (while (search-forward "
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1961 " nil t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1962 (delete-char -1))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1963 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1964 (widen)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1965 (forward-char 1)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1966 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1967 ;; Case 3: Trouble
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1968 (t
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1969 (error
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1970 "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
1971 ;; Check whether columns fit on page.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1972 (let ((desired-columns
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1973 (+
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1974 ;; between column spaces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1975 (length texinfo-multitable-width-list)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1976 ;; additional between column spaces, if any
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
1977 texinfo-extra-inter-column-width
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1978 ;; sum of spaces for each entry
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1979 (apply '+ texinfo-multitable-width-list))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1980 (if (> desired-columns fill-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1981 (error
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1982 (format
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1983 "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
1984 desired-columns fill-column))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1985 texinfo-multitable-width-list))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1986
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1987 ;; @item A1 @tab A2 @tab A3
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1988 (defun texinfo-multitable-extract-row ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1989 "Return multitable row, as a string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1990 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
1991 Cells within rows are separated by @tab."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1992 (skip-chars-forward " \t")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1993 (let* ((start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1994 (end (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1995 (re-search-forward "@item\\|@end")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1996 (match-beginning 0)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1997 (row (progn (goto-char end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1998 (skip-chars-backward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
1999 ;; remove whitespace at end of argument
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2000 (delete-region (point) end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2001 (buffer-substring start (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2002 (delete-region texinfo-command-start end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2003 row))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2004
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2005 (put 'multitable 'texinfo-item 'texinfo-multitable-item)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2006 (defun texinfo-multitable-item ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2007 "Format a row within a multicolumn table.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2008 Cells in row are separated by @tab.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2009 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
2010 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
2011 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
2012 (let ((original-buffer (current-buffer))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2013 (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
2014 (existing-fill-column fill-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2015 start
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2016 end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2017 (table-column 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2018 (table-entry-height 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2019 ;; 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
2020 ;; 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
2021 (unformated-row (texinfo-multitable-extract-row)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2022 ;; Use a temporary buffer
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2023 (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
2024 (delete-region (point-min) (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2025 (insert unformated-row)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2026 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2027 ;; 1. Check for correct number of @tab in line.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2028 (let ((tab-number 1)) ; one @tab between two columns
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2029 (while (search-forward "@tab" nil t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2030 (setq tab-number (1+ tab-number)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2031 (if (/= tab-number (length table-widths))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2032 (error "Wrong number of @tab's in a @multitable row.")))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2033 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2034 ;; 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
2035 ;; 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
2036 ;; Cell #1: format up to @tab
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2037 ;; Cell #2: format up to @tab
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2038 ;; Cell #3: format up to eob
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2039 (while (not (eobp))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2040 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2041 (setq end (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2042 (if (search-forward "@tab" nil 'move)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2043 ;; Delete the @tab command, including the @-sign
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2044 (delete-region
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2045 (point)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2046 (progn (forward-word -1) (1- (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2047 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2048 ;; 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
2049 (setq fill-column (+ 1
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2050 texinfo-extra-inter-column-width
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2051 (nth table-column table-widths)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2052 (narrow-to-region start end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2053 ;; Remove whitespace before and after entry.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2054 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2055 (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
2056 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2057 (skip-chars-backward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2058 (delete-region (point) (save-excursion (end-of-line) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2059 ;; Temorarily set texinfo-stack to nil so texinfo-format-scan
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2060 ;; does not see an unterminated @multitable.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2061 (let (texinfo-stack) ; nil
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2062 (texinfo-format-scan))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2063 (let (fill-prefix) ; no fill prefix
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2064 (fill-region (point-min) (point-max)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2065 (setq table-entry-height
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2066 (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
2067 ;; 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
2068 (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2069 (forward-line (1- table-entry-height))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2070 (let* ((beg (point)) ; beginning of line
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2071 ;; 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
2072 (needed-whitespace
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2073 (1+
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2074 (- fill-column
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2075 (-
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2076 (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
2077 beg)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2078 (insert (make-string
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2079 (if (> needed-whitespace 0) needed-whitespace 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2080 ? )))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2081 ;; now, put formatted cell into a rectangle
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2082 (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
2083 (int-to-string table-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2084 (extract-rectangle (point-min) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2085 (delete-region (point-min) (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2086 (goto-char (point-max))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2087 (setq table-column (1+ table-column))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2088 (widen))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2089 ;; 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
2090 (let ((total-number-of-columns table-column)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2091 (column-number 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2092 here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2093 (while (> table-column 0)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2094 (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
2095 (while (< (length this-rectangle) table-entry-height)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2096 (setq this-rectangle (append this-rectangle '("")))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2097 (setq table-column (1- table-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2098 ;; 5. Insert formatted rectangles in original buffer
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2099 (switch-to-buffer original-buffer)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2100 (open-line table-entry-height)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2101 (while (< column-number total-number-of-columns)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2102 (setq here (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2103 (insert-rectangle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2104 (eval (intern
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2105 (concat texinfo-multitable-rectangle-name
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2106 (int-to-string column-number)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2107 (goto-char here)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2108 (end-of-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2109 (setq column-number (1+ column-number))))
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2110 (kill-buffer texinfo-multitable-buffer-name)
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2111 (setq fill-column existing-fill-column)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2112
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2113
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2114 ;;; @ifinfo, @iftex, @tex, @ifhtml, @html
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2115
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2116 (put 'ifinfo 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2117 (put 'ifinfo 'texinfo-end 'texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2118
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2119 (put 'iftex 'texinfo-format 'texinfo-format-iftex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2120 (defun texinfo-format-iftex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2121 (delete-region texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2122 (progn (re-search-forward "@end iftex[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2123 (point))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2124
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2125 (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
2126 (defun texinfo-format-ifhtml ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2127 (delete-region texinfo-command-start
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2128 (progn (re-search-forward "@end ifhtml[ \t]*\n")
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2129 (point))))
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2130
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2131 (put 'tex 'texinfo-format 'texinfo-format-tex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2132 (defun texinfo-format-tex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2133 (delete-region texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2134 (progn (re-search-forward "@end tex[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2135 (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2136
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2137 (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
2138 (defun texinfo-format-html ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2139 (delete-region texinfo-command-start
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2140 (progn (re-search-forward "@end html[ \t]*\n")
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2141 (point))))
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2142
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2143
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2144 ;;; @titlepage
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2145
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2146 (put 'titlepage 'texinfo-format 'texinfo-format-titlepage)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2147 (defun texinfo-format-titlepage ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2148 (delete-region texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2149 (progn (re-search-forward "@end titlepage[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2150 (point))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2151
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2152 (put 'endtitlepage 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2153
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2154 ;; @titlespec an alternative titling command; ignored by Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2155
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2156 (put 'titlespec 'texinfo-format 'texinfo-format-titlespec)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2157 (defun texinfo-format-titlespec ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2158 (delete-region texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2159 (progn (re-search-forward "@end titlespec[ \t]*\n")
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2160 (point))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2161
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2162 (put 'endtitlespec 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2163
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2164
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2165 ;;; @today
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2166
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2167 (put 'today 'texinfo-format 'texinfo-format-today)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2168
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2169 ;; 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
2170 ;; The `@today{}' command requires a pair of braces, like `@dots{}'.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2171 (defun texinfo-format-today ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2172 (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
2173 (insert (format-time-string "%e %b %Y")))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2174
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2175
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2176 ;;; @timestamp{}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2177 ;; Produce `Day Month Year Hour:Min' style of output.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2178 ;; eg `1 Jan 1900 13:52'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2179
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2180 (put 'timestamp 'texinfo-format 'texinfo-format-timestamp)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2181
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2182 ;; 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
2183 (defun texinfo-format-timestamp ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2184 "Insert the current local time and date."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2185 (texinfo-parse-arg-discard)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2186 ;; 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
2187 (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
2188
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2189
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2190 ;;; @ignore
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2191
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2192 (put 'ignore 'texinfo-format 'texinfo-format-ignore)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2193 (defun texinfo-format-ignore ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2194 (delete-region texinfo-command-start
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2195 (progn (re-search-forward "@end ignore[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2196 (point))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2197
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2198 (put 'endignore 'texinfo-format 'texinfo-discard-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2199
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2200
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2201 ;;; Define the Info enclosure command: @definfoenclose
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2202
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2203 ;; 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
2204 ;; 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
2205 ;; `@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
2206 ;; and follow the text.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2207 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2208 ;; 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
2209 ;; 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
2210 ;; `texinfo.tex' in a manner appropriate for typesetting.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2211 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2212 ;; 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
2213 ;; 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
2214 ;; `@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
2215 ;; `@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
2216 ;; 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
2217 ;; 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
2218 ;; 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
2219 ;; 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
2220 ;; 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
2221 ;; 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
2222 ;; 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
2223 ;; string as a start delimiter string.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2224 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2225 ;; 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
2226 ;; 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
2227 ;; override the built-in definition.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2228 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2229 ;; 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
2230 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2231 ;; For example, you can write:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2232 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2233 ;; @ifinfo
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2234 ;; @definfoenclose phoo, //, \\
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2235 ;; @end ifinfo
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2236 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2237 ;; 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
2238 ;; 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
2239 ;; 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
2240 ;; `@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
2241 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2242 ;; Also, for TeX formatting, you could write
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2243 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2244 ;; @iftex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2245 ;; @global@let@phoo=@i
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2246 ;; @end iftex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2247 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2248 ;; 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
2249 ;; the argument to `@phoo' in italics.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2250 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2251 ;; 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
2252 ;; 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
2253 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2254 ;; Here is another example: write
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2255 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2256 ;; @definfoenclose headword, , :
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2257 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2258 ;; 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
2259 ;; 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
2260 ;; argument to `@headword'.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2261
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2262 (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
2263 (defun texinfo-define-info-enclosure ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2264 (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
2265 (command-name (nth 0 args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2266 (beginning-delimiter (or (nth 1 args) ""))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2267 (end-delimiter (or (nth 2 args) "")))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2268 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2269 (setq texinfo-enclosure-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2270 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2271 (list command-name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2272 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2273 beginning-delimiter
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2274 end-delimiter))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2275 texinfo-enclosure-list))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2276
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2277
24314
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2278 ;;; @alias
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2279
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2280 (put 'alias 'texinfo-format 'texinfo-alias)
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2281 (defun texinfo-alias ()
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2282 (let ((start (1- (point)))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2283 args)
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2284 (skip-chars-forward " ")
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2285 (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
2286 (if (not (looking-at "\\([^=]+\\)=\\(.*\\)"))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2287 (error "Invalid alias command")
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2288 (setq texinfo-alias-list
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2289 (cons
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2290 (cons
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2291 (buffer-substring (match-beginning 1) (match-end 1))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2292 (buffer-substring (match-beginning 2) (match-end 2)))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2293 texinfo-alias-list))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2294 (texinfo-discard-command))
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2295 )
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2296 )
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2297
96aef9174003 (texinfo-alias): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23658
diff changeset
2298
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2299 ;;; @var, @code and the like
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2300
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2301 (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
2302 ;; @sc a small caps font for TeX; formatted as `var' in Info
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2303 (put 'sc 'texinfo-format 'texinfo-format-var)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2304 ;; @acronym for abbreviations in all caps, such as `NASA'.
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2305 ;; 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
2306 (put 'acronym 'texinfo-format 'texinfo-format-var)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2307 (defun texinfo-format-var ()
24750
ea9b449cc742 (texinfo-format-var): Handle other nested constructs, using
Richard M. Stallman <rms@gnu.org>
parents: 24745
diff changeset
2308 (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
2309 (texinfo-discard-command)
ea9b449cc742 (texinfo-format-var): Handle other nested constructs, using
Richard M. Stallman <rms@gnu.org>
parents: 24745
diff changeset
2310 (insert (upcase arg))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2311
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2312 (put 'cite 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2313 (put 'code 'texinfo-format 'texinfo-format-code)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2314 ;; @command (for command names)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2315 (put 'command 'texinfo-format 'texinfo-format-code)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2316 ;; @env (for environment variables)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2317 (put 'env 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2318 (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
2319 (put 'samp 'texinfo-format 'texinfo-format-code)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2320 (put 'url 'texinfo-format 'texinfo-format-code)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2321 (defun texinfo-format-code ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2322 (insert "`" (texinfo-parse-arg-discard) "'")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2323 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2324
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2325 ;; @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
2326 ;; 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
2327 ;; 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
2328 (put 'option 'texinfo-format 'texinfo-format-option)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2329 (defun texinfo-format-option ()
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2330 "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
2331 ;; `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
2332 (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
2333 (save-excursion (beginning-of-line) (point))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2334 t))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2335 (insert "`" (texinfo-parse-arg-discard) "'")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2336 (insert (texinfo-parse-arg-discard)))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2337 (goto-char texinfo-command-start))
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2338
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2339 (put 'emph 'texinfo-format 'texinfo-format-emph)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2340 (put 'strong 'texinfo-format 'texinfo-format-emph)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2341 (defun texinfo-format-emph ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2342 (insert "*" (texinfo-parse-arg-discard) "*")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2343 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2344
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2345 (put 'dfn 'texinfo-format 'texinfo-format-defn)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2346 (put 'defn 'texinfo-format 'texinfo-format-defn)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2347 (defun texinfo-format-defn ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2348 (insert "\"" (texinfo-parse-arg-discard) "\"")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2349 (goto-char texinfo-command-start))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2350
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2351 (put 'email 'texinfo-format 'texinfo-format-key)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2352 (put 'key 'texinfo-format 'texinfo-format-key)
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2353 ;; 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
2354 (defun texinfo-format-key ()
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
2355 (insert (texinfo-parse-arg-discard))
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2356 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2357
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2358 (put 'bullet 'texinfo-format 'texinfo-format-bullet)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2359 (defun texinfo-format-bullet ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2360 "Insert an asterisk.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2361 If used within a line, follow `@bullet' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2362 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2363 (insert "*"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2364
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2365
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2366 ;;; @kbd
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2367
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2368 ;; Inside of @example ... @end example and similar environments,
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2369 ;; @kbd does nothing; but outside of such environments, it places
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2370 ;; single quotation markes around its argument.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2371
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2372 (defvar texinfo-format-kbd-regexp
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2373 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2374 "^@"
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 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2377 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2378 "lisp\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2379 "smalllisp"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2380 "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2381 "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
2382 around argument.")
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 (defvar texinfo-format-kbd-end-regexp
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2385 (concat
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2386 "^@end "
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 "example\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2389 "smallexample\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2390 "lisp\\|"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2391 "smalllisp"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2392 "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2393 "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
2394 around argument. (See `texinfo-format-kbd-regexp')")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2395
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2396 (put 'kbd 'texinfo-format 'texinfo-format-kbd)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2397 (defun texinfo-format-kbd ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2398 "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
2399 ;; 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
2400 ;; Can stop search at nearest @node or texinfo-section-types-regexp
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2401 (let* ((stop
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2402 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2403 (re-search-forward
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2404 (concat "^@node\\|\\(" texinfo-section-types-regexp "\\)")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2405 nil
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2406 '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
2407 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2408 (example-location
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2409 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2410 (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
2411 (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2412 (end-example-location
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2413 (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2414 (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
2415 (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2416 ;; 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
2417 ;; 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
2418 (if (>= end-example-location example-location)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2419 ;; outside an @example or equivalent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2420 (insert "`" (texinfo-parse-arg-discard) "'")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2421 ;; else, in @example; do not surround with `...'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2422 (insert (texinfo-parse-arg-discard)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2423 (goto-char texinfo-command-start)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2424
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2425
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2426 ;;; @example, @lisp, @quotation, @display, @smalllisp, @smallexample,
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2427 ;; @smalldisplay
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2428
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2429 (put 'display 'texinfo-format 'texinfo-format-example)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2430 (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
2431 (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
2432 (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
2433 (put 'quotation 'texinfo-format 'texinfo-format-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2434 (put 'smallexample 'texinfo-format 'texinfo-format-example)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2435 (put 'smalllisp 'texinfo-format 'texinfo-format-example)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2436 (defun texinfo-format-example ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2437 (texinfo-push-stack 'example nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2438 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2439 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2440
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2441 (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
2442 (put 'display 'texinfo-end 'texinfo-end-example)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2443 (put 'smalldisplay 'texinfo-end 'texinfo-end-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2444 (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
2445 (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
2446 (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
2447 (put 'smalllisp 'texinfo-end 'texinfo-end-example)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2448 (defun texinfo-end-example ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2449 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2450 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2451 (let ((stacktop
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2452 (texinfo-pop-stack 'example)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2453 (texinfo-do-itemize (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2454
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2455 (put 'exdent 'texinfo-format 'texinfo-format-exdent)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2456 (defun texinfo-format-exdent ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2457 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2458 (delete-region (point)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2459 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2460 (skip-chars-forward " ")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2461 (point)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2462 (insert ?\b)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2463 ;; Cancel out the deletion that texinfo-do-itemize
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2464 ;; is going to do at the end of this line.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2465 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2466 (end-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2467 (insert "\n ")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2468
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2469
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2470 ;; @direntry and @dircategory
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2471
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2472 (put 'direntry 'texinfo-format 'texinfo-format-direntry)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2473 (defun texinfo-format-direntry ()
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2474 (texinfo-push-stack 'direntry nil)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2475 (texinfo-discard-line)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2476 (insert "START-INFO-DIR-ENTRY\n\n"))
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2477
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2478 (put 'direntry 'texinfo-end 'texinfo-end-direntry)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2479 (defun texinfo-end-direntry ()
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2480 (texinfo-discard-command)
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2481 (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
2482 (texinfo-pop-stack 'direntry))
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2483
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2484 (put 'dircategory 'texinfo-format 'texinfo-format-dircategory)
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2485 (defun texinfo-format-dircategory ()
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2486 (let ((str (texinfo-parse-arg-discard)))
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2487 (delete-region (point)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2488 (progn
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2489 (skip-chars-forward " ")
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2490 (point)))
18908
a5e6856e865e (dircategory): Delete obsolete mistaken `put'.
Richard M. Stallman <rms@gnu.org>
parents: 18884
diff changeset
2491 (insert "INFO-DIR-SECTION " str "\n")))
18884
04d36f3e7fa6 (texinfo-no-refill-regexp): Add "direntry".
Richard M. Stallman <rms@gnu.org>
parents: 18818
diff changeset
2492
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2493 ;;; @cartouche
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2494
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2495 ;; 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
2496 ;; 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
2497
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2498 (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
2499 (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
2500
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2501
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2502 ;;; @flushleft and @format
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2503
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2504 ;; 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
2505 ;; 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
2506 ;; `do-nothing' command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2507
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2508 ;; 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
2509 ;; 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
2510
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2511 (put 'format 'texinfo-format 'texinfo-format-flushleft)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2512 (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
2513 (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
2514 (defun texinfo-format-flushleft ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2515 (texinfo-discard-line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2516
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2517 (put 'format 'texinfo-end 'texinfo-end-flushleft)
22695
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
2518 (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
2519 (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
2520 (defun texinfo-end-flushleft ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2521 (texinfo-discard-command))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2522
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2523
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2524 ;;; @flushright
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2525
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2526 ;; 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
2527 ;; 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
2528 ;; removed so that visible text lines up on the right side.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2529
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2530 (put 'flushright 'texinfo-format 'texinfo-format-flushright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2531 (defun texinfo-format-flushright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2532 (texinfo-push-stack 'flushright nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2533 (texinfo-discard-line))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2534
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2535 (put 'flushright 'texinfo-end 'texinfo-end-flushright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2536 (defun texinfo-end-flushright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2537 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2538
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2539 (let ((stacktop
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2540 (texinfo-pop-stack 'flushright)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2541
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2542 (texinfo-do-flushright (nth 1 stacktop))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2543
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2544 (defun texinfo-do-flushright (from)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2545 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2546 (while (progn (forward-line -1)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2547 (>= (point) from))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2548
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2549 (beginning-of-line)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2550 (insert
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2551 (make-string
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2552 (- fill-column
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2553 (save-excursion
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2554 (end-of-line)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2555 (skip-chars-backward " \t")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2556 (delete-region (point) (progn (end-of-line) (point)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2557 (current-column)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2558 ? )))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2559
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2560
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2561 ;;; @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
2562
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2563 (put 'ctrl 'texinfo-format 'texinfo-format-ctrl)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2564 (defun texinfo-format-ctrl ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2565 (let ((str (texinfo-parse-arg-discard)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2566 (insert (logand 31 (aref str 0)))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2567
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2568 (put 'TeX 'texinfo-format 'texinfo-format-TeX)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2569 (defun texinfo-format-TeX ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2570 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2571 (insert "TeX"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2572
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2573 (put 'copyright 'texinfo-format 'texinfo-format-copyright)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2574 (defun texinfo-format-copyright ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2575 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2576 (insert "(C)"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2577
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2578 (put 'minus 'texinfo-format 'texinfo-format-minus)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2579 (defun texinfo-format-minus ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2580 "Insert a minus sign.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2581 If used within a line, follow `@minus' with braces."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2582 (texinfo-optional-braces-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2583 (insert "-"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2584
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2585 (put 'dots 'texinfo-format 'texinfo-format-dots)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2586 (defun texinfo-format-dots ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2587 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2588 (insert "..."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2589
9549
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2590 (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
2591 (defun texinfo-format-enddots ()
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2592 (texinfo-parse-arg-discard)
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2593 (insert "...."))
1de7e5bc1ff1 (texinfo-no-refill-regexp): Recognize @ifhtml, @html.
Richard M. Stallman <rms@gnu.org>
parents: 9344
diff changeset
2594
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2595 (put 'pounds 'texinfo-format 'texinfo-format-pounds)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2596 (defun texinfo-format-pounds ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2597 (texinfo-parse-arg-discard)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2598 (insert "#"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2599
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2600
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2601 ;;; Refilling and indenting: @refill, @paragraphindent, @noindent
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2602
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2603 ;;; Indent only those paragraphs that are refilled as a result of an
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2604 ;;; @refill command.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2605
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2606 ;; * 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
2607 ;; the starts of paragraphs.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2608
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2609 ;; * 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
2610
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2611 ;; * 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
2612 ;; number of spaces.
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2613
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2614 ;;; 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
2615 ;;; 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
2616
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2617 (defvar texinfo-paragraph-indent "asis"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2618 "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
2619
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2620 (put 'paragraphindent 'texinfo-format 'texinfo-paragraphindent)
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 (defun texinfo-paragraphindent ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2623 "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
2624 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
2625 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2626 (if (string= "asis" arg)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2627 (setq texinfo-paragraph-indent "asis")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2628 (setq texinfo-paragraph-indent (string-to-int arg)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2629
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2630 (put 'refill 'texinfo-format 'texinfo-format-refill)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2631 (defun texinfo-format-refill ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2632 "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
2633 Default is to leave paragraph indentation as is."
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2634 (texinfo-discard-command)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2635 (let ((position (point-marker)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2636 (forward-paragraph -1)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2637 (if (looking-at "[ \t\n]*$") (forward-line 1))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2638 ;; 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
2639 ;; or if paragraph is preceded by @noindent.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2640 ;; Otherwise, indent
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2641 (cond
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2642 ;; delete a @noindent line and do not indent paragraph
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2643 ((save-excursion (forward-line -1)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2644 (looking-at "^@noindent"))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2645 (forward-line -1)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2646 (delete-region (point) (progn (forward-line 1) (point))))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2647 ;; do nothing if "asis"
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2648 ((equal texinfo-paragraph-indent "asis"))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2649 ;; do no indenting in list, etc.
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2650 ((> texinfo-stack-depth 0))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2651 ;; otherwise delete existing whitespace and indent
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2652 (t
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2653 (delete-region (point) (progn (skip-chars-forward " \t") (point)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2654 (insert (make-string texinfo-paragraph-indent ? ))))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2655 (forward-paragraph 1)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2656 (forward-line -1)
23658
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2657 (end-of-line)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2658 ;; 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
2659 ;; 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
2660 ;; 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
2661 (let* ((previous-paragraph-separate paragraph-separate)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2662 (paragraph-separate
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2663 (concat paragraph-separate "\\|[-=.]+\\|\\*\\*+"))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2664 (previous-paragraph-start paragraph-start)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2665 (paragraph-start
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2666 (concat paragraph-start "\\|[-=.]+\\|\\*\\*+")))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2667 (unwind-protect
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2668 (fill-paragraph nil)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2669 (setq paragraph-separate previous-paragraph-separate)
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2670 (setq paragraph-start previous-paragraph-start)))
ac6928a654e1 (texinfo-format-scan):
Karl Heuer <kwzh@gnu.org>
parents: 22695
diff changeset
2671 (goto-char position)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2672
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2673 (put 'noindent 'texinfo-format 'texinfo-noindent)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2674 (defun texinfo-noindent ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2675 (save-excursion
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2676 (forward-paragraph 1)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2677 (if (search-backward "@refill"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2678 (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
2679 () ; 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
2680 ;; else
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2681 (texinfo-discard-line))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2682
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2683
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2684 ;;; Index generation
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2685
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2686 (put 'vindex 'texinfo-format 'texinfo-format-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2687 (defun texinfo-format-vindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2688 (texinfo-index 'texinfo-vindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2689
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2690 (put 'cindex 'texinfo-format 'texinfo-format-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2691 (defun texinfo-format-cindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2692 (texinfo-index 'texinfo-cindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2693
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2694 (put 'findex 'texinfo-format 'texinfo-format-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2695 (defun texinfo-format-findex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2696 (texinfo-index 'texinfo-findex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2697
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2698 (put 'pindex 'texinfo-format 'texinfo-format-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2699 (defun texinfo-format-pindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2700 (texinfo-index 'texinfo-pindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2701
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2702 (put 'tindex 'texinfo-format 'texinfo-format-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2703 (defun texinfo-format-tindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2704 (texinfo-index 'texinfo-tindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2705
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2706 (put 'kindex 'texinfo-format 'texinfo-format-kindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2707 (defun texinfo-format-kindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2708 (texinfo-index 'texinfo-kindex))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2709
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2710 (defun texinfo-index (indexvar)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2711 (let ((arg (texinfo-parse-expanded-arg)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2712 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2713 (set indexvar
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2714 (cons (list arg
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2715 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2716 ;; 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
2717 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2718 (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
2719 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2720 (symbol-value indexvar)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2721
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2722 (defconst texinfo-indexvar-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2723 '(("cp" . texinfo-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2724 ("fn" . texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2725 ("vr" . texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2726 ("tp" . texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2727 ("pg" . texinfo-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2728 ("ky" . texinfo-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2729
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2730
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2731 ;;; @defindex @defcodeindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2732 (put 'defindex 'texinfo-format 'texinfo-format-defindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2733 (put 'defcodeindex 'texinfo-format 'texinfo-format-defindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2734
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2735 (defun texinfo-format-defindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2736 (let* ((index-name (texinfo-parse-arg-discard)) ; eg: `aa'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2737 (indexing-command (intern (concat index-name "index")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2738 (index-formatting-command ; eg: `texinfo-format-aaindex'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2739 (intern (concat "texinfo-format-" index-name "index")))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2740 (index-alist-name ; eg: `texinfo-aaindex'
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2741 (intern (concat "texinfo-" index-name "index"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2742
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2743 (set index-alist-name nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2744
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2745 (put indexing-command ; eg, aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2746 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2747 index-formatting-command) ; eg, texinfo-format-aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2748
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2749 ;; eg: "aa" . texinfo-aaindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2750 (or (assoc index-name texinfo-indexvar-alist)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2751 (setq texinfo-indexvar-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2752 (cons
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2753 (cons index-name
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2754 index-alist-name)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2755 texinfo-indexvar-alist)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2756
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2757 (fset index-formatting-command
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2758 (list 'lambda 'nil
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2759 (list 'texinfo-index
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2760 (list 'quote index-alist-name))))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2761
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2762
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2763 ;;; @synindex @syncodeindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2764
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2765 (put 'synindex 'texinfo-format 'texinfo-format-synindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2766 (put 'syncodeindex 'texinfo-format 'texinfo-format-synindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2767
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2768 (defun texinfo-format-synindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2769 (let* ((args (texinfo-parse-arg-discard))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2770 (second (cdr (read-from-string args)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2771 (joiner (symbol-name (car (read-from-string args))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2772 (joined (symbol-name (car (read-from-string args second)))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2773
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2774 (if (assoc joiner texinfo-short-index-cmds-alist)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2775 (put
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2776 (cdr (assoc joiner texinfo-short-index-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2777 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2778 (or (cdr (assoc joined texinfo-short-index-format-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2779 (intern (concat "texinfo-format-" joined "index"))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2780 (put
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2781 (intern (concat joiner "index"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2782 'texinfo-format
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2783 (or (cdr(assoc joined texinfo-short-index-format-cmds-alist))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2784 (intern (concat "texinfo-format-" joined "index")))))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2785
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2786 (defconst texinfo-short-index-cmds-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2787 '(("cp" . cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2788 ("fn" . findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2789 ("vr" . vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2790 ("tp" . tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2791 ("pg" . pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2792 ("ky" . kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2793
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2794 (defconst texinfo-short-index-format-cmds-alist
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2795 '(("cp" . texinfo-format-cindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2796 ("fn" . texinfo-format-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2797 ("vr" . texinfo-format-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2798 ("tp" . texinfo-format-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2799 ("pg" . texinfo-format-pindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2800 ("ky" . texinfo-format-kindex)))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2801
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2802
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2803 ;;; Sort and index (for VMS)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2804
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2805 ;; 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
2806 ;; 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
2807 (defun texinfo-sort-region (start end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2808 (require 'sort)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2809 (save-restriction
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2810 (narrow-to-region start end)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2811 (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
2812
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2813 ;; Subroutine for sorting an index.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2814 ;; 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
2815 (defun texinfo-sort-startkeyfun ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2816 (let ((line
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2817 (buffer-substring (point) (save-excursion (end-of-line) (point)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2818 ;; Canonicalize whitespace and eliminate funny chars.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2819 (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
2820 (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
2821 " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2822 (substring line (match-end 0) (length line)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2823 line))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2824
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2825
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2826 ;;; @printindex
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2827
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2828 (put 'printindex 'texinfo-format 'texinfo-format-printindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2829
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2830 (defun texinfo-format-printindex ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2831 (let ((indexelts (symbol-value
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2832 (cdr (assoc (texinfo-parse-arg-discard)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2833 texinfo-indexvar-alist))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2834 opoint)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2835 (insert "\n* Menu:\n\n")
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2836 (setq opoint (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2837 (texinfo-print-index nil indexelts)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2838
15985
eb812636dcb5 (texinfo-format-printindex):
Richard M. Stallman <rms@gnu.org>
parents: 15680
diff changeset
2839 (if (memq system-type '(vax-vms windows-nt ms-dos))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2840 (texinfo-sort-region opoint (point))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2841 (shell-command-on-region opoint (point) "sort -fd" 1))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2842
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2843 (defun texinfo-print-index (file indexelts)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2844 (while indexelts
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2845 (if (stringp (car (car indexelts)))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2846 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2847 (insert "* " (car (car indexelts)) ": " )
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2848 (indent-to 32)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2849 (insert
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2850 (if file (concat "(" file ")") "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2851 (nth 1 (car indexelts)) ".")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2852 (indent-to 54)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2853 (insert
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2854 (if (nth 2 (car indexelts))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2855 (format " %d." (nth 2 (car indexelts)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2856 "")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2857 "\n"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2858 ;; index entries from @include'd file
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2859 (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
2860 (nth 2 (car indexelts))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2861 (setq indexelts (cdr indexelts))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2862
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2863
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
2864 ;;; Glyphs: @equiv, @error, etc
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2865
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2866 ;; @equiv to show that two expressions are equivalent
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2867 ;; @error to show an error message
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2868 ;; @expansion to show what a macro expands to
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2869 ;; @point to show the location of point in an example
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2870 ;; @print to show what an evaluated expression prints
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2871 ;; @result to indicate the value returned by an expression
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2872
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2873 (put 'equiv 'texinfo-format 'texinfo-format-equiv)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2874 (defun texinfo-format-equiv ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2875 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2876 (insert "=="))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2877
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2878 (put 'error 'texinfo-format 'texinfo-format-error)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2879 (defun texinfo-format-error ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2880 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2881 (insert "error-->"))
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 'expansion 'texinfo-format 'texinfo-format-expansion)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2884 (defun texinfo-format-expansion ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2885 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2886 (insert "==>"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2887
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2888 (put 'point 'texinfo-format 'texinfo-format-point)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2889 (defun texinfo-format-point ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2890 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2891 (insert "-!-"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2892
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2893 (put 'print 'texinfo-format 'texinfo-format-print)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2894 (defun texinfo-format-print ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2895 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2896 (insert "-|"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2897
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2898 (put 'result 'texinfo-format 'texinfo-format-result)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2899 (defun texinfo-format-result ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2900 (texinfo-parse-arg-discard)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2901 (insert "=>"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2902
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2903
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2904 ;;; Accent commands
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2905
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2906 ;; 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
2907 ;; 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
2908 ;; character set.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2909
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2910 ;; See the `texinfo-accent-commands' variable
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2911 ;; in the section for `texinfo-append-refill'.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2912 ;; Also, see the defun for `texinfo-format-scan'
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2913 ;; for single-character accent commands.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2914
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2915 ;; Command Info output Name
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2916
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2917 ;; These do not have braces:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2918 ;; @^ ==> ^ circumflex accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2919 ;; @` ==> ` grave accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2920 ;; @' ==> ' acute accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2921 ;; @" ==> " umlaut accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2922 ;; @= ==> = overbar accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2923 ;; @~ ==> ~ tilde accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2924
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2925 ;; These have braces, but take no argument:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2926 ;; @OE{} ==> OE French-OE-ligature
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2927 ;; @oe{} ==> oe
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2928 ;; @AA{} ==> AA Scandinavian-A-with-circle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2929 ;; @aa{} ==> aa
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2930 ;; @AE{} ==> AE Latin-Scandinavian-AE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2931 ;; @ae{} ==> ae
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2932 ;; @ss{} ==> ss German-sharp-S
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2933
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2934 ;; @questiondown{} ==> ? upside-down-question-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2935 ;; @exclamdown{} ==> ! upside-down-exclamation-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2936 ;; @L{} ==> L/ Polish suppressed-L (Lslash)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2937 ;; @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
2938 ;; @O{} ==> O/ Scandinavian O-with-slash
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2939 ;; @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
2940
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2941 ;; These have braces, and take an argument:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2942 ;; @,{c} ==> c, cedilla accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2943 ;; @dotaccent{o} ==> .o overdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2944 ;; @ubaraccent{o} ==> _o underbar-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2945 ;; @udotaccent{o} ==> o-. underdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2946 ;; @H{o} ==> ""o long Hungarian umlaut
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2947 ;; @ringaccent{o} ==> *o ring accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2948 ;; @tieaccent{oo} ==> [oo tie after accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2949 ;; @u{o} ==> (o breve accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2950 ;; @v{o} ==> <o hacek accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2951 ;; @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
2952
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2953 ;; ==========
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2954
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2955 ;; Note: The defun texinfo-format-scan
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2956 ;; looks at "[@{}^'`\",=~ *?!-]"
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2957 ;; In the case of @*, a line break is inserted;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2958 ;; 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
2959 ;; Thus, `texinfo-format-scan' handles the following
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2960 ;; single-character accent commands: @^ @` @' @" @, @- @= @~
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2961
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2962 ;; @^ ==> ^ circumflex accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2963 ;; (put '^ 'texinfo-format 'texinfo-format-circumflex-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2964 ;; (defun texinfo-format-circumflex-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2965 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2966 ;; (insert "^"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2967 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2968 ;; @` ==> ` grave accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2969 ;; (put '\` 'texinfo-format 'texinfo-format-grave-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2970 ;; (defun texinfo-format-grave-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2971 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2972 ;; (insert "\`"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2973 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2974 ;; @' ==> ' acute accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2975 ;; (put '\' 'texinfo-format 'texinfo-format-acute-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2976 ;; (defun texinfo-format-acute-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2977 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2978 ;; (insert "'"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2979 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2980 ;; @" ==> " umlaut accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2981 ;; (put '\" 'texinfo-format 'texinfo-format-umlaut-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2982 ;; (defun texinfo-format-umlaut-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2983 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2984 ;; (insert "\""))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2985 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2986 ;; @= ==> = overbar accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2987 ;; (put '= 'texinfo-format 'texinfo-format-overbar-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2988 ;; (defun texinfo-format-overbar-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2989 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2990 ;; (insert "="))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2991 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2992 ;; @~ ==> ~ tilde accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2993 ;; (put '~ 'texinfo-format 'texinfo-format-tilde-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2994 ;; (defun texinfo-format-tilde-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2995 ;; (texinfo-discard-command)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2996 ;; (insert "~"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2997
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2998 ;; @OE{} ==> OE French-OE-ligature
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
2999 (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
3000 (defun texinfo-format-French-OE-ligature ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3001 (insert "OE" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3002 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3003
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3004 ;; @oe{} ==> oe
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3005 (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
3006 (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
3007 (insert "oe" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3008 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3009
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3010 ;; @AA{} ==> AA Scandinavian-A-with-circle
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3011 (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
3012 (defun texinfo-format-Scandinavian-A-with-circle ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3013 (insert "AA" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3014 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3015
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3016 ;; @aa{} ==> aa
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3017 (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
3018 (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
3019 (insert "aa" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3020 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3021
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3022 ;; @AE{} ==> AE Latin-Scandinavian-AE
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3023 (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
3024 (defun texinfo-format-Latin-Scandinavian-AE ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3025 (insert "AE" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3026 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3027
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3028 ;; @ae{} ==> ae
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3029 (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
3030 (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
3031 (insert "ae" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3032 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3033
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3034 ;; @ss{} ==> ss German-sharp-S
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3035 (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
3036 (defun texinfo-format-German-sharp-S ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3037 (insert "ss" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3038 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3039
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3040 ;; @questiondown{} ==> ? upside-down-question-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3041 (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
3042 (defun texinfo-format-upside-down-question-mark ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3043 (insert "?" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3044 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3045
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3046 ;; @exclamdown{} ==> ! upside-down-exclamation-mark
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3047 (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
3048 (defun texinfo-format-upside-down-exclamation-mark ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3049 (insert "!" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3050 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3051
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3052 ;; @L{} ==> L/ Polish suppressed-L (Lslash)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3053 (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
3054 (defun texinfo-format-Polish-suppressed-L ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3055 (insert (texinfo-parse-arg-discard) "/L")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3056 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3057
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3058 ;; @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
3059 (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
3060 (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
3061 (insert (texinfo-parse-arg-discard) "/l")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3062 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3063
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3064
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3065 ;; @O{} ==> O/ Scandinavian O-with-slash
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3066 (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
3067 (defun texinfo-format-Scandinavian-O-with-slash ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3068 (insert (texinfo-parse-arg-discard) "O/")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3069 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3070
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3071 ;; @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
3072 (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
3073 (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
3074 (insert (texinfo-parse-arg-discard) "o/")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3075 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3076
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3077 ;; Take arguments
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3078
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3079 ;; @,{c} ==> c, cedilla accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3080 (put ', 'texinfo-format 'texinfo-format-cedilla-accent)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3081 (defun texinfo-format-cedilla-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3082 (insert (texinfo-parse-arg-discard) ",")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3083 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3084
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3085
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3086 ;; @dotaccent{o} ==> .o overdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3087 (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
3088 (defun texinfo-format-overdot-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3089 (insert "." (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3090 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3091
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3092 ;; @ubaraccent{o} ==> _o underbar-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3093 (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
3094 (defun texinfo-format-underbar-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3095 (insert "_" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3096 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3097
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3098 ;; @udotaccent{o} ==> o-. underdot-accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3099 (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
3100 (defun texinfo-format-underdot-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3101 (insert (texinfo-parse-arg-discard) "-.")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3102 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3103
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3104 ;; @H{o} ==> ""o long Hungarian umlaut
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3105 (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
3106 (defun texinfo-format-long-Hungarian-umlaut ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3107 (insert "\"\"" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3108 (goto-char texinfo-command-start))
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 ;; @ringaccent{o} ==> *o ring accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3111 (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
3112 (defun texinfo-format-ring-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3113 (insert "*" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3114 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3115
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3116 ;; @tieaccent{oo} ==> [oo tie after accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3117 (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
3118 (defun texinfo-format-tie-after-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3119 (insert "[" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3120 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3121
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3122
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3123 ;; @u{o} ==> (o breve accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3124 (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
3125 (defun texinfo-format-breve-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3126 (insert "(" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3127 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3128
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3129 ;; @v{o} ==> <o hacek accent
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3130 (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
3131 (defun texinfo-format-hacek-accent ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3132 (insert "<" (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3133 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3134
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3135
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3136 ;; @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
3137 (put 'dotless 'texinfo-format 'texinfo-format-dotless)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3138 (defun texinfo-format-dotless ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3139 (insert (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3140 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3141
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3142
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3143 ;;; Definition formatting: @deffn, @defun, etc
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3144
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3145 ;; What definition formatting produces:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3146 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3147 ;; @deffn category name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3148 ;; In Info, `Category: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3149 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3150 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3151 ;; @defvr category name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3152 ;; In Info, `Category: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3153 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3154 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3155 ;; @deftp category name attributes...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3156 ;; `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
3157 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3158 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3159 ;; 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
3160 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3161 ;; @defun, @defmac, @defspec, @defvar, @defopt
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3162 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3163 ;; @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
3164 ;; @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
3165 ;; @defvar name In Info, `Variable: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3166 ;; etc.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3167 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3168 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3169 ;; 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
3170 ;; @deftypefn category data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3171 ;; In Info, `Category: data-type name args...'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3172 ;; @deftypevr category data-type name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3173 ;; In Info, `Category: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3174 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3175 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3176 ;; 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
3177 ;; @deftypefun data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3178 ;; In Info, `Function: data-type name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3179 ;; In index: name: node. line#.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3180 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3181 ;; @deftypevar data-type name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3182 ;; In Info, `Variable: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3183 ;; 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
3184 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3185 ;; Generalized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3186 ;; @defop category class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3187 ;; 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
3188 ;; 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
3189 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3190 ;; @defcv category class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3191 ;; In Info, `Category of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3192 ;; 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
3193 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3194 ;; Specialized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3195 ;; @defmethod class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3196 ;; 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
3197 ;; 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
3198 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3199 ;; @defivar class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3200 ;; 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
3201 ;; 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
3202
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3203
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3204 ;;; The definition formatting functions
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3205
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3206 (defun texinfo-format-defun ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3207 (texinfo-push-stack 'defun nil)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3208 (setq fill-column (- fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3209 (texinfo-format-defun-1 t))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3210
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3211 (defun texinfo-end-defun ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3212 (setq fill-column (+ fill-column 5))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3213 (texinfo-discard-command)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3214 (let ((start (nth 1 (texinfo-pop-stack 'defun))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3215 (texinfo-do-itemize start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3216 ;; Delete extra newline inserted after header.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3217 (save-excursion
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3218 (goto-char start)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3219 (delete-char -1))))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3220
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3221 (defun texinfo-format-defunx ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3222 (texinfo-format-defun-1 nil))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3223
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3224 (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
3225 (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
3226 (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
3227 (texinfo-discard-command)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3228 ;; 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
3229 (if (not first-p)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3230 (delete-char -1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3231 (funcall
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3232 (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
3233 ;; 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
3234 ;; with header line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3235 (insert "\n\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3236 (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
3237 (funcall
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3238 (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
3239
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3240 ;;; 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
3241
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3242 ;; @deffn, @defvr, @deftp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3243 (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
3244 (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
3245 (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
3246 (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
3247 (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
3248 (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
3249 (defun texinfo-format-deffn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3250 ;; 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
3251 ;; @deffn category name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3252 ;; In Info, `Category: name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3253 ;; @deftp category name attributes...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3254 ;; `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
3255 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3256 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3257 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3258 (insert " -- " category ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3259 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3260 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3261 (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
3262 (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
3263 (car args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3264 (upcase (car args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3265 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3266
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3267 ;; @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
3268 (put 'defun 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3269 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3270 (put 'defunx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3271 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3272 (put 'defmac 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3273 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3274 (put 'defmacx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3275 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3276 (put 'defspec 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3277 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3278 (put 'defspecx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3279 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3280 (put 'defvar 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3281 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3282 (put 'defvarx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3283 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3284 (put 'defopt 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3285 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3286 (put 'defoptx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3287 'texinfo-format-specialized-defun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3288 (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
3289 ;; 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
3290 ;; @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
3291 ;; @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
3292 ;; @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
3293 ;; 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
3294 (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
3295 (name (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3296 (args (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3297 (insert " -- " category ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3298 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3299 (insert " "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3300 (if (= ?& (aref (car args) 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3301 (car args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3302 (upcase (car args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3303 (setq args (cdr args)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3304
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3305 ;; @deftypefn, @deftypevr: Generalized typed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3306 (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
3307 (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
3308 (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
3309 (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
3310 (defun texinfo-format-deftypefn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3311 ;; 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
3312 ;; @deftypefn category data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3313 ;; In Info, `Category: data-type name args...'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3314 ;; @deftypevr category data-type name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3315 ;; In Info, `Category: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3316 ;; 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
3317 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3318 (data-type (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3319 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3320 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3321 (insert " -- " category ": " data-type " " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3322 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3323 (insert " " (car args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3324 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3325
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3326 ;; @deftypefun, @deftypevar: Specialized typed
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3327 (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
3328 (put 'deftypefunx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3329 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3330 (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
3331 (put 'deftypevarx 'texinfo-deffn-formatting-property
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3332 'texinfo-format-deftypefun)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3333 (defun texinfo-format-deftypefun (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3334 ;; 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
3335 ;; @deftypefun data-type name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3336 ;; In Info, `Function: data-type name ARGS'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3337 ;; @deftypevar data-type name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3338 ;; In Info, `Variable: data-type name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3339 ;; 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
3340 ;; 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
3341 (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
3342 (data-type (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3343 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3344 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3345 (insert " -- " category ": " data-type " " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3346 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3347 (insert " " (car args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3348 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3349
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3350 ;; @defop: Generalized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3351 (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
3352 (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
3353 (defun texinfo-format-defop (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3354 ;; Generalized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3355 ;; @defop category class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3356 ;; 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
3357 ;; 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
3358 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3359 (class (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3360 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3361 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3362 (insert " -- " category " on " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3363 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3364 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3365 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3366
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3367 ;; @defcv: Generalized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3368 (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
3369 (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
3370 (defun texinfo-format-defcv (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3371 ;; Generalized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3372 ;; @defcv category class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3373 ;; In Info, `Category of class: name'
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3374 ;; 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
3375 (let ((category (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3376 (class (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3377 (name (car (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3378 (args (cdr (cdr (cdr parsed-args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3379 (insert " -- " category " of " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3380 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3381 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3382 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3383
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3384 ;; @defmethod: Specialized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3385 (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
3386 (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
3387 (defun texinfo-format-defmethod (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3388 ;; Specialized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3389 ;; @defmethod class name args...
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3390 ;; 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
3391 ;; 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
3392 ;; 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
3393 (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
3394 (class (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3395 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3396 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3397 (insert " -- " category " on " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3398 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3399 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3400 (setq args (cdr args)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3401
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3402 ;; @defivar: Specialized object-oriented
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3403 (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
3404 (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
3405 (defun texinfo-format-defivar (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3406 ;; Specialized object oriented entity:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3407 ;; @defivar class name
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3408 ;; 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
3409 ;; 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
3410 ;; 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
3411 (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
3412 (class (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3413 (name (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3414 (args (cdr (cdr parsed-args))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3415 (insert " -- " category " of " class ": " name)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3416 (while args
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3417 (insert " " (upcase (car args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3418 (setq args (cdr args)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3419
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3420
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3421 ;;; Indexing for definitions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3422
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3423 ;; 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
3424 ;; 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
3425 ;; formatted differently:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3426 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3427 ;; @defun,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3428 ;; @defmac,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3429 ;; @defspec,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3430 ;; @defvar,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3431 ;; @defopt all use their 1st argument as the entry-proper
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 ;; @deffn,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3434 ;; @defvr,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3435 ;; @deftp
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3436 ;; @deftypefun
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3437 ;; @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
3438 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3439 ;; @deftypefn,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3440 ;; @deftypevr both use their 3rd argument as the entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3441 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3442 ;; @defmethod 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
3443 ;; formatted: NAME on CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3444
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3445 ;; @defop uses its 3rd and 2nd arguments as an entry-proper
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3446 ;; formatted: NAME on CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3447 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3448 ;; @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
3449 ;; formatted: NAME of CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3450 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3451 ;; @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
3452 ;; formatted: NAME of CLASS
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3453
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3454 (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
3455 (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
3456 (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
3457 (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
3458 (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
3459 (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
3460 (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
3461 (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
3462 (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
3463 (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
3464 (defun texinfo-index-defun (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3465 ;; 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
3466 ;; `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
3467 (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
3468 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3469 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3470 ;; 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
3471 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3472 (car parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3473 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3474 ;; 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
3475 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3476 (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
3477 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3478 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3479
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3480 (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
3481 (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
3482 (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
3483 (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
3484 (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
3485 (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
3486 (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
3487 (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
3488 (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
3489 (put 'deftypevarx '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
3490 (defun texinfo-index-deffn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3491 ;; 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
3492 ;; `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
3493 (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
3494 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3495 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3496 ;; 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
3497 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3498 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3499 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3500 ;; 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
3501 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3502 (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
3503 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3504 (symbol-value index-list)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3505
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3506 (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
3507 (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
3508 (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
3509 (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
3510 (defun texinfo-index-deftypefn (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3511 ;; 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
3512 ;; `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
3513 (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
3514 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3515 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3516 ;; 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
3517 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3518 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3519 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3520 ;; 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
3521 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3522 (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
3523 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3524 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3525
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3526 (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
3527 (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
3528 (defun texinfo-index-defmethod (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3529 ;; 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
3530 ;; `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
3531 (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
3532 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3533 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3534 ;; 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
3535 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3536 (format "%s on %s"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3537 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3538 (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3539 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3540 ;; 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
3541 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3542 (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
3543 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3544 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3545
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3546 (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
3547 (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
3548 (defun texinfo-index-defop (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3549 ;; 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
3550 ;; `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
3551 (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
3552 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3553 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3554 ;; 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
3555 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3556 (format "%s on %s"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3557 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3558 (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3559 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3560 ;; 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
3561 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3562 (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
3563 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3564 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3565
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3566 (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
3567 (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
3568 (defun texinfo-index-defivar (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3569 ;; 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
3570 ;; `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
3571 (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
3572 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3573 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3574 ;; 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
3575 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3576 (format "%s of %s"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3577 (car (cdr parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3578 (car parsed-args))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3579 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3580 ;; 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
3581 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3582 (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
3583 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3584 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3585
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3586 (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
3587 (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
3588 (defun texinfo-index-defcv (parsed-args)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3589 ;; 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
3590 ;; `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
3591 (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
3592 (set index-list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3593 (cons
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3594 ;; 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
3595 (list
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3596 (format "%s of %s"
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3597 (car (cdr (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3598 (car (cdr parsed-args)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3599 texinfo-last-node
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3600 ;; 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
3601 (if texinfo-last-node-pos
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3602 (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
3603 1))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3604 (symbol-value index-list)))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3605
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3606
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3607 ;;; Properties for definitions
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3608
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3609 ;; Each definition command has six properties:
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3610 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3611 ;; 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
3612 ;; 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
3613 ;; 3. texinfo-format formatting command
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3614 ;; 4. texinfo-end end formatting command
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3615 ;; 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
3616 ;; 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
3617 ;;
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3618 ;; 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
3619 ;; and subsequent header lines.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3620
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3621 ;; 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
3622 ;; are listed just before the appropriate formatting and indexing commands.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3623
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3624 (put 'deffn 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3625 (put 'deffnx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3626 (put 'deffn 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3627 (put 'deffn 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3628 (put 'deffnx 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3629 (put 'deffn 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3630 (put 'deffnx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3631
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3632 (put 'defun 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3633 (put 'defunx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3634 (put 'defun 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3635 (put 'defun 'texinfo-defun-type '('defun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3636 (put 'defunx 'texinfo-defun-type '('defun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3637 (put 'defun 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3638 (put 'defunx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3639
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3640 (put 'defmac 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3641 (put 'defmacx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3642 (put 'defmac 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3643 (put 'defmac 'texinfo-defun-type '('defun-type "Macro"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3644 (put 'defmacx 'texinfo-defun-type '('defun-type "Macro"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3645 (put 'defmac 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3646 (put 'defmacx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3647
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3648 (put 'defspec 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3649 (put 'defspecx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3650 (put 'defspec 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3651 (put 'defspec 'texinfo-defun-type '('defun-type "Special form"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3652 (put 'defspecx 'texinfo-defun-type '('defun-type "Special form"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3653 (put 'defspec 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3654 (put 'defspecx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3655
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3656 (put 'defvr 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3657 (put 'defvrx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3658 (put 'defvr 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3659 (put 'defvr 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3660 (put 'defvrx 'texinfo-defun-type '('deffn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3661 (put 'defvr 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3662 (put 'defvrx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3663
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3664 (put 'defvar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3665 (put 'defvarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3666 (put 'defvar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3667 (put 'defvar 'texinfo-defun-type '('defun-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3668 (put 'defvarx 'texinfo-defun-type '('defun-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3669 (put 'defvar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3670 (put 'defvarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3671
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3672 (put 'defconst 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3673 (put 'defconstx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3674 (put 'defconst 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3675 (put 'defconst 'texinfo-defun-type '('defun-type "Constant"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3676 (put 'defconstx 'texinfo-defun-type '('defun-type "Constant"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3677 (put 'defconst 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3678 (put 'defconstx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3679
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3680 (put 'defcmd 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3681 (put 'defcmdx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3682 (put 'defcmd 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3683 (put 'defcmd 'texinfo-defun-type '('defun-type "Command"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3684 (put 'defcmdx 'texinfo-defun-type '('defun-type "Command"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3685 (put 'defcmd 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3686 (put 'defcmdx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3687
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3688 (put 'defopt 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3689 (put 'defoptx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3690 (put 'defopt 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3691 (put 'defopt 'texinfo-defun-type '('defun-type "User Option"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3692 (put 'defoptx 'texinfo-defun-type '('defun-type "User Option"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3693 (put 'defopt 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3694 (put 'defoptx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3695
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3696 (put 'deftp 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3697 (put 'deftpx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3698 (put 'deftp 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3699 (put 'deftp 'texinfo-defun-type '('deftp-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3700 (put 'deftpx 'texinfo-defun-type '('deftp-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3701 (put 'deftp 'texinfo-defun-index 'texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3702 (put 'deftpx 'texinfo-defun-index 'texinfo-tindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3703
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3704 ;;; Object-oriented stuff is a little hairier.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3705
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3706 (put 'defop 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3707 (put 'defopx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3708 (put 'defop 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3709 (put 'defop 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3710 (put 'defopx 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3711 (put 'defop 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3712 (put 'defopx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3713
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3714 (put 'defmethod 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3715 (put 'defmethodx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3716 (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
3717 (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
3718 (put 'defmethodx 'texinfo-defun-type '('defmethod-type "Method"))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3719 (put 'defmethod 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3720 (put 'defmethodx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3721
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3722 (put 'defcv 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3723 (put 'defcvx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3724 (put 'defcv 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3725 (put 'defcv 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3726 (put 'defcvx 'texinfo-defun-type '('defop-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3727 (put 'defcv 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3728 (put 'defcvx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3729
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3730 (put 'defivar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3731 (put 'defivarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3732 (put 'defivar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3733 (put 'defivar 'texinfo-defun-type '('defmethod-type "Instance variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3734 (put 'defivarx 'texinfo-defun-type '('defmethod-type "Instance variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3735 (put 'defivar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3736 (put 'defivarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3737
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3738 ;;; Typed functions and variables
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3739
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3740 (put 'deftypefn 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3741 (put 'deftypefnx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3742 (put 'deftypefn 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3743 (put 'deftypefn 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3744 (put 'deftypefnx 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3745 (put 'deftypefn 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3746 (put 'deftypefnx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3747
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3748 (put 'deftypefun 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3749 (put 'deftypefunx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3750 (put 'deftypefun 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3751 (put 'deftypefun 'texinfo-defun-type '('deftypefun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3752 (put 'deftypefunx 'texinfo-defun-type '('deftypefun-type "Function"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3753 (put 'deftypefun 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3754 (put 'deftypefunx 'texinfo-defun-index 'texinfo-findex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3755
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3756 (put 'deftypevr 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3757 (put 'deftypevrx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3758 (put 'deftypevr 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3759 (put 'deftypevr 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3760 (put 'deftypevrx 'texinfo-defun-type '('deftypefn-type nil))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3761 (put 'deftypevr 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3762 (put 'deftypevrx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3763
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3764 (put 'deftypevar 'texinfo-format 'texinfo-format-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3765 (put 'deftypevarx 'texinfo-format 'texinfo-format-defunx)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3766 (put 'deftypevar 'texinfo-end 'texinfo-end-defun)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3767 (put 'deftypevar 'texinfo-defun-type '('deftypevar-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3768 (put 'deftypevarx 'texinfo-defun-type '('deftypevar-type "Variable"))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3769 (put 'deftypevar 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3770 (put 'deftypevarx 'texinfo-defun-index 'texinfo-vindex)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3771
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3772
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3773 ;;; @set, @clear, @ifset, @ifclear
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3774
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3775 ;; 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
3776 ;; 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
3777 ;; @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
3778
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3779 ;; 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
3780 ;; 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
3781 ;; @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
3782 ;; is the opposite of @ifset.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3783
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3784 ;; If a flag is set to a string with @set FLAG,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3785 ;; replace @value{FLAG} with the string.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3786 ;; If a flag with a value is cleared,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3787 ;; @value{FLAG} is invalid,
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3788 ;; 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
3789
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3790 (put 'clear 'texinfo-format 'texinfo-clear)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3791 (defun texinfo-clear ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3792 "Clear the value of the flag."
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3793 (let* ((arg (texinfo-parse-arg-discard))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3794 (flag (car (read-from-string arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3795 (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
3796 (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
3797 (put flag 'texinfo-set-value "")))
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 (put 'set 'texinfo-format 'texinfo-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3800 (defun texinfo-set ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3801 "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
3802 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
3803 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
3804 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
3805 (let* ((arg (texinfo-parse-arg-discard))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3806 (flag (car (read-from-string arg)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3807 (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
3808 (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
3809 (put flag 'texinfo-set-value value)))
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 (put 'value 'texinfo-format 'texinfo-value)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3812 (defun texinfo-value ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3813 "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
3814 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
3815 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
3816 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
3817 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3818 (cond ((and
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3819 (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
3820 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3821 (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
3822 (insert (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
3823 ((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
3824 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3825 (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
3826 ((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
3827 (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
3828
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3829 (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
3830 (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
3831 (defun texinfo-if-set ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3832 "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
3833 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3834 (cond
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3835 ((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
3836 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3837 ;; 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
3838 ())
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3839 ((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
3840 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3841 ;; 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
3842 (delete-region texinfo-command-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3843 (progn (re-search-forward "@end ifset[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3844 (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3845 ((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
3846 nil)
5118
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
3847 ;; In this case flag is neither set nor cleared.
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
3848 ;; 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
3849 ()))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3850
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3851 (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
3852 (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
3853 (defun texinfo-if-clear ()
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3854 "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
3855 (let ((arg (texinfo-parse-arg-discard)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3856 (cond
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3857 ((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
3858 'flag-set)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3859 ;; 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
3860 (delete-region texinfo-command-start
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3861 (progn (re-search-forward "@end ifclear[ \t]*\n")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3862 (point))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3863 ((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
3864 'flag-cleared)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3865 ;; 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
3866 ())
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3867 ((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
3868 nil)
5118
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
3869 ;; In this case flag is neither set nor cleared.
eec34ce70181 (texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither
Robert J. Chassell <bob@rattlesnake.com>
parents: 4982
diff changeset
3870 ;; 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
3871 ()))))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3872
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3873 ;;; @ifeq
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3874
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3875 (put 'ifeq 'texinfo-format 'texinfo-format-ifeq)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3876 (defun texinfo-format-ifeq ()
17939
533508e3c425 (texinfo-extra-inter-column-width):
Richard M. Stallman <rms@gnu.org>
parents: 17938
diff changeset
3877 "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
3878 Otherwise produces no output.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3879
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3880 Thus:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3881 @ifeq{ arg1 , arg1 , @code{foo}} bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3882
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3883 ==> `foo' bar.
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3884 but
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3885 @ifeq{ arg1 , arg2 , @code{foo}} bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3886
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3887 ==> bar
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3888
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3889 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
3890 the @ifeq command."
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3891 ;; 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
3892 (goto-char texinfo-command-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3893 (let* ((case-fold-search t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3894 (stop (save-excursion (forward-sexp 1) (point)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3895 start end
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3896 ;; @ifeq{arg1, arg2, @command{optional-args}}
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3897 (arg1
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3898 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3899 (forward-char 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3900 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3901 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3902 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3903 (skip-chars-backward ", ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3904 (buffer-substring start (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3905 (arg2
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3906 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3907 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3908 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3909 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3910 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3911 (skip-chars-backward ", ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3912 (buffer-substring start (point))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3913 (texinfo-command
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3914 (progn
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3915 (search-forward "," stop t)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3916 (skip-chars-forward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3917 (setq start (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3918 (goto-char (1- stop))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3919 (skip-chars-backward " ")
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3920 (buffer-substring start (point)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3921 (delete-region texinfo-command-start stop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3922 (if (equal arg1 arg2)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3923 (insert texinfo-command))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3924 (goto-char texinfo-command-start)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3925
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3926
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3927 ;;; Process included files: `@include' command
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3928
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3929 ;; Updated 19 October 1990
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3930 ;; In the original version, include files were ignored by Info but
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3931 ;; incorporated in to the printed manual. To make references to the
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3932 ;; 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
3933 ;; files using the `(filename)nodename' format for referring to other
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3934 ;; Info files. Also, the included files had to be formatted on their
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3935 ;; own. It was just like they were another file.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3936
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3937 ;; Currently, include files are inserted into the buffer that is
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3938 ;; formatted for Info. If large, the resulting info file is split and
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3939 ;; tagified. For current include files to work, the master menu must
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3940 ;; refer to all the nodes, and the highest level nodes in the include
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3941 ;; files must have the correct next, prev, and up pointers.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3942
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3943 ;; 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
3944 ;; but not an `\input texinfo' line.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3945
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3946 ;; Updated 24 March 1993
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3947 ;; 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
3948 ;; 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
3949 ;; 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
3950 ;; is treated like other @-commands.
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
3951 (put 'include 'texinfo-format 'texinfo-format-noop)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
3952
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3953 ;; Original definition:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3954 ;; (defun texinfo-format-include ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3955 ;; (let ((filename (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3956 ;; (default-directory input-directory)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3957 ;; subindex)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3958 ;; (setq subindex
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3959 ;; (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3960 ;; (progn (find-file
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3961 ;; (cond ((file-readable-p (concat filename ".texinfo"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3962 ;; (concat filename ".texinfo"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3963 ;; ((file-readable-p (concat filename ".texi"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3964 ;; (concat filename ".texi"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3965 ;; ((file-readable-p (concat filename ".tex"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3966 ;; (concat filename ".tex"))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3967 ;; ((file-readable-p filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3968 ;; filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3969 ;; (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
3970 ;; filename))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3971 ;; (texinfo-format-buffer-1))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3972 ;; (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
3973 ;; (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
3974 ;; (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
3975 ;; (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
3976 ;; (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
3977 ;; (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
3978 ;;
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3979 ;;(defun texinfo-subindex (indexvar file content)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3980 ;; (set indexvar (cons (list 'recurse file content)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3981 ;; (symbol-value indexvar))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3982
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3983 ;; Second definition:
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3984 ;; (put 'include 'texinfo-format 'texinfo-format-include)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3985 ;; (defun texinfo-format-include ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3986 ;; (let ((filename (concat input-directory
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3987 ;; (texinfo-parse-arg-discard)))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3988 ;; (default-directory input-directory))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3989 ;; (message "Reading: %s" filename)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3990 ;; (save-excursion
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3991 ;; (save-restriction
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3992 ;; (narrow-to-region
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3993 ;; (point)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3994 ;; (+ (point) (car (cdr (insert-file-contents filename)))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3995 ;; (goto-char (point-min))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3996 ;; (texinfo-append-refill)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3997 ;; (texinfo-format-convert (point-min) (point-max))))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
3998 ;; (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
3999 ;; ))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4000
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4001
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4002 ;;; 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
4003 ;; 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
4004
17937
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4005
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4006 ;;; 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
4007
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4008 (put 'b 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4009 (put 'i 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4010 (put 'r 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4011 (put 't 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4012 (put 'w 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4013 (put 'asis 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4014 (put 'dmn 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4015 (put 'math 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4016 (put 'titlefont 'texinfo-format 'texinfo-format-noop)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4017 (defun texinfo-format-noop ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4018 (insert (texinfo-parse-arg-discard))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4019 (goto-char texinfo-command-start))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4020
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4021 ;; @hyphenation command discards an argument within braces
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4022 (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
4023 (defun texinfo-discard-command-and-arg ()
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4024 "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
4025 (goto-char texinfo-command-end)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4026 (forward-list 1)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4027 (setq texinfo-command-end (point))
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4028 (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
4029
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4030
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4031 ;;; 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
4032 ;; 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
4033
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4034 (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
4035 (put 'smallbook 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4036 (put 'finalout 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4037 (put 'overfullrule 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4038 (put 'smallbreak 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4039 (put 'medbreak 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4040 (put 'bigbreak 'texinfo-format 'texinfo-discard-line)
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4041
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4042
4a8e23659626 (texinfmt-version): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents: 15985
diff changeset
4043 ;;; 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
4044
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4045 (put 'c 'texinfo-format 'texinfo-discard-line-with-args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4046 (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
4047 (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
4048 (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
4049 (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
4050 (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
4051 (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
4052 (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
4053 (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
4054 (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
4055 (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
4056 (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
4057
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4058 ;; @novalidate suppresses cross-reference checking and auxiliary file
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4059 ;; 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
4060 ;; 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
4061 ;; is not invoked automatically, the @novalidate command is irrelevant
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4062 ;; and not supported by texinfmt.el
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4063 (put 'novalidate 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4064
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4065 (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
4066 (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
4067 (put 'parindent 'texinfo-format 'texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4068 (put 'setchapternewpage 'texinfo-format 'texinfo-discard-line-with-args)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4069 (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
4070
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4071 (put 'setcontentsaftertitlepage
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4072 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4073 (put 'setshortcontentsaftertitlepage
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4074 'texinfo-format 'texinfo-discard-line-with-args)
c47e86637371 (texinfmt-version): Update version.
Richard M. Stallman <rms@gnu.org>
parents: 22661
diff changeset
4075
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4076 (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
4077 (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
4078 (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
4079 (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
4080 (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
4081 (put 'input 'texinfo-format 'texinfo-discard-line-with-args)
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4082
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4083
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4084 ;;; Some commands cannot be handled
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4085
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4086 (defun texinfo-unsupported ()
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4087 (error "%s is not handled by texinfo"
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4088 (buffer-substring texinfo-command-start texinfo-command-end)))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4089
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4090 ;;; Batch formatting
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4091
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4092 (defun batch-texinfo-format ()
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4093 "Runs texinfo-format-buffer on the files remaining on the command line.
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4094 Must be used only with -batch, and kills emacs on completion.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4095 Each file will be processed even if an error occurred previously.
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4096 For example, invoke
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4097 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4098 (if (not noninteractive)
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4099 (error "batch-texinfo-format may only be used -batch."))
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4100 (let ((version-control t)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4101 (auto-save-default nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4102 (find-file-run-dired nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4103 (kept-old-versions 259259)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4104 (kept-new-versions 259259))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4105 (let ((error 0)
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4106 file
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4107 (files ()))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4108 (while command-line-args-left
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4109 (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
4110 (cond ((not (file-exists-p file))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4111 (message ">> %s does not exist!" file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4112 (setq error 1
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4113 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
4114 ((file-directory-p file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4115 (setq command-line-args-left
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4116 (nconc (directory-files file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4117 (cdr command-line-args-left))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4118 (t
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4119 (setq files (cons file files)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4120 command-line-args-left (cdr command-line-args-left)))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4121 (while files
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4122 (setq file (car files)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4123 files (cdr files))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4124 (condition-case err
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4125 (progn
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4126 (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
4127 (find-file file)
4769
d1b5ca8f5493 (texinfo-format-region texinfo-format-buffer): Add ###autoload cookies.
Brian Fox <bfox@gnu.org>
parents: 4396
diff changeset
4128 (buffer-disable-undo (current-buffer))
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4129 (set-buffer-modified-p nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4130 (texinfo-mode)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4131 (message "texinfo formatting %s..." file)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4132 (texinfo-format-buffer nil)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4133 (if (buffer-modified-p)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4134 (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
4135 (save-buffer))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4136 (error
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4137 (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
4138 (message ">> point at")
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4139 (let ((s (buffer-substring (point)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4140 (min (+ (point) 100)
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4141 (point-max))))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4142 (tem 0))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4143 (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
4144 (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
4145 "\n>> "
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4146 (substring s (match-end 0)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4147 tem (1+ tem)))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4148 (message ">> %s" s))
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4149 (setq error 1))))
189
70bc47d3c6c9 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4150 (kill-emacs error))))
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
4151
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4152
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4153 ;;; Place `provide' at end of file.
3456
57089987a2de Provide texinfmt.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
4154 (provide 'texinfmt)
57089987a2de Provide texinfmt.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
4155
4396
0ab53cbfac0e Installed the version from the Texinfo package.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
4156 ;;; texinfmt.el ends here.