Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
textmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
artist.elc
159.15
KB
-rw-r--r--
bib-mode.elc
7.46
KB
-rw-r--r--
bibtex-style.elc
5.21
KB
-rw-r--r--
bibtex.elc
179.15
KB
-rw-r--r--
conf-mode.elc
38.64
KB
-rw-r--r--
css-mode.elc
62.47
KB
-rw-r--r--
dns-mode.elc
11.78
KB
-rw-r--r--
enriched.elc
15.22
KB
-rw-r--r--
fill.elc
35.71
KB
-rw-r--r--
flyspell.elc
53.93
KB
-rw-r--r--
ispell.elc
111.41
KB
-rw-r--r--
less-css-mode.elc
7.71
KB
-rw-r--r--
makeinfo.elc
6.02
KB
-rw-r--r--
mhtml-mode.elc
22.88
KB
-rw-r--r--
nroff-mode.elc
11.01
KB
-rw-r--r--
page-ext.elc
19.02
KB
-rw-r--r--
page.elc
3.57
KB
-rw-r--r--
paragraphs.elc
16.25
KB
-rw-r--r--
picture.elc
27.28
KB
-rw-r--r--
po.elc
2.64
KB
-rw-r--r--
refbib.elc
17.77
KB
-rw-r--r--
refer.elc
8.84
KB
-rw-r--r--
refill.elc
6.28
KB
-rw-r--r--
reftex-auc.elc
5.79
KB
-rw-r--r--
reftex-cite.elc
31.56
KB
-rw-r--r--
reftex-dcr.elc
11.79
KB
-rw-r--r--
reftex-global.elc
12.13
KB
-rw-r--r--
reftex-index.elc
65.86
KB
-rw-r--r--
reftex-loaddefs.el
23.92
KB
-rw-r--r--
reftex-parse.elc
25.85
KB
-rw-r--r--
reftex-ref.elc
19.53
KB
-rw-r--r--
reftex-sel.elc
21.71
KB
-rw-r--r--
reftex-toc.elc
33.69
KB
-rw-r--r--
reftex-vars.elc
80.41
KB
-rw-r--r--
reftex.elc
54.25
KB
-rw-r--r--
remember.elc
18.65
KB
-rw-r--r--
rst.elc
135.86
KB
-rw-r--r--
sgml-mode.elc
99.95
KB
-rw-r--r--
table.elc
155.49
KB
-rw-r--r--
tex-mode.elc
108.71
KB
-rw-r--r--
texinfmt.elc
83.49
KB
-rw-r--r--
texinfo.elc
46.85
KB
-rw-r--r--
texnfo-upd.elc
47.89
KB
-rw-r--r--
text-mode.elc
10.77
KB
-rw-r--r--
tildify.elc
17.44
KB
-rw-r--r--
two-column.elc
12.41
KB
-rw-r--r--
underline.elc
1.18
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : texinfmt.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar texinfmt-version "2.42 of 7 Jul 2006") #@112 Show the version of texinfmt.el in the minibuffer. If optional argument HERE is non-nil, insert info at point. (defalias 'texinfmt-version #[(&optional here) "\303\304\"\n\203 c\202 \305\306!\203 \307\310 \"\202 )\207" [texinfmt-version version-string here format-message "Version of `texinfmt.el': %s" called-interactively-p interactive message "%s"] 3 (#$ . 457) "P"]) (byte-code "\300\301!\210\300\302!\207" [require texinfo texnfo-upd] 2) (defvar texinfo-fold-nodename-case nil) #@242 An alist of next higher levels for chapters, sections, etc... For example, section to chapter, subsection to section. Used by `texinfo-raise-lower-sections'. The keys specify types of section; the values correspond to the next higher types. (defvar texinfo-raisesections-alist '((@chapter . @chapter) (@unnumbered . @unnumbered) (@centerchap . @unnumbered) (@majorheading . @majorheading) (@chapheading . @chapheading) (@appendix . @appendix) (@section . @chapter) (@unnumberedsec . @unnumbered) (@heading . @chapheading) (@appendixsec . @appendix) (@subsection . @section) (@unnumberedsubsec . @unnumberedsec) (@subheading . @heading) (@appendixsubsec . @appendixsec) (@subsubsection . @subsection) (@unnumberedsubsubsec . @unnumberedsubsec) (@subsubheading . @subheading) (@appendixsubsubsec . @appendixsubsec)) (#$ . 955)) #@240 An alist of next lower levels for chapters, sections, etc... For example, chapter to section, section to subsection. Used by `texinfo-raise-lower-sections'. The keys specify types of section; the values correspond to the next lower types. (defvar texinfo-lowersections-alist '((@chapter . @section) (@unnumbered . @unnumberedsec) (@centerchap . @unnumberedsec) (@majorheading . @heading) (@chapheading . @heading) (@appendix . @appendixsec) (@section . @subsection) (@unnumberedsec . @unnumberedsubsec) (@heading . @subheading) (@appendixsec . @appendixsubsec) (@subsection . @subsubsection) (@unnumberedsubsec . @unnumberedsubsubsec) (@subheading . @subsubheading) (@appendixsubsec . @appendixsubsubsec) (@subsubsection . @subsubsection) (@unnumberedsubsubsec . @unnumberedsubsubsec) (@subsubheading . @subsubheading) (@appendixsubsubsec . @appendixsubsubsec)) (#$ . 1788)) (defvar texinfo-format-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\312#\210\302\314\312#\210\302\315\312#\210\302\316\317#\210\302\320\321#\210\302\322\312#\210)\207" [st make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "." 93 40 41 123 "(}" 125 "){" 39] 4)) #@348 Process the current buffer as texinfo code, into an Info file. The Info file output is generated in a buffer visiting the Info file name specified in the @setfilename command. Non-nil argument (prefix, if interactive) means don't make tag table and don't split the file if large. You can use `Info-tagify' and `Info-split' to do these manually. (defalias 'texinfo-format-buffer #[(&optional nosplit) "\305\306\n!\210~\210\307 \210\310 \210 \204& \311 \312\f\\V\203& \306\313\211!\210\314 \210\306\n\315\316!\2032 \317\2023 \320P!*\207" [buffer-file-coding-system coding-system-for-write lastmessage nosplit Info-split-threshold "Formatting Info file..." message texinfo-format-buffer-1 Info-tagify buffer-size 50000 "Splitting Info file..." Info-split called-interactively-p interactive "done. Now save it." "done."] 4 (#$ . 3035) "P"]) #@64 Name of the temporary buffer used by \[texinfo-format-region]. (defvar texinfo-region-buffer-name "*Info Region*" (#$ . 3885)) #@171 Hook called before the conversion of the Texinfo file to Info format. The functions on this hook are called with argument BUFFER, the buffer containing the Texinfo file. (defvar texinfo-pre-format-hook nil (#$ . 4019)) #@252 Convert the current region of the Texinfo file to Info format. This lets you see what that part of the file will look like in Info. The command is bound to \[texinfo-format-region]. The text that is converted to Info is stored in a temporary buffer. (defalias 'texinfo-format-region #[(region-beginning region-end) "\306\307!\210\310\211\211\211\211\211\211\211\211\211\311\310\211\211\211\312\310p \311\313\211 @ A B C D E F G H I J K L M N O P Q R\212\214~\210eb\210\314\315! S\316TS\317#\313y\210`\203n \316U\310\317#\320 \210`\204\204 eb\210\316\321S\317#\320 \210`\313y\210`\203\214 \322 V^\n\"+\323\324W!!\210\317\211X Y\325 \210\fc\210\326@V\n]Z#\210\327\330@\"\210h\331U\204\272 \332c\210eb\210\333 \210\306\307!\210A\334[!\210\335\336\310\317#\203`Q \337 P \\\340\336!\210`\314\341!|\210\306\342\\\"\210\212\214``\343\\!A@\\}\210eb\210\335\344\345\346!\317#\203\314\313!\314\341!|\210+\202\314 eb\210\347 \210eb\210\350 \210db\210\340\351\310\317#\203.`d|\210h\331U\2047\332c\210\310\211]^eb\210\352\353!\203L`\314\341!|\210eb\210\316\321\314\315!\317#\203\200`Q\320 \210`R\354 _\355W\356\357!\261\210\360\361_!!c\210\356\362!c\210)\202\207\355W\363\261\210\356\364!\365\366@!\203\240\356\367\370\360\366@!!!\"\202\247\356\371\372@!\"\356\373!`\374\261\210eb\210\375 \210eb\210\376@!\210eb\210\306\377!.\207" [fill-column default-directory header-end header-beginning header-text input-directory message "Converting region to Info format..." nil "" 0 1 line-beginning-position 101 search-forward t beginning-of-line "@setfilename" buffer-substring-no-properties switch-to-buffer get-buffer-create erase-buffer insert-buffer-substring run-hook-with-args texinfo-pre-format-hook 10 "\n" texinfo-mode set-syntax-table re-search-forward "^@include" texinfo-parse-line-arg re-search-backward 2 "Reading included file: %s" insert-file-contents "^@setfilename" line-end-position 100 texinfo-raise-lower-sections texinfo-append-refill "^@bye" looking-at "\\\\input[ ]+texinfo" texinfo-parse-arg-discard " " format-message " buffer for: `" file-name-nondirectory expand-file-name "', -*-Text-*-\n" " buffer -*-Text-*-\n" "produced by `texinfo-format-region'\n" "from a region in: " buffer-file-name "`%s'" file-name-sans-versions "buffer `%s'" buffer-name "\nusing `texinfmt.el' version " ".\n\n" texinfo-format-scan Info-tagify "Done." input-buffer fill-column-for-info last-input-buffer texinfo-footnote-number texinfo-node-names texinfo-last-node texinfo-last-node-pos texinfo-example-start texinfo-format-filename texinfo-stack texinfo-kindex texinfo-tindex texinfo-pindex texinfo-cindex texinfo-findex texinfo-vindex texinfo-command-name texinfo-command-end texinfo-command-start search-end tex-start-of-header tex-end-of-header region-beginning texinfo-region-buffer-name buffer-read-only inhibit-read-only region-end texinfo-format-syntax-table filename texinfo-enclosure-list texinfo-alias-list arg texinfmt-version] 24 (#$ . 4245) "r"]) #@561 Convert the current buffer (written in Texinfo code) into an Info file. The Info file output is generated in a buffer visiting the Info file names specified in the @setfilename command. This function automatically updates all node pointers and menus, and creates a master menu. This work is done on a temporary buffer that is automatically removed when the Info file is created. The original Texinfo source buffer is not changed. Non-nil argument (prefix, if interactive) means don't split the file if large. You can use `Info-split' to do this manually. (defalias 'texi2info #[(&optional nosplit) "\302\303 \304Q\305\306!\210\307ed#\210\310!\210\311\312!\210\305\313!\210\314\315!\210\316 !\210\317 \210\320!)\207" [temp-buffer nosplit "*--" buffer-name "--temporary-buffer*" message "First updating nodes and menus, then creating Info file." copy-to-buffer switch-to-buffer texinfo-master-menu t "Now creating Info file." sit-for 2 texinfo-format-buffer save-buffer kill-buffer] 4 (#$ . 7285) "P"]) (defalias 'texinfo-format-buffer-1 #[nil "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211\307\306\211p : ; < = > ? @ A B C D E F G H I J\306\211KL\212eb\210\310\311\306\312#\204Q \313\314!\210`G\315 )\316 !\210\317 \210\320 \210\321 \210\322\323 \"\210\324\325 !!J\f\326M!\210\327 !\210\330\331 \"\210\322\332\333 !\"\210eb\210\334\335\306\312#\203\322 `G\n\315 P N\336\335!\210`\337\340!|\210\322\341N\"\210\212\214``\342N!A@\\}\210eb\210\334\343\344\345!\312#\203\316 \337\346!\337\340!|\210+\202\213 eb\210\347 \210eb\210\350 \210eb\210\310\311!\210\351 \210e`|\210db\210\352\353\306\312#\203\373 `d|\210h\354U\204\355c\210\356 \210eb\210\357J\360\361\362!\363\364 !\203%\361\365\366\324\364 !!!\"\202+\361\367\333 !\"\361\370!O\371\261 \210 CBA@?>\257.\207" [fill-column default-directory input-directory input-buffer fill-column-for-info outfile nil 0 search-forward "@setfilename" t error "Texinfo file needs an `@setfilename FILENAME' line" texinfo-parse-line-arg find-file texinfo-mode erase-buffer buffer-disable-undo message "Formatting Info file: %s" file-name-nondirectory expand-file-name set-syntax-table insert-buffer-substring run-hook-with-args texinfo-pre-format-hook "Converting %s to Info format..." buffer-name re-search-forward "^@include" re-search-backward line-beginning-position 2 "Reading included file: %s" insert-file-contents "^@setfilename" line-end-position 100 1 texinfo-raise-lower-sections texinfo-append-refill beginning-of-line search-backward "@bye" 10 "\n" texinfo-format-scan "Info file: " ", -*-Text-*-\n" format-message "produced by `texinfo-format-buffer'\n" "from file" buffer-file-name " `%s'" file-name-sans-versions "buffer `%s'" "\nusing `texinfmt.el' version " ".\n\n" last-input-buffer texinfo-footnote-number texinfo-node-names texinfo-stack texinfo-kindex texinfo-tindex texinfo-pindex texinfo-cindex texinfo-findex texinfo-vindex texinfo-last-node-pos texinfo-last-node texinfo-command-name texinfo-command-end texinfo-command-start texinfo-example-start texinfo-format-filename texinfo-enclosure-list texinfo-alias-list texinfo-format-syntax-table filename texinfmt-version] 22]) (defalias 'texinfo-format-convert #[(min max) "b\210\302\303 \304#\203 \305\306!\210\202 b\210\302\307 \304#\203$ \305\306!\210\202 b\210\310\311 \304#\205; \312\224T\312\211\224\\|\210\202' \207" [min max search-forward "``" t replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" 2] 4]) #@68 Regexp specifying environments in which paragraphs are not filled. (defvar texinfo-no-refill-regexp "^@\\(direntry\\|lisp\\|smalllisp\\|example\\|smallexample\\|display\\|smalldisplay\\|format\\|smallformat\\|flushleft\\|flushright\\|menu\\|multitable\\|titlepage\\|iftex\\|ifhtml\\|tex\\|html\\)" (#$ . 10802)) (defvar texinfo-accent-commands "@[\"',=^`~]\\|@OE{\\|@oe{\\|@AA{\\|@aa{\\|@AE{\\|@ae{\\|@ss{\\|@questiondown{\\|@exclamdown{\\|@L{\\|@l{\\|@O{\\|@o{\\|@dotaccent{\\|@ubaraccent{\\|@d{\\|@H{\\|@ringaccent{\\|@tieaccent{\\|@u{\\|@v{\\|@dotless{") #@55 Regexp specifying @-commands found within paragraphs. (defvar texinfo-part-of-para-regexp (concat "^@\\(b{\\|bullet{\\|cite{\\|code{\\|email{\\|emph{\\|equiv{\\|error{\\|expansion{\\|file{\\|i{\\|inforef{\\|kbd{\\|key{\\|lisp{\\|minus{\\|point{\\|print{\\|pxref{\\|r{\\|ref{\\|result{\\|samp{\\|sc{\\|t{\\|TeX{\\|today{\\|url{\\|var{\\|w{\\|xref{\\|@-\\|" texinfo-accent-commands "\\)") (#$ . 11366)) #@205 Append @refill at end of each paragraph that should be filled. Do not append @refill to paragraphs within @example and similar environments. Do not append @refill to paragraphs containing @w{TEXT} or @*. (defalias 'texinfo-append-refill #[nil "`dW\205\227 \306\307\310 \210\311\312 P!\203- \311\313\n\314 \315\260!\204- `dW\203- \316y\210\202 \311\n!\203F \317\316! \320\321\fP\307\322#\210\316y\210)\202\223 `dY\204[ \320\323\212\324 \210\325\326!)\322#\203a \324 \210\202\223 \324 \210\327y\210` \307\210`\212\330\307x\210`)|\210\316u\210\331\332 \322#\204\204 \327u\210\331\333 \322#\204\217 \334c\210)\316y\210*\202 \207" [case-fold-search refill-blank-lines texinfo-no-refill-regexp texinfo-part-of-para-regexp environment line-beg "^[ \n]*$" nil beginning-of-line looking-at "^@\\|^\\\\\\|" "\\(" "\\|" "\\)" 1 match-string-no-properties re-search-forward "^@end " t "@w{\\|@\\*\\|@\n\n" forward-paragraph line-beginning-position 2 -1 " " re-search-backward "@c[ \n]\\|@comment[ \n]" "@refill\\|^[ ]*@" "@refill"] 6 (#$ . 11774)]) #@1278 Raise or lower the hierarchical level of chapters, sections, etc. This function acts according to `@raisesections' and `@lowersections' commands in the Texinfo file. For example, an `@lowersections' command is useful if you wish to include what is written as an outer or standalone Texinfo file in another Texinfo file as an inner, included file. The `@lowersections' command changes chapters to sections, sections to subsections and so on. @raisesections changes @subsection to @section, @section to @chapter, @heading to @chapheading, etc. @lowersections changes @chapter to @section, @subsection to @subsubsection, @heading to @subheading, etc. An `@raisesections' or `@lowersections' command changes only those structuring commands that follow the `@raisesections' or `@lowersections' command. An `@lowersections' command cancels an `@raisesections' command, and vice versa. Repeated use of the commands continue to raise or lower the hierarchical level a step at a time. An attempt to raise above `chapters' reproduces chapter commands; an attempt to lower below subsubsections reproduces subsubsection commands. (defalias 'texinfo-raise-lower-sections #[nil "\306\307\310\311\n\312Q\306\313#\205\225 \314 \210\212\315p!) \316\267\2026 T`\317\320!|\210\202 S`\317\320!|\210\202 \307V\203_ \211 \307V\203R \236A\fS\211\202A \321\322!\210\323 !c\210*\202 \307U\203k \322y\210\202 \307W\203 \211 \307W\203\210 \236A\fT\211\202v \321\322!\210\323 !c\210*\202 *\207" [level type texinfo-section-types-regexp new-level count texinfo-raisesections-alist nil 0 re-search-forward "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\(" "\\)\\)" t beginning-of-line read #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (@raisesections 30 @lowersections 42)) line-beginning-position 2 kill-word 1 symbol-name texinfo-lowersections-alist] 5 (#$ . 12830)]) (defalias 'texinfo-format-scan #[nil "\306ed\"\210eb\210\307\310\311\312#\203 \313 \210\307\314\311\312#\203' \315\224\315\225|\210\316 \210\202 eb\210\307\317\311\312#\203\\\320\321!\203\342 g\322U\203P `S`T|\210g\323U\204* \323c\210\202* g\324U\203_ `S`T|\210\202* g\325U\203w `S`T|\210g\323U\204* \325c\210\202* g\326U\203\217 `S`T|\210g\323U\204* \325c\210\202* g\323U\203\247 `S`T|\210g\323U\204* \325c\210\202* \327\330!\210\320\331!\203\334 `Tf\332U\203\276 \333\334g\"\210\335u\210\320\336!\203* `\337\335!\210\327\330!\210b\210\327\335!\210)\202* \335u\210\202* `Sgz\340U\203\363 \341\335!\210\202\366 \335u\210` Tb\210\342\nw\210`\311\343 T\n\" \344 \"\211\203\fA\202\n\345 !*-\344\346-!.\"\211 /\203C/A@@\347 /A@A@\261\210 b\210\202X-\350N\211 0\203T0 \210\202W\351 \210))\202* 1\203p\3521@8b\210\333\3531@@\"\210\312 2\354 )\207" [start texinfo-command-start texinfo-command-end cmdname trial texinfo-alias-list texinfo-format-convert search-forward "@copying" nil t texinfo-copying "@insertcopying" 0 texinfo-insertcopying "@" looking-at "[@{}^'`\"=~ \n*?!-]" 42 10 45 32 9 delete-char -1 "[\"'^`~=]" 64 error "Use braces to give a command as an argument to @%c" 1 "{" forward-list 119 forward-word-strictly "^@" buffer-substring-no-properties assoc intern symbol-name texinfo-parse-arg-discard texinfo-format texinfo-unsupported 2 "Unterminated @%s" whitespace-cleanup texinfo-command-name texinfo-enclosure-list enclosure-type cmd texinfo-stack whitespace-silent] 5]) #@55 Text of the copyright notice and copying permissions. (defvar texinfo-copying-text "" (#$ . 16418)) #@178 Copy the copyright notice and copying permissions from the Texinfo file, as indicated by the @copying ... @end copying command; insert the text with the @insertcopying command. (defalias 'texinfo-copying #[nil "\303 \210`\304\305!\210`\306\212 b\210\307\310!)\212b\210\307\311!)\" |*\207" [end beg texinfo-copying-text beginning-of-line re-search-forward "^@end copying[ ]*\n" buffer-substring-no-properties line-beginning-position 2 0] 4 (#$ . 16525)]) #@138 Insert the copyright notice and copying permissions from the Texinfo file, which are indicated by the @copying ... @end copying command. (defalias 'texinfo-insertcopying #[nil "\301Pc\207" [texinfo-copying-text "\n"] 2 (#$ . 16992)]) (put 'begin 'texinfo-format 'texinfo-format-begin) (defalias 'texinfo-format-begin #[nil "\300\301!\207" [texinfo-format-begin-end texinfo-format] 2]) (put 'end 'texinfo-format 'texinfo-format-end) (defalias 'texinfo-format-end #[nil "\300\301!\207" [texinfo-format-begin-end texinfo-end] 2]) (defalias 'texinfo-format-begin-end #[(prop) "\303\304 !\211 N\211\203 \n \202 \305 )\207" [texinfo-command-name prop cmd intern texinfo-parse-line-arg texinfo-unsupported] 3]) #@260 Return argument of @-command as string. Argument is separated from command either by a space or by a brace. If a space, return rest of line, with beginning and ending white space removed. If a brace, return string between braces. Leave point after argument. (defalias 'texinfo-parse-line-arg #[nil "b\210`\302\303!\203% \303\304w\210`\304\210\303\304x\210`\304\210`|\210`T\202> \302\305!\203: `T\306\307!\210`\310u\210\202> \311\312!\210\313 `\"l\203I \307u\210)\207" [texinfo-command-end start looking-at " " nil "{" forward-list 1 -1 error "Invalid texinfo command arg format" buffer-substring-no-properties] 3 (#$ . 17708)]) (defalias 'texinfo-parse-expanded-arg #[nil "b\210`\303\304\305!\203 \305\303w\210`\303\210`T\2025 \304\306!\2031 `T\307\310!\210`\311u\210\2025 \312\313!\210\314 \303\223\315\n`\"\210\316 ! \303\211\223\210\317\n`\"l\203T \310u\210*\207" [texinfo-command-end marker start nil looking-at " " "{" forward-list 1 -1 error "Invalid texinfo command arg format" make-marker texinfo-format-expand-region marker-position buffer-substring-no-properties] 3]) (defalias 'texinfo-format-expand-region #[(start end) "\214 }\210\306\211\211\211 \307 \210,db)\207" [start end texinfo-stack texinfo-command-name texinfo-command-end texinfo-command-start nil texinfo-format-scan] 4]) #@58 Delete command and argument; return argument of command. (defalias 'texinfo-parse-arg-discard #[nil "\300 \301 \210\207" [texinfo-parse-line-arg texinfo-discard-command] 2 (#$ . 19035)]) (defalias 'texinfo-discard-command #[nil " |\207" [texinfo-command-start texinfo-command-end] 2]) #@43 Discard braces following command, if any. (defalias 'texinfo-optional-braces-discard #[nil "b\210`\303\304!\204 \303\305!\203 \306\307!\210`\202 \310\311!\210\n|)\207" [texinfo-command-end start texinfo-command-start looking-at "[ ]*\n" "{" forward-list 1 error "Invalid `texinfo-optional-braces-discard' format (need braces?)"] 2 (#$ . 19327)]) (defalias 'texinfo-format-parse-line-args #[nil "`S\306\211\211\211 \307\306w\210l\204B `\310\311!\210`n\203\" S\312u\210\307\306x\210`\211\nV\2055 \313\n \"B b\210\307\306w\210\202 l\203I \314u\210`\237-\207" [args end beg next start texinfo-command-end nil " " re-search-forward "[\n,]" -1 buffer-substring-no-properties 1] 6]) (defalias 'texinfo-format-parse-args #[nil "`S\306\211\211\211 \307\310!\210\212\311`\212\312\313!\210`S)\"\210)h\314U\204c \315\306w\210`\316\317!\210`\320u\210\315\306x\210`\n W\203P \nb\210\307\321 \322#\203P \323\324!\210\202A \nV\205Z \325\n \"B b\210\202 `\237-\207" [args end beg next start texinfo-command-end nil search-forward "{" texinfo-format-expand-region up-list 1 125 " \n" re-search-forward "[},]" -1 "\n" t replace-match " " buffer-substring-no-properties] 5]) (defalias 'texinfo-format-parse-defun-args #[nil "b\210`\306\210`T\307 \306\223\310 `\"\210\311\n!\n\306\211\223\210) b\210\306\211\211 \312\306w\210l\204] \313\314!\203D `T\315\316!\210`S\202O `\317\320!\210\321u\210`\322\f \" B\312\306w\210\202- \316u\210 \237,\207" [texinfo-command-end start marker end beg args nil make-marker texinfo-format-expand-region marker-position " " looking-at "{" forward-list 1 re-search-forward "[\n ]" -1 buffer-substring-no-properties] 3]) (defalias 'texinfo-discard-line #[nil "b\210\302\303w\210l\204 \304\305!\210 b\210n\204 \304\306!\210`\307y\210`|\207" [texinfo-command-end texinfo-command-start " " nil error "Extraneous text at end of command line" "Extraneous text at beginning of command line" 1] 2]) (defalias 'texinfo-discard-line-with-args #[nil "b\210`\301y\210`|\207" [texinfo-command-start 1] 2]) (put 'setfilename 'texinfo-format 'texinfo-format-setfilename) (defalias 'texinfo-format-setfilename #[nil "\300 \207" [texinfo-parse-arg-discard] 1]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put node texinfo-format texinfo-format-node nwnode] 4) (defalias 'texinfo-format-node #[nil "\306 \211@A@\3078\3108 \311 \210 \203! \227\202\" \312\"\2035 \313\314 \"\210\202= CB)\315\316\317 \261\210\n\203R \320\n\261\210 \203[ \321 \261\210\f\203d \322\f\261\210\323c\210`\211-\207" [args name next prev up texinfo-last-node texinfo-format-parse-line-args 2 3 texinfo-discard-command assoc error "Duplicate node name: %s" 0 "\n \nFile: " ", Node: " ", Next: " ", Prev: " ", Up: " 10 texinfo-fold-nodename-case tem texinfo-node-names texinfo-footnote-number texinfo-format-filename texinfo-last-node-pos] 5]) (put 'anchor 'texinfo-format 'texinfo-anchor) (defalias 'texinfo-anchor #[nil "\304`\305Z\306 \307\310!\203 \311\312!\210\313 \210`\212\314\312!\210\315\316 \317#)\203+ \320\202- \321) b\210\n\322\323\261+\207" [arg here anchor-string end nil 7 texinfo-parse-arg-discard looking-at " " delete-char 1 forward-paragraph backward-word-strictly search-forward "@refill" t "@anchor-yes-refill" "@anchor-no-refill" "{" "}"] 4]) (put 'menu 'texinfo-format 'texinfo-format-menu) (defalias 'texinfo-format-menu #[nil "\300 \210\301c\207" [texinfo-discard-line "* Menu:\n\n"] 1]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\304\302\303#\210\300\307\305\310#\210\300\311\305\310#\207" [put menu texinfo-end texinfo-discard-command detailmenu texinfo-format texinfo-discard-line ref texinfo-format-xref xref] 4) (defalias 'texinfo-format-xref #[nil "\302 \303 \210\304c\210A@\206 \3058\211\204% \3068\204% @\307\261\202E \206+ @\310\261\210\3068\203= \311\3068\312\261\210@\205E @c*\207" [args fname texinfo-format-parse-args texinfo-discard-command "*Note " 2 3 "::" ": " "(" ")"] 4]) (put 'pxref 'texinfo-format 'texinfo-format-pxref) (defalias 'texinfo-format-pxref #[nil "\300 \210\212\301u\210\302\303!)\206 \304c\207" [texinfo-format-xref -2 looking-at "::" "."] 2]) (put 'inforef 'texinfo-format 'texinfo-format-inforef) (defalias 'texinfo-format-inforef #[nil "\301 \302 \210A@\203 \303A@\304\3058\306@\261\202' \303\307\3058\306@\310\261)\207" [args texinfo-format-parse-args texinfo-discard-command "*Note " ": (" 2 ")" "(" "::"] 6]) (put 'uref 'texinfo-format 'texinfo-format-uref) #@152 Format URL and optional URL-TITLE. Insert \=` ... \=' around URL if no URL-TITLE argument; otherwise, insert URL-TITLE followed by URL in parentheses. (defalias 'texinfo-format-uref #[nil "\301 \302 \210A@\203 A@\303@\304\261\202 \305@\306\261)\207" [args texinfo-format-parse-args texinfo-discard-command " (" ")" "`" "'"] 4 (#$ . 23877)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\207" [put majorheading texinfo-format texinfo-format-chapter chapheading ichapter chapter iappendix appendix iunnumbered top unnumbered centerchap] 4) (defalias 'texinfo-format-chapter #[nil "\300\301!\207" [texinfo-format-chapter-1 42] 2]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\207" [put heading texinfo-format texinfo-format-section isection section iappendixsection appendixsection iappendixsec appendixsec iunnumberedsec unnumberedsec] 4) (defalias 'texinfo-format-section #[nil "\300\301!\207" [texinfo-format-chapter-1 61] 2]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put subheading texinfo-format texinfo-format-subsection isubsection subsection iappendixsubsec appendixsubsec iunnumberedsubsec unnumberedsubsec] 4) (defalias 'texinfo-format-subsection #[nil "\300\301!\207" [texinfo-format-chapter-1 45] 2]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put subsubheading texinfo-format texinfo-format-subsubsection isubsubsection subsubsection iappendixsubsubsec appendixsubsubsec iunnumberedsubsubsec unnumberedsubsubsec] 4) (defalias 'texinfo-format-subsubsection #[nil "\300\301!\207" [texinfo-format-chapter-1 46] 2]) (defalias 'texinfo-format-chapter-1 #[(belowchar) "\302 \303\304\"\210\305\305\306 \305\261\210\307y)\207" [arg belowchar texinfo-parse-arg-discard message "Formatting: %s ... " 10 "@SectionPAD " -2] 6]) (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad) (defalias 'texinfo-format-sectionpad #[nil "\302 \303u\210i\304u\210 \305V\203 c\210 S\211\202\f )\306c)\207" [str column texinfo-parse-arg-discard -1 1 0 10] 3]) (put '\. 'texinfo-format 'texinfo-format-\.) (defalias 'texinfo-format-\. #[nil "\300 \210\301c\207" [texinfo-discard-command "."] 1]) (put : 'texinfo-format 'texinfo-format-:) (defalias 'texinfo-format-: #[nil "\300 \207" [texinfo-discard-command] 1]) (put '- 'texinfo-format 'texinfo-format-soft-hyphen) (defalias 'texinfo-format-soft-hyphen #[nil "\300 \207" [texinfo-discard-command] 1]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\314#\207" [put kbdinputstyle texinfo-format texinfo-discard-line-with-args vskip evenfooting evenheading oddfooting oddheading everyfooting everyheading documentdescription texinfo-format-documentdescription] 4) (defalias 'texinfo-format-documentdescription #[nil "\301\302!\210`|\207" [texinfo-command-start re-search-forward "^@end documentdescription[ ]*\n"] 3]) (put 'center 'texinfo-format 'texinfo-format-center) (defalias 'texinfo-format-center #[nil "\302 \303 \210c\210\304c\210\214`Sb\210\305\306 +\207" [arg indent-tabs-mode texinfo-parse-expanded-arg texinfo-discard-command 10 nil center-line] 1]) (put 'sp 'texinfo-format 'texinfo-format-sp) (defalias 'texinfo-format-sp #[nil "\302 \303!\304\305 \"*\207" [arg num texinfo-parse-arg-discard read insert-char 10] 3]) (put 'br 'texinfo-format 'texinfo-format-paragraph-break) #@75 Force a paragraph break. If used within a line, follow `@br' with braces. (defalias 'texinfo-format-paragraph-break #[nil "\300 \210g\301U\203\f \301c\207\302\301\303\"\207" [texinfo-optional-braces-discard 10 insert-char 2] 3 (#$ . 27848)]) #@41 Footnote style, either separate or end. (defvar texinfo-footnote-style "separate" (#$ . 28096)) (put 'footnotestyle 'texinfo-format 'texinfo-footnotestyle) #@104 Specify whether footnotes are at end of node or in separate nodes. Argument is either end or separate. (defalias 'texinfo-footnotestyle #[nil "\301 \211\207" [texinfo-footnote-style texinfo-parse-arg-discard] 2 (#$ . 28259)]) (put 'footnote 'texinfo-format 'texinfo-format-footnote) #@134 Format a footnote in either end of node or separate node style. The texinfo-footnote-style variable controls which style is used. (defalias 'texinfo-format-footnote #[nil "T \302\230\203\f \303 \207 \304\230\205 \305 \207" [texinfo-footnote-number texinfo-footnote-style "end" texinfo-format-end-node "separate" texinfo-format-separate-node] 2 (#$ . 28550)]) #@104 Format footnote in Separate node style, with notes in own node. The node is constructed automatically. (defalias 'texinfo-format-separate-node #[nil "\306\307 \212\310\311!\210\312\225)\212\313\nb\210\314\306w\210`\315\316\317 \320#\203& `S\202* \306\210`\")\321 \210\212\322\306x\210`)`|\210\323\324\f #c\210\325\306!\210\212\326\327\306\330#\203Q \331y\210\212\332 \333P\n\320#)\203m `\323\334\f #c\210\335`\"\202\217 \336 \337 \333 \340\261\210`\323\334\f #c\210\212b\210`)`}\210\335ed\"\210~-\207" [start arg node-name-beginning node-name texinfo-footnote-number texinfo-format-filename nil texinfo-parse-line-arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ ]+Node:" 0 buffer-substring-no-properties " " search-forward "," line-end-position t texinfo-discard-command " \n" format " (%d) (*Note %s-Footnotes::)" fill-paragraph re-search-forward "^@node" move -1 search-backward "-Footnotes, Up: " "\n(%d) %s\n" fill-region "\n \nFile: " " Node: " "\n"] 7 (#$ . 28922)]) #@70 Format footnote in the End of node style, with notes at end of node. (defalias 'texinfo-format-end-node #[nil "\303\304 \305 \210\212\306\303x\210`)`|\210\307\310\n\"c\210\311\303!\210\212\312\313\303\314#\203@ \315\316\303\317#\2030 \320y\210`\307\321\n#c\210\322 `\"\202V \315\316\303\317#\203K \320y\210\313c\210`\307\321\n#c+\207" [arg start texinfo-footnote-number nil texinfo-parse-line-arg texinfo-discard-command " \n" format " (%d) " fill-paragraph search-forward "\n--------- Footnotes ---------\n" t re-search-forward "^@node" move -1 "\n(%d) %s\n" fill-region] 4 (#$ . 29932)]) #@127 Count of number of unpopped texinfo-push-stack calls. Used by @refill indenting command to avoid indenting within lists, etc. (defvar texinfo-stack-depth 0 (#$ . 30537)) (defalias 'texinfo-push-stack #[(check arg) "T \n E\fB\211\207" [texinfo-stack-depth check arg texinfo-command-start texinfo-stack] 3]) (defalias 'texinfo-pop-stack #[(check) "S \204\f \303\304\n\"\210 @@\n=\204 \303\305\n @@#\210 @A A\207" [texinfo-stack-depth texinfo-stack check error "Unmatched @end %s" "@end %s matches @%s"] 4]) (put 'itemize 'texinfo-format 'texinfo-itemize) (defalias 'texinfo-itemize #[nil "\301\302\303\304w\210l\203 \305\202 \306 \"\210\307 \210\310Z\211\207" [fill-column texinfo-push-stack itemize " " nil "@bullet" texinfo-parse-line-arg texinfo-discard-line-with-args 5] 4]) (put 'itemize 'texinfo-end 'texinfo-end-itemize) (defalias 'texinfo-end-itemize #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack itemize texinfo-do-itemize] 2]) (put 'enumerate 'texinfo-format 'texinfo-enumerate) (defalias 'texinfo-enumerate #[nil "\302\303\304\305w\210l\203 \306\202 \307p!\"\210@A@9\203+ \306\310@A@!GV\203+ \311\312!\210\313 \210 \314Z\211\207" [texinfo-stack fill-column texinfo-push-stack enumerate " " nil 1 read symbol-name error "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." texinfo-discard-line-with-args 5] 4]) (put 'enumerate 'texinfo-end 'texinfo-end-enumerate) (defalias 'texinfo-end-enumerate #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack enumerate texinfo-do-itemize] 2]) (put 'alphaenumerate 'texinfo-format 'texinfo-alphaenumerate) (defalias 'texinfo-alphaenumerate #[nil "\301\302\303\"\210\304Z\305 \207" [fill-column texinfo-push-stack alphaenumerate 96 5 texinfo-discard-line] 3]) (put 'alphaenumerate 'texinfo-end 'texinfo-end-alphaenumerate) (defalias 'texinfo-end-alphaenumerate #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack alphaenumerate texinfo-do-itemize] 2]) (put 'capsenumerate 'texinfo-format 'texinfo-capsenumerate) (defalias 'texinfo-capsenumerate #[nil "\301\302\303\"\210\304Z\305 \207" [fill-column texinfo-push-stack capsenumerate 64 5 texinfo-discard-line] 3]) (put 'capsenumerate 'texinfo-end 'texinfo-end-capsenumerate) (defalias 'texinfo-end-capsenumerate #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack capsenumerate texinfo-do-itemize] 2]) (defalias 'texinfo-do-itemize #[(from) "\212\301y\210`Y\205. g\302U\203 \212\303\304!\210\305\210\303\306!\210)\202 \307\310!\204 \212\311c\210)\202 )\207" [from -1 8 delete-char 1 nil 6 looking-at "[ ]*$" " "] 2]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put item texinfo-format texinfo-item itemx] 4) (defalias 'texinfo-item #[nil "@@\301N \207" [texinfo-stack texinfo-item] 2]) (put 'itemize 'texinfo-item 'texinfo-itemize-item) (defalias 'texinfo-itemize-item #[nil "`T\301 |\210\302\303!\203 \304@A@\305\261\210\202! \304@A@\306\261\210\307y\207" [texinfo-stack line-beginning-position looking-at "[ ]*[^ \n]+" " " " \n" " " -1] 3]) (put 'enumerate 'texinfo-item 'texinfo-enumerate-item) (defalias 'texinfo-enumerate-item #[nil "\302 \210\303 @A@\250\203% @A@\304\305\306\"\307\261\210 @AT\240\210\202e @A@9\203a \310 @A@!\311!\312\232\204D \311!\313\232\203H \314\315!\210\304\305\316\"\307\261\210 @A\317\320\311!T!!\240\210\202e \314\321!\210\322y)\207" [enumerating-symbol texinfo-stack texinfo-discard-line nil 8 format "%3d. " 10 symbol-name string-to-char 91 123 error "Too many items in enumerated list; alphabet ends at Z." "%3s. " make-symbol char-to-string "@enumerate: Use a number or letter, eg: 1, A, a, 3, B or d." -1] 5]) (put 'alphaenumerate 'texinfo-item 'texinfo-alphaenumerate-item) (defalias 'texinfo-alphaenumerate-item #[nil "\302 \210@A@T\211\303V\203 \304\305!\210@A \240\210\306 \307\261\210)\310y\207" [texinfo-stack next texinfo-discard-line 122 error "More than 26 items in @alphaenumerate; get a bigger alphabet" " " ". \n" -1] 4]) (put 'capsenumerate 'texinfo-item 'texinfo-capsenumerate-item) (defalias 'texinfo-capsenumerate-item #[nil "\302 \210@A@T\211\303V\203 \304\305!\210@A \240\210\306 \307\261\210)\310y\207" [texinfo-stack next texinfo-discard-line 90 error "More than 26 items in @capsenumerate; get a bigger alphabet" " " ". \n" -1] 4]) (put 'table 'texinfo-format 'texinfo-table) (defalias 'texinfo-table #[nil "\301\302\303\304w\210l\203 \305\202 \306 \"\210\307 \210\310Z\211\207" [fill-column texinfo-push-stack table " " nil "@asis" texinfo-parse-line-arg texinfo-discard-line-with-args 5] 4]) (put 'table 'texinfo-item 'texinfo-table-item) (defalias 'texinfo-table-item #[nil "\303 @A@\304 \305\n\306\261\210*\307y\207" [texinfo-stack itemfont arg texinfo-parse-arg-discard 8 123 "}\n \n" -2] 5]) (put 'table 'texinfo-end 'texinfo-end-table) (defalias 'texinfo-end-table #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack table texinfo-do-itemize] 2]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put description texinfo-end texinfo-end-table texinfo-format texinfo-description] 4) (defalias 'texinfo-description #[nil "\301\302\303\"\210\304Z\305 \207" [fill-column texinfo-push-stack table "@asis" 5 texinfo-discard-line] 3]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put ftable texinfo-format texinfo-ftable vtable texinfo-vtable] 4) (defalias 'texinfo-ftable #[nil "\300\301!\207" [texinfo-indextable ftable] 2]) (defalias 'texinfo-vtable #[nil "\300\301!\207" [texinfo-indextable vtable] 2]) (defalias 'texinfo-indextable #[(table-type) "\302\303 \"\210 \304Z\211\207" [table-type fill-column texinfo-push-stack texinfo-parse-arg-discard 5] 3]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put ftable texinfo-item texinfo-ftable-item vtable texinfo-vtable-item] 4) (defalias 'texinfo-ftable-item #[nil "\300\301!\207" [texinfo-indextable-item texinfo-findex] 2]) (defalias 'texinfo-vtable-item #[nil "\300\301!\207" [texinfo-indextable-item texinfo-vindex] 2]) (defalias 'texinfo-indextable-item #[(index-type) "\306 @A@ \307 \310\f\311\261\210\n\f D\nJBL\210\312y+\207" [texinfo-stack index-type indexvar itemfont item texinfo-last-node texinfo-parse-arg-discard 8 123 "}\n \n" -2] 5]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put ftable texinfo-end texinfo-end-ftable vtable texinfo-end-vtable] 4) (defalias 'texinfo-end-ftable #[nil "\300\301!\207" [texinfo-end-indextable ftable] 2]) (defalias 'texinfo-end-vtable #[nil "\300\301!\207" [texinfo-end-indextable vtable] 2]) (defalias 'texinfo-end-indextable #[(table-type) "\303\\\304 \210\305 !\306\nA@!)\207" [fill-column table-type stacktop 5 texinfo-discard-command texinfo-pop-stack texinfo-do-itemize] 2]) #@66 Number of extra spaces between entries (columns) in @multitable. (defvar texinfo-extra-inter-column-width 0 (#$ . 37567)) (defvar texinfo-multitable-buffer-name "*multitable-temporary-buffer*") (defvar texinfo-multitable-rectangle-name "texinfo-multitable-temp-") (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\310#\207" [put multitableparskip texinfo-format texinfo-discard-line-with-args multitableparindent multitablecolmargin multitablelinespace multitable texinfo-multitable] 4) #@1094 Produce multi-column tables. A multi-column table has this template: @multitable {A1} {A2} {A3} @item A1 @tab A2 @tab A3 @item B1 @tab B2 @tab B3 @item C1 @tab C2 @tab C3 @end multitable where the width of the text in brackets specifies the width of the respective column. Or else: @multitable @columnfractions .25 .3 .45 @item A1 @tab A2 @tab A3 @item B1 @tab B2 @tab B3 @end multitable where the fractions specify the width of each column as a percent of the current width of the text (i.e., of the `fill-column'). Long lines of text are filled within columns. Using the Emacs Lisp formatter, texinfmt.el, the whitespace between columns can be increased by setting `texinfo-extra-inter-column-width' to a value greater than 0. By default, there is at least one blank space between columns. The Emacs Lisp formatter, texinfmt.el, ignores the following four commands that are defined in texinfo.tex for printed output. @multitableparskip, @multitableparindent, @multitablecolmargin, @multitablelinespace. (defalias 'texinfo-multitable #[nil "\300\301\302 \"\210\303 \207" [texinfo-push-stack multitable texinfo-multitable-widths texinfo-discard-line-with-args] 3 (#$ . 38121)]) (put 'multitable 'texinfo-end 'texinfo-end-multitable) #@67 Discard the @end multitable line and pop the stack of multitable. (defalias 'texinfo-end-multitable #[nil "\300 \210\301\302!\207" [texinfo-discard-command texinfo-pop-stack multitable] 2 (#$ . 39448)]) #@63 Return list of widths of each column in a multi-column table. (defalias 'texinfo-multitable-widths #[nil "\306\307\306w\210\310\311!\203 \312\313!\210\202{ \310\314!\2031 \315\316!\210l\204{ \317 \320\321p!!_S!B\202 \310\322!\203w `l\204s \307\306w\210`T\323\316!\210`S\211 ZB \f}\210eb\210\324\325\306\326#\203g \327\330!\210\202X db\210~\210\316u\210*\2029 )\202{ \312\331!\210\332G \333\332\"#\211 V\203\223 \312\334 #\210))\207" [texinfo-multitable-width-list fill-column start-of-templates start-of-template end-of-template texinfo-extra-inter-column-width nil " " looking-at "@columnfraction " error "In @multitable, @columnfractions misspelled" "@columnfractions" forward-word-strictly 1 truncate read get-buffer "{" forward-sexp search-forward "\n" t delete-char -1 "You probably need to specify column widths for @multitable correctly." + apply "Multi-column table width, %d chars, is greater than page width, %d chars." desired-columns] 7 (#$ . 39657)]) #@138 Return multitable row, as a string. End of row is beginning of next @item or beginning of @end. Cells within rows are separated by @tab. (defalias 'texinfo-multitable-extract-row #[nil "\304\305w\210`\306\307!\210\310\224\211b\210\311\305x\210` |\210\312`\" |\210\n+\207" [start end row texinfo-command-start " " nil re-search-forward "@item\\|@end" 0 " " buffer-substring-no-properties] 4 (#$ . 40646)]) (put 'multitable 'texinfo-item 'texinfo-multitable-item) #@262 Format a row within a multicolumn table. Cells in row are separated by @tab. Widths of cells are specified by the arguments in the @multitable line. All cells are made to be the same height. This command is executed when texinfmt sees @item inside @multitable. (defalias 'texinfo-multitable-item #[nil "p\306@A@! \307\211\310\211\311 ( ) * +\312,!q\210ed|\210\nc\210eb\210\313 -\314\315\307\316#\203= -T-\202- *G-Z\211 .\310V\203g eb\210\307\210.\310V\203g \317c\210.S.\320\321!\210\202Q *eb\210m\204`(\212\314\315\307\322#\203\204 `\323\324!\210`S|\210`)\325\313/\f*8#( }\210\326\307w\210`\327 |\210db\210\326\307x\210`\330 |\210\307\331 \210)\307 0\332ed\"\210) \333ed\"]eb\210 Sy\210` 1 \307\210`1ZZT 2\3342\310V\203\344 2\202\345 \313\335\"c\210*\3363\337\f!P!\340e`\"L\210e`|\210db\210\fT~\210\202k \f\310\307 4 5 6\f\310V\2035\337\f!\211 7G W\203-\3417\342\"\2117\202 )\fS\211\202\343+!\210\344 !\21056W\203g`4\345\346\3363\3375!P!!!\2104b\210\307\2105T\2115\202@+\347,!\210)\211.\207" [texinfo-stack fill-column unformatted-row table-entry-height table-column end reverse nil 0 texinfo-multitable-extract-row get-buffer-create 1 search-forward "@tab" t "@w{ }\n@tab" message "Added @tabs and empty spaces to a @multitable row" move forward-word-strictly -1 + " " line-beginning-position line-end-position texinfo-format-scan fill-region count-lines make-string 32 intern int-to-string extract-rectangle append ("") switch-to-buffer open-line insert-rectangle eval kill-buffer start existing-fill-column table-widths original-buffer texinfo-multitable-buffer-name tab-number needed-tabs texinfo-extra-inter-column-width fill-prefix beg needed-whitespace texinfo-multitable-rectangle-name here column-number total-number-of-columns this-rectangle] 9 (#$ . 41121)]) (put 'image 'texinfo-format 'texinfo-format-image) #@120 Insert an image from a file ending in .txt. Use only the FILENAME arg; for Info, ignore the other arguments to @image. (defalias 'texinfo-format-image #[nil "\302 \303\211@\204 \304\305!\210\306 \210\307\310 @\"\311\312\"\210`\313!A@\\b\210\311\314\"*\207" [filename args texinfo-format-parse-args nil error "Invalid image command" texinfo-discard-command format "%s.txt" message "Reading included file: %s" insert-file-contents "Reading included file: %s...done"] 4 (#$ . 43004)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\207" [put ifinfo texinfo-format texinfo-discard-line texinfo-end texinfo-discard-command iftex texinfo-format-iftex] 4) (defalias 'texinfo-format-iftex #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end iftex[ ]*\n"] 3]) (put 'ifhtml 'texinfo-format 'texinfo-format-ifhtml) (defalias 'texinfo-format-ifhtml #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end ifhtml[ ]*\n"] 3]) (put 'ifplaintext 'texinfo-format 'texinfo-format-ifplaintext) (defalias 'texinfo-format-ifplaintext #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end ifplaintext[ ]*\n"] 3]) (put 'ifxml 'texinfo-format 'texinfo-format-ifxml) (defalias 'texinfo-format-ifxml #[nil "\301\302!\210`|\207" [texinfo-command-start re-search-forward "^@end ifxml[ ]*\n"] 3]) (put 'tex 'texinfo-format 'texinfo-format-tex) (defalias 'texinfo-format-tex #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end tex[ ]*\n"] 3]) (put 'html 'texinfo-format 'texinfo-format-html) (defalias 'texinfo-format-html #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end html[ ]*\n"] 3]) (put 'xml 'texinfo-format 'texinfo-format-xml) (defalias 'texinfo-format-xml #[nil "\301\302!\210`|\207" [texinfo-command-start re-search-forward "^@end xml[ ]*\n"] 3]) (put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo) (defalias 'texinfo-format-ifnotinfo #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end ifnotinfo[ ]*\n"] 3]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\303#\210\300\306\304\305#\210\300\307\302\303#\210\300\307\304\305#\210\300\310\302\303#\210\300\310\304\305#\210\300\311\302\312#\207" [put ifnotplaintext texinfo-format texinfo-discard-line texinfo-end texinfo-discard-command ifnottex ifnothtml ifnotxml titlepage texinfo-format-titlepage] 4) (defalias 'texinfo-format-titlepage #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end titlepage[ ]*\n"] 3]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put endtitlepage texinfo-format texinfo-discard-line titlespec texinfo-format-titlespec] 4) (defalias 'texinfo-format-titlespec #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end titlespec[ ]*\n"] 3]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put endtitlespec texinfo-format texinfo-discard-line today texinfo-format-today] 4) (defalias 'texinfo-format-today #[nil "\300 \210\301\302!c\207" [texinfo-parse-arg-discard format-time-string "%e %b %Y"] 2]) (put 'timestamp 'texinfo-format 'texinfo-format-timestamp) #@41 Insert the current local time and date. (defalias 'texinfo-format-timestamp #[nil "\300 \210\301\302!c\207" [texinfo-parse-arg-discard format-time-string "%e %b %Y %R"] 2 (#$ . 46157)]) (put 'ignore 'texinfo-format 'texinfo-format-ignore) (defalias 'texinfo-format-ignore #[nil "\301\302!|\207" [texinfo-command-start re-search-forward "@end ignore[ ]*\n"] 3]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put endignore texinfo-format texinfo-discard-line definfoenclose texinfo-define-info-enclosure] 4) (defalias 'texinfo-define-info-enclosure #[nil "\305 \211@A@\206 \306\3078\206 \306\310 \210 \n DD\fB\211,\207" [args command-name beginning-delimiter end-delimiter texinfo-enclosure-list texinfo-format-parse-line-args "" 2 texinfo-discard-command] 4]) (put 'alias 'texinfo-format 'texinfo-alias) (defalias 'texinfo-alias #[nil "`S\304\305\304w\210\306 \307\310!\204 \311\312!\202$ \313\314!\313\315!B B\316 *\207" [args start texinfo-command-end texinfo-alias-list nil " " line-end-position looking-at "\\([^=]+\\)=\\(.*\\)" error "Invalid alias command" match-string-no-properties 1 2 texinfo-discard-command] 3]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put var texinfo-format texinfo-format-var sc acronym] 4) (defalias 'texinfo-format-var #[nil "\301 \302 \210\226c)\207" [arg texinfo-parse-expanded-arg texinfo-discard-command] 1]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put cite texinfo-format texinfo-format-code code command env file samp url] 4) (defalias 'texinfo-format-code #[nil "\301\302 \303\261\210b\207" [texinfo-command-start "`" texinfo-parse-arg-discard "'"] 3]) (put 'option 'texinfo-format 'texinfo-format-option) #@79 Insert \=` ... \=' around arg unless inside a table; in that case, no quotes. (defalias 'texinfo-format-option #[nil "\301\302\303 \304#\204 \305\306 \307\261\210\202 \306 c\210b\207" [texinfo-command-start search-backward "" line-beginning-position t "`" texinfo-parse-arg-discard "'"] 4 (#$ . 47997)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put emph texinfo-format texinfo-format-emph strong] 4) (defalias 'texinfo-format-emph #[nil "\301\302 \301\261\210b\207" [texinfo-command-start "*" texinfo-parse-arg-discard] 3]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put dfn texinfo-format texinfo-format-defn defn] 4) (defalias 'texinfo-format-defn #[nil "\301\302 \301\261\210b\207" [texinfo-command-start "\"" texinfo-parse-arg-discard] 3]) (put 'email 'texinfo-format 'texinfo-format-email) #@145 Format email address and optional following full name. Insert full name, if present, followed by email address surrounded by in angle brackets. (defalias 'texinfo-format-email #[nil "\301 \302 \210A@\203 A@\303\261\210\304@\305\261)\207" [args texinfo-format-parse-args texinfo-discard-command " " "<" ">"] 3 (#$ . 48838)]) (put 'key 'texinfo-format 'texinfo-format-key) (defalias 'texinfo-format-key #[nil "\301 c\210b\207" [texinfo-command-start texinfo-parse-arg-discard] 1]) (put 'verb 'texinfo-format 'texinfo-format-verb) #@299 Format text between non-quoted unique delimiter characters verbatim. Enclose the verbatim text, including the delimiters, in braces. Print text exactly as written (but not the delimiters) in a fixed-width. For example, @verb{|@|} results in @ and @verb{+@\='e?\=`!\=`+} results in @\='e?\=`!\=`. (defalias 'texinfo-format-verb #[nil "\303T\304\\\"\305\306!\204 \307\310!\210\n\304\\|\210\311 !\210)\312\313!\210\305\314!\204+ \307\315!\210\312\316!\207" [texinfo-command-end delimiter texinfo-command-start buffer-substring-no-properties 2 looking-at "{" error "Not found: @verb start brace" search-forward delete-char -1 "}" "Not found: @verb end brace" 1] 4 (#$ . 49381)]) (put 'bullet 'texinfo-format 'texinfo-format-bullet) #@74 Insert an asterisk. If used within a line, follow `@bullet' with braces. (defalias 'texinfo-format-bullet #[nil "\300 \210\301c\207" [texinfo-optional-braces-discard "*"] 1 (#$ . 50122)]) #@75 Regexp matching environments in which @kbd does not put `...' around arg. (defvar texinfo-format-kbd-regexp "^@\\(display\\|example\\|smallexample\\|lisp\\|smalllisp\\)" (#$ . 50316)) #@123 Regexp specifying end of environments in which @kbd does not put `...' around argument. (See `texinfo-format-kbd-regexp') (defvar texinfo-format-kbd-end-regexp "^@end \\(display\\|example\\|smallexample\\|lisp\\|smalllisp\\)" (#$ . 50507)) (put 'kbd 'texinfo-format 'texinfo-format-kbd) #@70 Place single quote marks around arg, except in @example and similar. (defalias 'texinfo-format-kbd #[nil "\212\306\307\310Q\311\312#\210`)\212\306\n \312#\210`)\212\306\f \312#\210`)\211 Y\2031 \313\314 \315\261\210\2025 \314 c\210b+\207" [texinfo-section-types-regexp stop texinfo-format-kbd-regexp example-location texinfo-format-kbd-end-regexp end-example-location re-search-forward "^@node\\|\\(" "\\)" nil move-to-end "`" texinfo-parse-arg-discard "'" texinfo-command-start] 5 (#$ . 50800)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put display texinfo-format texinfo-format-example smalldisplay example lisp quotation smallexample smalllisp] 4) (defalias 'texinfo-format-example #[nil "\301\302\303\"\210\304Z\305 \207" [fill-column texinfo-push-stack example nil 5 texinfo-discard-line] 3]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put example texinfo-end texinfo-end-example display smalldisplay lisp quotation smallexample smalllisp] 4) (defalias 'texinfo-end-example #[nil "\302\\\303 \210\304\305!\306 A@!)\207" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack example texinfo-do-itemize] 2]) (put 'exdent 'texinfo-format 'texinfo-format-exdent) (defalias 'texinfo-format-exdent #[nil "\300 \210`\301\302w\210`|\210\303c\210\212\302\210\304c)\207" [texinfo-discard-command " " nil 8 "\n "] 3]) (put 'direntry 'texinfo-format 'texinfo-format-direntry) (defalias 'texinfo-format-direntry #[nil "\300\301\302\"\210\303 \210\304c\207" [texinfo-push-stack direntry nil texinfo-discard-line "START-INFO-DIR-ENTRY\n"] 3]) (put 'direntry 'texinfo-end 'texinfo-end-direntry) (defalias 'texinfo-end-direntry #[nil "\300 \210\301c\210\302\303!\207" [texinfo-discard-command "END-INFO-DIR-ENTRY\n\n" texinfo-pop-stack direntry] 2]) (put 'dircategory 'texinfo-format 'texinfo-format-dircategory) (defalias 'texinfo-format-dircategory #[nil "\301 `\302\303w\210`|\210\304\305\261)\207" [str texinfo-parse-arg-discard " " nil "INFO-DIR-SECTION " "\n"] 3]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\310\302\307#\210\300\311\302\307#\207" [put cartouche texinfo-format texinfo-discard-line texinfo-end texinfo-discard-command format texinfo-format-flushleft smallformat flushleft] 4) (defalias 'texinfo-format-flushleft #[nil "\300 \207" [texinfo-discard-line] 1]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put format texinfo-end texinfo-end-flushleft smallformat flushleft] 4) (defalias 'texinfo-end-flushleft #[nil "\300 \207" [texinfo-discard-command] 1]) (put 'flushright 'texinfo-format 'texinfo-format-flushright) (defalias 'texinfo-format-flushright #[nil "\300\301\302\"\210\303 \207" [texinfo-push-stack flushright nil texinfo-discard-line] 3]) (put 'flushright 'texinfo-end 'texinfo-end-flushright) (defalias 'texinfo-end-flushright #[nil "\301 \210\302\303!\304A@!)\207" [stacktop texinfo-discard-command texinfo-pop-stack flushright texinfo-do-flushright] 2]) (defalias 'texinfo-do-flushright #[(from) "\212\302y\210`Y\205( \303 \210\304 \212\305\210\306\305x\210`\305\210`|\210i)Z\307\"c\210\202 )\207" [from fill-column -1 beginning-of-line make-string nil " " 32] 4]) (put 'ctrl 'texinfo-format 'texinfo-format-ctrl) (defalias 'texinfo-format-ctrl #[nil "\301 \302\303\304H\"c)\207" [str texinfo-parse-arg-discard logand 31 0] 4]) (put 'TeX 'texinfo-format 'texinfo-format-TeX) (defalias 'texinfo-format-TeX #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "TeX"] 1]) (put 'copyright 'texinfo-format 'texinfo-format-copyright) (defalias 'texinfo-format-copyright #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "(C)"] 1]) (put 'minus 'texinfo-format 'texinfo-format-minus) #@74 Insert a minus sign. If used within a line, follow `@minus' with braces. (defalias 'texinfo-format-minus #[nil "\300 \210\301c\207" [texinfo-optional-braces-discard "-"] 1 (#$ . 54761)]) (put 'dots 'texinfo-format 'texinfo-format-dots) (defalias 'texinfo-format-dots #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "..."] 1]) (put 'enddots 'texinfo-format 'texinfo-format-enddots) (defalias 'texinfo-format-enddots #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "...."] 1]) (put 'pounds 'texinfo-format 'texinfo-format-pounds) (defalias 'texinfo-format-pounds #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "#"] 1]) #@74 Number of spaces for @refill to indent a paragraph; else to leave as is. (defvar texinfo-paragraph-indent "asis" (#$ . 55403)) (put 'paragraphindent 'texinfo-format 'texinfo-paragraphindent) #@113 Specify the number of spaces for @refill to indent a paragraph. Default is to leave the number of spaces as is. (defalias 'texinfo-paragraphindent #[nil "\302 \211\303\230\203 \303\211\202 \304!\211)\207" [arg texinfo-paragraph-indent texinfo-parse-arg-discard "asis" string-to-number] 3 (#$ . 55601)]) (put 'refill 'texinfo-format 'texinfo-format-refill) #@121 Refill paragraph. Also, indent first line as set by @paragraphindent. Default is to leave paragraph indentation as is. (defalias 'texinfo-format-refill #[nil "\306 \210\307 \310\311!\210\312\313!\203 \314y\210\212\311y\210\312\315!)\203+ \311y\210`\314y\210`|\210\202E \316\232\204E \n\317V\204E `\320\321w\210`|\210\322 \323\"c\210\310\314!\210\311y\210\321\210 \324P \324P \325\216\326\321!\210-b)\207" [position texinfo-paragraph-indent texinfo-stack-depth paragraph-separate previous-paragraph-separate paragraph-start texinfo-discard-command point-marker forward-paragraph -1 looking-at "[ \n]*$" 1 "^@noindent" "asis" 0 " " nil make-string 32 "\\|[-=.]+\\|\\*\\*+" #[nil "\n\211\207" [previous-paragraph-separate paragraph-separate previous-paragraph-start paragraph-start] 2] fill-paragraph previous-paragraph-start] 3 (#$ . 55970)]) (put 'noindent 'texinfo-format 'texinfo-noindent) (defalias 'texinfo-noindent #[nil "\212\300\301!\210\302\303\304\305!\306#?\205 \307 )\207" [forward-paragraph 1 search-backward "@refill" line-beginning-position 0 t texinfo-discard-line] 4]) (put 'vindex 'texinfo-format 'texinfo-format-vindex) (defalias 'texinfo-format-vindex #[nil "\300\301!\207" [texinfo-index texinfo-vindex] 2]) (put 'cindex 'texinfo-format 'texinfo-format-cindex) (defalias 'texinfo-format-cindex #[nil "\300\301!\207" [texinfo-index texinfo-cindex] 2]) (put 'findex 'texinfo-format 'texinfo-format-findex) (defalias 'texinfo-format-findex #[nil "\300\301!\207" [texinfo-index texinfo-findex] 2]) (put 'pindex 'texinfo-format 'texinfo-format-pindex) (defalias 'texinfo-format-pindex #[nil "\300\301!\207" [texinfo-index texinfo-pindex] 2]) (put 'tindex 'texinfo-format 'texinfo-format-tindex) (defalias 'texinfo-format-tindex #[nil "\300\301!\207" [texinfo-index texinfo-tindex] 2]) (put 'kindex 'texinfo-format 'texinfo-format-kindex) (defalias 'texinfo-format-kindex #[nil "\300\301!\207" [texinfo-index texinfo-kindex] 2]) (defalias 'texinfo-index #[(indexvar) "\304 \305 \210 \n \203 \306 `\"T\202 \307E JBL)\207" [arg indexvar texinfo-last-node texinfo-last-node-pos texinfo-parse-expanded-arg texinfo-discard-command count-lines 1] 6]) (defvar texinfo-indexvar-alist '(("cp" . texinfo-cindex) ("fn" . texinfo-findex) ("vr" . texinfo-vindex) ("tp" . texinfo-tindex) ("pg" . texinfo-pindex) ("ky" . texinfo-kindex))) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defindex texinfo-format texinfo-format-defindex defcodeindex] 4) (defalias 'texinfo-format-defindex #[nil "\305 \306\307P!\306\310\307Q!\306\311\307Q!\211\312L\210\313 \314\n#\210\315\f\"\204. B\fB\n\316\312\317\320 DDEM,\207" [index-name indexing-command index-formatting-command index-alist-name texinfo-indexvar-alist texinfo-parse-arg-discard intern "index" "texinfo-format-" "texinfo-" nil put texinfo-format assoc lambda texinfo-index quote] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put synindex texinfo-format texinfo-format-synindex syncodeindex] 4) (defalias 'texinfo-format-synindex #[nil "\306 \307!A\310\307!@!\310\307 \"@!\311\n\f\"\2037 \312\311\n\f\"A\313\311 \"A\2063 \314\315 \316Q!#\202M \312\314\n\316P!\313\311 \"A\206L \314\315 \316Q!#,\207" [args second joiner joined texinfo-short-index-cmds-alist texinfo-short-index-format-cmds-alist texinfo-parse-arg-discard read-from-string symbol-name assoc put texinfo-format intern "texinfo-format-" "index"] 7]) (defconst texinfo-short-index-cmds-alist '(("cp" . cindex) ("fn" . findex) ("vr" . vindex) ("tp" . tindex) ("pg" . pindex) ("ky" . kindex))) (defconst texinfo-short-index-format-cmds-alist '(("cp" . texinfo-format-cindex) ("fn" . texinfo-format-findex) ("vr" . texinfo-format-vindex) ("tp" . texinfo-format-tindex) ("pg" . texinfo-format-pindex) ("ky" . texinfo-format-kindex))) (defalias 'texinfo-sort-region #[(start end) "\302\303!\210\214 }\210eb\210\304\305\306\307\310$)\207" [start end require sort sort-subr nil forward-line end-of-line texinfo-sort-startkeyfun] 5]) (defalias 'texinfo-sort-startkeyfun #[nil "\301`\302 \"\303\304\"\203 \305\306\211\224#\307\305\306\225\"Q\202 )\207" [line buffer-substring-no-properties line-end-position string-match "[ ][ ]+\\|[^a-z0-9 ]+" substring 0 " "] 5]) (put 'printindex 'texinfo-format 'texinfo-format-printindex) (defalias 'texinfo-format-printindex #[nil "\306 \307 \"A\310\311\312\313 \"\" \314\315\311\312\316\f\"# \311 \317c\210`\320\311 \"\210\321`\"-\207" [arg texinfo-short-index-format-cmds-alist fmt texinfo-short-index-cmds-alist index-list indexelts texinfo-parse-arg-discard assoc delq nil mapcar #[(e) " A\303N=\205 \304 @\n\"A\207" [fmt e texinfo-indexvar-alist texinfo-format assoc] 3] apply append symbol-value "\n* Menu:\n\n" texinfo-print-index texinfo-sort-region opoint] 6]) (defalias 'texinfo-print-index #[(file indexelts) "\205Z @@;\203G \302@@\303\261\210\304j\210 \203! \305 \306Q\202\" \307@A@\310\261\210\311j\210\312@8\203? \313\314\312@8T\"\202@ \307\315\261\210\202R \316@A@\312@8\"\210A\211\204 \317\207" [indexelts file "* " ": " 32 "(" ")" "" "." 54 2 format " (line %3d)" "\n" texinfo-print-index nil] 5]) (put 'equiv 'texinfo-format 'texinfo-format-equiv) (defalias 'texinfo-format-equiv #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "=="] 1]) (put 'error 'texinfo-format 'texinfo-format-error) (defalias 'texinfo-format-error #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "error-->"] 1]) (put 'expansion 'texinfo-format 'texinfo-format-expansion) (defalias 'texinfo-format-expansion #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "==>"] 1]) (put 'point 'texinfo-format 'texinfo-format-point) (defalias 'texinfo-format-point #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "-!-"] 1]) (put 'print 'texinfo-format 'texinfo-format-print) (defalias 'texinfo-format-print #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "-|"] 1]) (put 'result 'texinfo-format 'texinfo-format-result) (defalias 'texinfo-format-result #[nil "\300 \210\301c\207" [texinfo-parse-arg-discard "=>"] 1]) (put 'OE 'texinfo-format 'texinfo-format-French-OE-ligature) (defalias 'texinfo-format-French-OE-ligature #[nil "\301\302 \261\210b\207" [texinfo-command-start "OE" texinfo-parse-arg-discard] 2]) (put 'oe 'texinfo-format 'texinfo-format-French-oe-ligature) (defalias 'texinfo-format-French-oe-ligature #[nil "\301\302 \261\210b\207" [texinfo-command-start "oe" texinfo-parse-arg-discard] 2]) (put 'AA 'texinfo-format 'texinfo-format-Scandinavian-A-with-circle) (defalias 'texinfo-format-Scandinavian-A-with-circle #[nil "\301\302 \261\210b\207" [texinfo-command-start "AA" texinfo-parse-arg-discard] 2]) (put 'aa 'texinfo-format 'texinfo-format-Scandinavian-a-with-circle) (defalias 'texinfo-format-Scandinavian-a-with-circle #[nil "\301\302 \261\210b\207" [texinfo-command-start "aa" texinfo-parse-arg-discard] 2]) (put 'AE 'texinfo-format 'texinfo-format-Latin-Scandinavian-AE) (defalias 'texinfo-format-Latin-Scandinavian-AE #[nil "\301\302 \261\210b\207" [texinfo-command-start "AE" texinfo-parse-arg-discard] 2]) (put 'ae 'texinfo-format 'texinfo-format-Latin-Scandinavian-ae) (defalias 'texinfo-format-Latin-Scandinavian-ae #[nil "\301\302 \261\210b\207" [texinfo-command-start "ae" texinfo-parse-arg-discard] 2]) (put 'ss 'texinfo-format 'texinfo-format-German-sharp-S) (defalias 'texinfo-format-German-sharp-S #[nil "\301\302 \261\210b\207" [texinfo-command-start "ss" texinfo-parse-arg-discard] 2]) (put 'questiondown 'texinfo-format 'texinfo-format-upside-down-question-mark) (defalias 'texinfo-format-upside-down-question-mark #[nil "\301\302 \261\210b\207" [texinfo-command-start "?" texinfo-parse-arg-discard] 2]) (put 'exclamdown 'texinfo-format 'texinfo-format-upside-down-exclamation-mark) (defalias 'texinfo-format-upside-down-exclamation-mark #[nil "\301\302 \261\210b\207" [texinfo-command-start "!" texinfo-parse-arg-discard] 2]) (put 'L 'texinfo-format 'texinfo-format-Polish-suppressed-L) (defalias 'texinfo-format-Polish-suppressed-L #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard "/L"] 2]) (put 'l 'texinfo-format 'texinfo-format-Polish-suppressed-l-lower-case) (defalias 'texinfo-format-Polish-suppressed-l-lower-case #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard "/l"] 2]) (put 'O 'texinfo-format 'texinfo-format-Scandinavian-O-with-slash) (defalias 'texinfo-format-Scandinavian-O-with-slash #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard "O/"] 2]) (put 'o 'texinfo-format 'texinfo-format-Scandinavian-o-with-slash-lower-case) (defalias 'texinfo-format-Scandinavian-o-with-slash-lower-case #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard "o/"] 2]) (put '\, 'texinfo-format 'texinfo-format-cedilla-accent) (defalias 'texinfo-format-cedilla-accent #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard ","] 2]) (put 'dotaccent 'texinfo-format 'texinfo-format-overdot-accent) (defalias 'texinfo-format-overdot-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "." texinfo-parse-arg-discard] 2]) (put 'ubaraccent 'texinfo-format 'texinfo-format-underbar-accent) (defalias 'texinfo-format-underbar-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "_" texinfo-parse-arg-discard] 2]) (put 'udotaccent 'texinfo-format 'texinfo-format-underdot-accent) (defalias 'texinfo-format-underdot-accent #[nil "\301 \302\261\210b\207" [texinfo-command-start texinfo-parse-arg-discard "-."] 2]) (put 'H 'texinfo-format 'texinfo-format-long-Hungarian-umlaut) (defalias 'texinfo-format-long-Hungarian-umlaut #[nil "\301\302 \261\210b\207" [texinfo-command-start "\"\"" texinfo-parse-arg-discard] 2]) (put 'ringaccent 'texinfo-format 'texinfo-format-ring-accent) (defalias 'texinfo-format-ring-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "*" texinfo-parse-arg-discard] 2]) (put 'tieaccent 'texinfo-format 'texinfo-format-tie-after-accent) (defalias 'texinfo-format-tie-after-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "[" texinfo-parse-arg-discard] 2]) (put 'u 'texinfo-format 'texinfo-format-breve-accent) (defalias 'texinfo-format-breve-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "(" texinfo-parse-arg-discard] 2]) (put 'v 'texinfo-format 'texinfo-format-hacek-accent) (defalias 'texinfo-format-hacek-accent #[nil "\301\302 \261\210b\207" [texinfo-command-start "<" texinfo-parse-arg-discard] 2]) (put 'dotless 'texinfo-format 'texinfo-format-dotless) (defalias 'texinfo-format-dotless #[nil "\301 c\210b\207" [texinfo-command-start texinfo-parse-arg-discard] 1]) (defalias 'texinfo-format-defun #[nil "\301\302\303\"\210\304Z\305\306!\207" [fill-column texinfo-push-stack defun nil 5 texinfo-format-defun-1 t] 3]) (defalias 'texinfo-end-defun #[nil "\302\\\303 \210\304\305!A@\306 !\210\212 b\210\307\310!*\207" [fill-column start 5 texinfo-discard-command texinfo-pop-stack defun texinfo-do-itemize delete-char -1] 2]) (defalias 'texinfo-format-defunx #[nil "\300\301!\207" [texinfo-format-defun-1 nil] 2]) (defalias 'texinfo-format-defun-1 #[(first-p) "\305 \301N\306 \210 \204 \307\310!\210\311N\n!\210\312c\210\f@AA`\240\210\313N\n!*\207" [texinfo-command-name texinfo-defun-type parse-args first-p texinfo-stack texinfo-format-parse-defun-args texinfo-discard-command delete-char -1 texinfo-deffn-formatting-property "\n\n" texinfo-defun-indexing-property] 3]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\207" [put deffn texinfo-deffn-formatting-property texinfo-format-deffn deffnx defvr defvrx deftp deftpx] 4) (defalias 'texinfo-format-deffn #[(parsed-args) "@A@AA\305 \306\n\261\210 \205< \307 @\310H\311U\204) \312\f@!\313=\203. @\2021 @\226\261\210 A\211\204 \314+\207" [parsed-args args name category texinfo-defun-type " -- " ": " " " 0 38 eval deftp-type nil] 5]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\207" [put defun texinfo-deffn-formatting-property texinfo-format-specialized-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx] 4) (defalias 'texinfo-format-specialized-defun #[(parsed-args) "A@ @ A \305\f\306 \261\210\n\2052 \307\n@\310H\311U\203$ \n@\202' \n@\226\261\210\nA\211\204 \312+\207" [texinfo-defun-type parsed-args args name category " -- " ": " " " 0 38 nil] 5]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\207" [put deftypefn texinfo-deffn-formatting-property texinfo-format-deftypefn deftypefnx deftypevr deftypevrx] 4) (defalias 'texinfo-format-deftypefn #[(parsed-args) "@A@AA@AAA \305\f\306 \307\n\261\210 \205, \307 @\261\210 A\211\204 \310,\207" [parsed-args args name data-type category " -- " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\207" [put deftypefun texinfo-deffn-formatting-property texinfo-format-deftypefun deftypefunx deftypevar deftypevarx] 4) (defalias 'texinfo-format-deftypefun #[(parsed-args) "A@ @ A@ AA \306 \307\f\310 \261\210\n\205* \310\n@\261\210\nA\211\204 \311,\207" [texinfo-defun-type parsed-args args name data-type category " -- " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defop texinfo-deffn-formatting-property texinfo-format-defop defopx] 4) (defalias 'texinfo-format-defop #[(parsed-args) "@A@AA@AAA \305\f\306 \307\n\261\210 \205- \310 @\226\261\210 A\211\204 \311,\207" [parsed-args args name class category " -- " " on " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defcv texinfo-deffn-formatting-property texinfo-format-defcv defcvx] 4) (defalias 'texinfo-format-defcv #[(parsed-args) "@A@AA@AAA \305\f\306 \307\n\261\210 \205- \310 @\226\261\210 A\211\204 \311,\207" [parsed-args args name class category " -- " " of " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defmethod texinfo-deffn-formatting-property texinfo-format-defmethod defmethodx] 4) (defalias 'texinfo-format-defmethod #[(parsed-args) "A@ @ A@ AA \306 \307\f\310 \261\210\n\205+ \311\n@\226\261\210\nA\211\204 \312,\207" [texinfo-defun-type parsed-args args name class category " -- " " on " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defivar texinfo-deffn-formatting-property texinfo-format-defivar defivarx] 4) (defalias 'texinfo-format-defivar #[(parsed-args) "A@ @ A@ AA \306 \307\f\310 \261\210\n\205+ \311\n@\226\261\210\nA\211\204 \312,\207" [texinfo-defun-type parsed-args args name class category " -- " " of " ": " " " nil] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\207" [put defun texinfo-defun-indexing-property texinfo-index-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx] 4) (defalias 'texinfo-index-defun #[(parsed-args) "\305N\211\n@ \f\203 \306\f`\"T\202 \307E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\207" [put deffn texinfo-defun-indexing-property texinfo-index-deffn deffnx defvr defvrx deftp deftpx deftypefun deftypefunx deftypevar deftypevarx] 4) (defalias 'texinfo-index-deffn #[(parsed-args) "\305N\211\nA@ \f\203 \306\f`\"T\202 \307E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\207" [put deftypefn texinfo-defun-indexing-property texinfo-index-deftypefn deftypefnx deftypevr deftypevrx] 4) (defalias 'texinfo-index-deftypefn #[(parsed-args) "\305N\211\nAA@ \f\203 \306\f`\"T\202 \307E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defmethod texinfo-defun-indexing-property texinfo-index-defmethod defmethodx] 4) (defalias 'texinfo-index-defmethod #[(parsed-args) "\305N\211\306\307\nA@\n@# \f\203 \310\f`\"T\202 \311E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defop texinfo-defun-indexing-property texinfo-index-defop defopx] 4) (defalias 'texinfo-index-defop #[(parsed-args) "\305N\211\306\307\nAA@\nA@# \f\203 \310\f`\"T\202 \311E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defivar texinfo-defun-indexing-property texinfo-index-defivar defivarx] 4) (defalias 'texinfo-index-defivar #[(parsed-args) "\305N\211\306\307\nA@\n@# \f\203 \310\f`\"T\202 \311E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defcv texinfo-defun-indexing-property texinfo-index-defcv defcvx] 4) (defalias 'texinfo-index-defcv #[(parsed-args) "\305N\211\306\307\nAA@\nA@# \f\203 \310\f`\"T\202 \311E JBL)\207" [texinfo-command-name index-list parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 7]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\304\310\312#\210\300\301\313\314#\210\300\304\313\314#\210\300\315\302\303#\210\300\316\302\305#\210\300\315\306\307#\210\300\315\310\317#\210\300\316\310\320#\210\300\315\313\314#\210\300\316\313\314#\210\300\321\302\303#\210\300\322\302\305#\210\300\321\306\307#\210\300\321\310\323#\210\300\322\310\324#\210\300\321\313\314#\210\300\322\313\314#\210\300\325\302\303#\210\300\326\302\305#\210\300\325\306\307#\210\300\325\310\327#\210\300\326\310\330#\210\300\325\313\314#\210\300\326\313\314#\210\300\331\302\303#\210\300\332\302\305#\210\300\331\306\307#\210\300\331\310\333#\210\300\332\310\334#\210\300\331\313\335#\210\300\332\313\335#\210\300\336\302\303#\210\300\337\302\305#\210\300\336\306\307#\210\300\336\310\340#\210\300\337\310\341#\210\300\336\313\335#\210\300\337\313\335#\210\300\342\302\303#\210\300\343\302\305#\210\300\342\306\307#\210\300\342\310\344#\210\300\343\310\345#\210\300\342\313\335#\210\300\343\313\335#\210\300\346\302\303#\210\300\347\302\305#\210\300\346\306\307#\210\300\346\310\350#\210\300\347\310\351#\210\300\346\313\314#\210\300\347\313\314#\210\300\352\302\303#\210\300\353\302\305#\210\300\352\306\307#\210\300\352\310\354#\210\300\353\310\355#\210\300\352\313\335#\210\300\353\313\335#\210\300\356\302\303#\210\300\357\302\305#\210\300\356\306\307#\210\300\356\310\360#\210\300\357\310\361#\210\300\356\313\362#\210\300\357\313\362#\210\300\363\302\303#\210\300\364\302\305#\210\300\363\306\307#\210\300\363\310\365#\210\300\364\310\366#\210\300\363\313\314#\210\300\364\313\314#\210\300\367\302\303#\210\300\370\302\305#\210\300\367\306\307#\210\300\367\310\371#\210\300\370\310\372#\210\300\367\313\314#\210\300\370\313\314#\210\300\373\302\303#\210\300\374\302\305#\210\300\373\306\307#\210\300\373\310\375#\210\300\374\310\376#\210\300\373\313\335#\210\300\374\313\335#\210\300\377\302\303#\210\300\201@ \302\305#\210\300\377\306\307#\210\300\377\310\201A #\210\300\201@ \310\201B #\210\300\377\313\335#\210\300\201@ \313\335#\210\300\201C \302\303#\210\300\201D \302\305#\210\300\201C \306\307#\210\300\201C \310\201E #\210\300\201D \310\201F #\210\300\201C \313\314#\210\300\201D \313\314#\210\300\201G \302\303#\210\300\201H \302\305#\210\300\201G \306\307#\210\300\201G \310\201I #\210\300\201H \310\201J #\210\300\201G \313\314#\210\300\201H \313\314#\210\300\201K \302\303#\210\300\201L \302\305#\210\300\201K \306\307#\210\300\201K \310\201M #\210\300\201L \310\201N #\210\300\201K \313\335#\210\300\201L \313\335#\210\300\201O \302\303#\210\300\201P \302\305#\210\300\201O \306\307#\210\300\201O \310\201Q #\210\300\201P \310\201R #\210\300\201O \313\335#\210\300\201P \313\335#\210\300\201S \302\201T #\207" [put deffn texinfo-format texinfo-format-defun deffnx texinfo-format-defunx texinfo-end texinfo-end-defun texinfo-defun-type ('deffn-type nil) ('deffn-type nil) texinfo-defun-index texinfo-findex defun defunx ('defun-type "Function") ('defun-type "Function") defmac defmacx ('defun-type "Macro") ('defun-type "Macro") defspec defspecx ('defun-type "Special form") ('defun-type "Special form") defvr defvrx ('deffn-type nil) ('deffn-type nil) texinfo-vindex defvar defvarx ('defun-type "Variable") ('defun-type "Variable") defconst defconstx ('defun-type "Constant") ('defun-type "Constant") defcmd defcmdx ('defun-type "Command") ('defun-type "Command") defopt defoptx ('defun-type "User Option") ('defun-type "User Option") deftp deftpx ('deftp-type nil) ('deftp-type nil) texinfo-tindex defop defopx ('defop-type nil) ('defop-type nil) defmethod defmethodx ('defmethod-type "Method") ('defmethod-type "Method") defcv defcvx ('defop-type nil) ('defop-type nil) defivar defivarx ('defmethod-type "Instance variable") ('defmethod-type "Instance variable") deftypefn deftypefnx ('deftypefn-type nil) ('deftypefn-type nil) deftypefun deftypefunx ('deftypefun-type "Function") ('deftypefun-type "Function") deftypevr deftypevrx ('deftypefn-type nil) ('deftypefn-type nil) deftypevar deftypevarx ('deftypevar-type "Variable") ('deftypevar-type "Variable") clear texinfo-clear] 4) #@30 Clear the value of the flag. (defalias 'texinfo-clear #[nil "\303 \304!@\305\304!A\"\306 \307\310#\210\306 \311\312#+\207" [arg flag value texinfo-parse-arg-discard read-from-string substring put texinfo-whether-setp flag-cleared texinfo-set-value ""] 4 (#$ . 78299)]) (put 'set 'texinfo-format 'texinfo-set) #@192 Set the value of the flag, optionally to a string. The command `@set foo This is a string.' sets flag foo to the value: `This is a string.' The command `@value{foo}' expands to the value. (defalias 'texinfo-set #[nil "\303 \304!@\305\304!A\"\306\307\n\"\203 \305\n\310\225\"\311 \312\313#\210\311 \314\n#+\207" [arg flag value texinfo-parse-arg-discard read-from-string substring string-match "^[ ]+" 0 put texinfo-whether-setp flag-set texinfo-set-value] 4 (#$ . 78621)]) (put 'value 'texinfo-format 'texinfo-value) #@185 Insert the string to which the flag is set. The command `@set foo This is a string.' sets flag foo to the value: `This is a string.' The command `@value{foo}' expands to the value. (defalias 'texinfo-value #[nil "\301 \302!@\303N\304=\203! \302!@\305N\203! \302!@\305Nc\202D \302!@\303N\306=\2034 \307\310\"c\202D \302!@\303N\311=\205D \307\310\"c)\207" [arg texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set texinfo-set-value flag-cleared format "{No value for \"%s\"}" nil] 3 (#$ . 79157)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put ifset texinfo-end texinfo-discard-command texinfo-format texinfo-if-set] 4) #@74 If set, continue formatting; else do not format region up to @end ifset. (defalias 'texinfo-if-set #[nil "\302 \303!@\304N\305=\203 \306\2021 \303!@\304N\307=\203% \310\311!|\2021 \303!@\304N\306=\2051 \306)\207" [arg texinfo-command-start texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set nil flag-cleared re-search-forward "@end ifset[ ]*\n"] 3 (#$ . 79827)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put ifclear texinfo-end texinfo-discard-command texinfo-format texinfo-if-clear] 4) #@72 If clear, continue formatting; if set, do not format up to @end ifset. (defalias 'texinfo-if-clear #[nil "\302 \303!@\304N\305=\203 \306\307!|\2021 \303!@\304N\310=\203% \311\2021 \303!@\304N\311=\2051 \311)\207" [arg texinfo-command-start texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set re-search-forward "@end ifclear[ ]*\n" flag-cleared nil] 3 (#$ . 80366)]) (put 'ifeq 'texinfo-format 'texinfo-format-ifeq) #@338 If ARG1 and ARG2 caselessly string compare to same string, perform COMMAND. Otherwise produces no output. Thus: @ifeq{ arg1 , arg1 , @code{foo}} bar ==> `foo' bar. but @ifeq{ arg1 , arg2 , @code{foo}} bar ==> bar Note that the Texinfo command and its arguments must be arguments to the @ifeq command. (defalias 'texinfo-format-ifeq #[nil "b\210\306\212\307\310!\210`)\311\211 \310u\210\312\311w\210`\313\314\n\306#\210\315\311x\210\316 `\" \313\314\n\306#\210\312\311w\210`\313\314\n\306#\210\315\311x\210\316 `\" \313\314\n\306#\210\312\311w\210`\nSb\210\312\311x\210\316 `\" \n|\210 \232\203o c\210b.\207" [texinfo-command-end case-fold-search stop start end arg1 t forward-sexp 1 nil " " search-forward "," ", " buffer-substring-no-properties arg2 texinfo-command texinfo-command-start] 5 (#$ . 80816)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\207" [put include texinfo-format texinfo-format-noop b i r t w asis dmn math titlefont] 4) (defalias 'texinfo-format-noop #[nil "\301 c\210b\207" [texinfo-command-start texinfo-parse-arg-discard] 1]) (put 'hyphenation 'texinfo-format 'texinfo-discard-command-and-arg) #@52 Discard both @-command and its argument in braces. (defalias 'texinfo-discard-command-and-arg #[nil "b\210\302\303!\210` |\207" [texinfo-command-end texinfo-command-start forward-list 1] 2 (#$ . 82171)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\303#\210\300\314\302\303#\210\300\315\302\303#\210\300\316\302\317#\210\300\320\302\317#\210\300\321\302\317#\210\300\322\323\317#\210\300\322\302\317#\210\300\324\302\317#\210\300\325\302\317#\210\300\326\302\317#\210\300\327\302\317#\210\300\330\302\317#\210\300\331\302\317#\210\300\332\302\317#\210\300\333\302\317#\210\300\334\302\317#\210\300\335\302\317#\210\300\336\302\317#\210\300\337\302\317#\210\300\340\302\317#\210\300\341\302\317#\210\300\342\302\317#\210\300\343\302\317#\210\300\344\302\317#\210\300\345\302\317#\210\300\346\302\317#\210\300\347\302\317#\210\300\350\302\317#\210\300\351\302\317#\210\300\352\302\317#\207" [put bye texinfo-format texinfo-discard-line smallbook finalout overfullrule smallbreak medbreak bigbreak afourpaper afivepaper afourlatex afourwide c texinfo-discard-line-with-args comment contents group texinfo-end headings setchapterstyle hsize itemindent lispnarrowing need nopara novalidate page pagesizes parindent setchapternewpage setq setcontentsaftertitlepage setshortcontentsaftertitlepage settitle setx shortcontents shorttitlepage summarycontents input documentlanguage documentencoding] 4) (defalias 'texinfo-unsupported #[nil "\302\303\304 \"\"\207" [texinfo-command-start texinfo-command-end error "%s is not handled by texinfo" buffer-substring-no-properties] 5]) #@294 Run `texinfo-format-buffer' on the files remaining on the command line. Must be used only with -batch, and kills Emacs on completion. Each file will be processed even if an error occurred previously. For example, invoke "emacs -batch -l texinfmt -f batch-texinfo-format $docs/ ~/*.texinfo". (defalias 'batch-texinfo-format #[nil "\204 \306\307!\210\310\311\211\312\211 \313\311\211 * + ,\203e \314,@!+\315+!\204@ \316\317+\"\210\320,A\211,\202 \321+!\203U \322+!,A\244\211,\202 +*B*,A\211,\204 *\203\375 *@+*A*\3231\254 \203\201 \324p!\210\325+!\210\326p!\210\327\311!\210\330 \210\316\331+\"\210\332\311!\210\333 \205\250 \316\334\335 \"\210\336 0\202\371 -\316\337\340-!\"\210\316\341!\210\342``\343\\d^\"\313 . /\344\345/.#\211.\203\355 \346/\313\211\224#\347\346/\313\225\"Q/.T.\202\307 \316\350/\"\210*\320\211)\210\202e \351!.\207" [noninteractive kept-new-versions kept-old-versions find-file-run-dired auto-save-default version-control error "batch-texinfo-format may only be used -batch" t nil 259259 0 expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p directory-files (error) kill-buffer find-file buffer-disable-undo set-buffer-modified-p texinfo-mode "texinfo formatting %s..." texinfo-format-buffer buffer-modified-p "Saving modified %s" buffer-file-name save-buffer ">> Error: %s" prin1-to-string ">> point at" buffer-substring-no-properties 100 string-match "\n+" substring "\n>> " ">> %s" kill-emacs files file command-line-args-left err tem s] 6 (#$ . 83900)]) (provide 'texinfmt)
Close
