;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (defvar texinfmt-version "2.42 of 7 Jul 2006") (make-obsolete-variable 'texinfmt-version 'emacs-version "28.1")#@133 Show the version of texinfmt.el in the minibuffer. If optional argument HERE is non-nil, insert info at point. (fn &optional HERE) (defalias 'texinfmt-version #[256 "\301\302\"\203 \211c\207\303\304!\203\305\306\"\207\207" [texinfmt-version format-message "Version of `texinfmt.el': %s" called-interactively-p interactive message "%s"] 5 (#$ . 197) "P"]) (byte-code "\300\301\302\303#\210\304\305!\210\304\306!\207" [make-obsolete texinfmt-version emacs-version "28.1" require texinfo texnfo-upd] 4) (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)) (#$ . 750))#@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)) (#$ . 1582)) (defvar texinfo-format-syntax-table (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\306#\210\301\310\311#\210\301\312\311#\210\301\313\311#\210\301\314\311#\210\301\315\316#\210\301\317\320#\210\301\321\311#\210\207" [make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "." 93 40 41 123 "(}" 125 "){" 39] 5))#@372 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. (fn &optional NOSPLIT) (defalias 'texinfo-format-buffer #[256 "\303\304\303!\210~\210\305 \210\306 \210\204&\307 \310\n\\V\203&\304\311\211\262!\210\312 \210\304\313\314!\2032\315\2023\316P!)\207" [buffer-file-coding-system coding-system-for-write 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."] 6 (#$ . 2822) "P"])#@64 Name of the temporary buffer used by \[texinfo-format-region]. (defvar texinfo-region-buffer-name "*Info Region*" (#$ . 3663))#@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 (#$ . 3796))#@286 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. (fn REGION-BEGINNING REGION-END) (defalias 'texinfo-format-region #[514 "\306\307!\210\310\211\211\211\211\211\211\211\211\211\311\310\211\211\211\312p \311\313\211 \n@ A\fB CDEFGHIJK\212\214~\210eb\210\314\315!\316L\317#\313y\210`\262\203~\316M\310\317#\320 \210`\262\204\225eb\210\316\321\317#\320 \210`\262\313y\210`\262\203\236\322^\"\262*\210\323\324N!!\210\317\211OP\325 \210c\210\326]#\210\327\330\"\210h\331U\204\314\332c\210eb\210\333 \210\306\307!\210\334Q!\210\335\336\310\317#\203!`J\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*\210\202\335eb\210\347 \210eb\210\350 \210db\210\340\351\310\317#\203<`d|\210h\331U\204E\332c\210\310\211RSeb\210\352\353!\203Z`\314\341!|\210eb\210\316\321\314\315!\317#\203\213`J\320 \210`K\354 \355N\356\357!\261\210\360\361!!c\210\356\362!c\266\202\222\355N\363\261\210\356\364!\365\366!\203\253\356\367\370\360\366 !!!\"\202\262\356\371\372 !\"\356\373!T\374\261\210eb\210\375 \210eb\210\376!\210eb\210\306\377!.\207" [fill-column default-directory texinfo-footnote-number texinfo-node-names texinfo-last-node texinfo-last-node-pos 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' on Emacs version " ".\n\n" texinfo-format-scan Info-tagify "Done." 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 tex-start-of-header tex-end-of-header texinfo-region-buffer-name buffer-read-only inhibit-read-only texinfo-format-syntax-table texinfo-enclosure-list texinfo-alias-list emacs-version] 33 (#$ . 4021) "r"])#@585 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. (fn &optional NOSPLIT) (defalias 'texi2info #[256 "\300\301 \302Q\303\304!\210\305ed#\210\306!\210\307\310!\210\303\311!\210\312\313!\210\314!\210\315 \210\316!\207" ["*--" 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] 6 (#$ . 6938) "P"]) (defalias 'texinfo-format-buffer-1 #[0 "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211\307\306p : ;\n< =\f> ?@ABCDE\306\211FG\212eb\210\310\311\306\312#\204d\313\314!\210`B\315 )\262\316!\210\317 \210\320 \210\321 \210\322\323\"\210\324\325!!E\326H!\210\327!\210\330\331\"\210\322\332\333!\"\210eb\210\334\335\306\312#\203\343`B\211\315 P\336\335!\210`\337\340!|\210\322\341\"\210\212\214``\342!A@\\}\210eb\210\334\343\344\345!\312#\203\336\337\346!\337\340!|\210*\210\202\237eb\210\347 \210eb\210\350 \210eb\210\310\311!\210\351 \210e`|\210db\210\352\353\306\312#\203\f`d|\210h\354U\204\355c\210\356 \210eb\210\357E\360\361\362!\363\364!\2038\361\365\366\324\364 !!!\"\202?\361\367\333 !\"\361\370!I\371\261 \210>=<;: .\257\207" [fill-column default-directory texinfo-footnote-number texinfo-node-names texinfo-stack texinfo-kindex 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' on Emacs version " ".\n\n" 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 emacs-version] 32])#@16 (fn MIN MAX) (defalias 'texinfo-format-convert #[514 "b\210\300\301\302#\203\303\304!\210\202b\210\300\305\302#\203$\303\304!\210\202b\210\306\307\302#\205;\310\224T\310\211\224\\|\210\202'\207" [search-forward "``" t replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" 2] 6 (#$ . 10061)])#@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\\)" (#$ . 10401)) (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 "\\)") (#$ . 10964))#@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 #[0 "`dW\205\221\303\304 \210\305\306!\203)\305\307 \310\n\311\260!\204)`dW\203)\312y\210\202 \305 !\203A\313\312!\314\315P\303\316#\210\312y\266\202\215`dY\204V\314\317\212\320 \210\321\322!)\316#\203\\\320 \210\202\215\320 \210\323y\210`\303\210`\212\324\303x\210`)|\210\312u\210\325\326\316#\204~\323u\210\325\327\316#\204\211\330c\210\210\312y\210)\202\207" [case-fold-search texinfo-no-refill-regexp texinfo-part-of-para-regexp nil beginning-of-line looking-at "^@\\|^\\\\\\|^[ \n]*$" "\\(" "\\|" "\\)" 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 (#$ . 11371)])#@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 #[0 "\303\304\305\306\307Q\303\310#\205\223\311 \210\212\312p!)\262\313\267\2027\211T\262`\314\315!|\210\202\211S\262`\314\315!|\210\202\211\304V\203_\211\304V\203R\211 \236A\262S\262\202?\316\317!\210\320!c\266\202\211\304U\203k\317y\210\202\211\304W\203\211\304W\203\206\211\n\236A\262T\262\202s\316\317!\210\320!c\266\202\207" [texinfo-section-types-regexp texinfo-raisesections-alist texinfo-lowersections-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 29 @lowersections 42)) line-beginning-position 2 kill-word 1 symbol-name] 6 (#$ . 12371)]) (defalias 'texinfo-format-scan #[0 "\306ed\"\210eb\210\307\310\311\312#\203\313 \210\307\314\311\312#\203'\315\224\315\225|\210\316 \210\202eb\210\307\317\311\312#\203R\320\321!\203\341g\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\333`Tf\332U\203\276\333\334g\"\210\335u\210\320\336!\203*`\337\335!\210\327\330!\210\211b\210\327\335!\266\202*\335u\210\202*`Sgz\340U\203\362\341\335!\210\202\365\335u\210`Tb\210\342 w\210`\311\343T \"\344\n\"\211\262\203A\262\202\345!\266\202\344\346 !\f\"\211\203=\211A@@\347 A@A@\261\210b\266\202* \350N\211\203K\211 \266\202*\351 \266\202* \203c\352 @8b\210\333\353 @@\"\210\312-\354 )\207" [texinfo-command-start texinfo-command-end texinfo-alias-list texinfo-command-name texinfo-enclosure-list texinfo-stack 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 whitespace-silent] 5])#@55 Text of the copyright notice and copying permissions. (defvar texinfo-copying-text "" (#$ . 15924))#@183 Copy the copyright notice and copying permissions from Texinfo file. This is indicated by the "@copying ... @end copying" command; insert the text with the "@insertcopying" command. (defalias 'texinfo-copying #[0 "\301 \210`\302\303!\210`\304\212b\210\305\306!)\212b\210\305\307!)\"|\207" [texinfo-copying-text beginning-of-line re-search-forward "^@end copying[ ]*\n" buffer-substring-no-properties line-beginning-position 2 0] 6 (#$ . 16030)])#@134 Insert the copyright notice and copying permissions from Texinfo file. This is indicated by the "@copying ... @end copying" command. (defalias 'texinfo-insertcopying #[0 "\301Pc\207" [texinfo-copying-text "\n"] 2 (#$ . 16488)]) (put 'begin 'texinfo-format 'texinfo-format-begin) (defalias 'texinfo-format-begin #[0 "\300\301!\207" [texinfo-format-begin-end texinfo-format] 2]) (put 'end 'texinfo-format 'texinfo-format-end) (defalias 'texinfo-format-end #[0 "\300\301!\207" [texinfo-format-begin-end texinfo-end] 2])#@13 (fn PROP) (defalias 'texinfo-format-begin-end #[257 "\301\302 !\211N\211\203\211 \207\303 \207" [texinfo-command-name intern texinfo-parse-line-arg texinfo-unsupported] 4 (#$ . 17011)])#@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 #[0 "b\210`\301\302!\203%\302\303w\210`\262\303\210\302\303x\210`\303\210`|\210`T\202?\301\304!\203;`T\262\305\306!\210`\307u\210\202?\310\311!\210\312`\"l\203J\306u\210\207" [texinfo-command-end looking-at " " nil "{" forward-list 1 -1 error "Invalid texinfo command arg format" buffer-substring-no-properties] 4 (#$ . 17209)]) (defalias 'texinfo-parse-expanded-arg #[0 "b\210`\301\302\303!\203\303\301w\210`\262\301\210`T\2025\302\304!\2031`T\262\305\306!\210`\307u\210\2025\310\311!\210\312 \301\223\262\313`\"\210\314!\211\301\211\223\210\315`\"l\203U\306u\210\207" [texinfo-command-end 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] 5])#@18 (fn START END) (defalias 'texinfo-format-expand-region #[514 "\214}\210\304\211\211\211\305 ,\210db)\207" [texinfo-stack texinfo-command-name texinfo-command-end texinfo-command-start nil texinfo-format-scan] 6 (#$ . 18306)])#@58 Delete command and argument; return argument of command. (defalias 'texinfo-parse-arg-discard #[0 "\300 \301 \210\207" [texinfo-parse-line-arg texinfo-discard-command] 2 (#$ . 18545)]) (defalias 'texinfo-discard-command #[0 " |\207" [texinfo-command-start texinfo-command-end] 2])#@43 Discard braces following command, if any. (defalias 'texinfo-optional-braces-discard #[0 "b\210\302\303!\204\302\304!\203\305\306!\210`\202\307\310!\210 |\207" [texinfo-command-end texinfo-command-start looking-at "[ ]*\n" "{" forward-list 1 error "Invalid `texinfo-optional-braces-discard' format (need braces?)"] 2 (#$ . 18832)]) (defalias 'texinfo-format-parse-line-args #[0 "\301\211\211\211\302\301w\210l\204@`\262\303\304!\210`\262n\203S\262\305u\210\302\301x\210`\262V\2052\306\"B\262b\210\302\301w\210\202l\203G\307u\210`\211\237\207" [texinfo-command-end nil " " re-search-forward "[\n,]" -1 buffer-substring-no-properties 1] 7]) (defalias 'texinfo-format-parse-args #[0 "\301\211\211\211\302\303!\210\212\304`\212\305\306!\210`S)\")\210h\307U\204`\310\301w\210`\262\311\312!\210`\262\313u\210\310\301x\210`\262W\203Lb\210\302\314\315#\203L\316\317!\210\202=V\205V\320\"B\262b\210\202`\211\237\207" [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] 8]) (defalias 'texinfo-format-parse-defun-args #[0 "b\210`\301\210`T\302 \301\223\303`\"\210\304!\211\301\211\223\266\211b\210\301\211\211\305\301w\210l\204]\306\307!\203A`T\262\310\311!\210`S\262\202N`\262\312\313!\210\314u\210`\262\315\"B\262\305\301w\210\202(\311u\210\237\207" [texinfo-command-end nil make-marker texinfo-format-expand-region marker-position " " looking-at "{" forward-list 1 re-search-forward "[\n ]" -1 buffer-substring-no-properties] 7]) (defalias 'texinfo-discard-line #[0 "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 #[0 "b\210`\301y\210`|\207" [texinfo-command-start 1] 2]) (put 'setfilename 'texinfo-format 'texinfo-format-setfilename) (defalias 'texinfo-format-setfilename #[0 "\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 #[0 "\306 \211@A@\3078\3108\311 \210 \203\227\202\312\n\"\203-\313\314\"\266\2023\211C\nB\210\315\316\f\317\261\210\203F\320\261\210\203O\321\261\210\211\203X\322\261\210\323c\210`\211\207" [texinfo-last-node texinfo-fold-nodename-case texinfo-node-names texinfo-footnote-number texinfo-format-filename texinfo-last-node-pos texinfo-format-parse-line-args 2 3 texinfo-discard-command assoc error "Duplicate node name: %s" 0 "\n\nFile: " ", Node: " ", Next: " ", Prev: " ", Up: " 10] 9]) (put 'anchor 'texinfo-format 'texinfo-anchor) (defalias 'texinfo-anchor #[0 "\300`\301Z\302 \303\304!\203\305\306!\210\307 \210`\212\310\306!\210\311\312\313#)\203)\314\262\210\202-\315\262\210b\210\316\317\261\207" [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" "{" "}"] 8]) (put 'menu 'texinfo-format 'texinfo-format-menu) (defalias 'texinfo-format-menu #[0 "\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 #[0 "\300 \301 \210\302c\210\211A@\206\3038\211\204!\3048\204!@\305\261\207\211\206'@\306\261\210\3048\2039\307\3048\310\261\210@\205A@c\207" [texinfo-format-parse-args texinfo-discard-command "*Note " 2 3 "::" ": " "(" ")"] 5]) (put 'pxref 'texinfo-format 'texinfo-format-pxref) (defalias 'texinfo-format-pxref #[0 "\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 #[0 "\300 \301 \210\211A@\203\302A@\303\3048\305@\261\207\302\306\3048\305@\307\261\207" [texinfo-format-parse-args texinfo-discard-command "*Note " ": (" 2 ")" "(" "::"] 7]) (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 #[0 "\300 \301 \210\211A@\203\211A@\302@\303\261\207\304@\305\261\207" [texinfo-format-parse-args texinfo-discard-command " (" ")" "`" "'"] 5 (#$ . 23236)]) (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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\300\301!\207" [texinfo-format-chapter-1 46] 2])#@18 (fn BELOWCHAR) (defalias 'texinfo-format-chapter-1 #[257 "\300 \301\302\"\210\303\303\304\303\261\210\305y\207" [texinfo-parse-arg-discard message "Formatting: %s ... " 10 "@SectionPAD " -2] 8 (#$ . 25325)]) (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad) (defalias 'texinfo-format-sectionpad #[0 "\300 \301u\210i\302u\210\211\303V\203c\210\211S\262\202 \210\304c\207" [texinfo-parse-arg-discard -1 1 0 10] 4]) (put '\. 'texinfo-format 'texinfo-format-.) (defalias 'texinfo-format-. #[0 "\300 \210\301c\207" [texinfo-discard-command "."] 1]) (put : 'texinfo-format 'texinfo-format-:) (defalias 'texinfo-format-: #[0 "\300 \207" [texinfo-discard-command] 1]) (put '- 'texinfo-format 'texinfo-format-soft-hyphen) (defalias 'texinfo-format-soft-hyphen #[0 "\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 #[0 "\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 #[0 "\301 \302 \210\211c\210\303c\210\214`Sb\210\304\305 *\207" [indent-tabs-mode texinfo-parse-expanded-arg texinfo-discard-command 10 nil center-line] 2]) (put 'sp 'texinfo-format 'texinfo-format-sp) (defalias 'texinfo-format-sp #[0 "\300 \301!\302\303\"\207" [texinfo-parse-arg-discard read insert-char 10] 5]) (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 #[0 "\300 \210g\301U\203\f\301c\207\302\301\303\"\207" [texinfo-optional-braces-discard 10 insert-char 2] 3 (#$ . 27169)])#@41 Footnote style, either separate or end. (defvar texinfo-footnote-style "separate" (#$ . 27414)) (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 #[0 "\301 \211\207" [texinfo-footnote-style texinfo-parse-arg-discard] 2 (#$ . 27576)]) (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 #[0 "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 (#$ . 27864)])#@104 Format footnote in Separate node style, with notes in own node. The node is constructed automatically. (defalias 'texinfo-format-separate-node #[0 "\302\303 \212\304\305!\210\306\225)\212\307b\210\310\302w\210`\311\312\313 \314#\203#`S\202'\302\210`\")\315 \210\212\316\302x\210`)`|\210\317\320#c\210\321\302!\210\212\322\323\302\324#\203M\325y\210\212\326\327P\314#)\203j`\262\317\330#c\210\331`\"\202\215\332 \333\327\334\261\210`\262\317\330#c\210\212b\210`)`}\210\331ed\"\210~)\207" [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"] 11 (#$ . 28233)])#@70 Format footnote in the End of node style, with notes at end of node. (defalias 'texinfo-format-end-node #[0 "\301\302 \303 \210\212\304\301x\210`)`|\210\305\306\"c\210\307\301!\210\212\310\311\301\312#\203?\313\314\301\315#\203.\316y\210`\262\305\317#c\210\320`\"\202V\313\314\301\315#\203J\316y\210\311c\210`\262\305\317#c)\207" [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] 6 (#$ . 29200)])#@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 (#$ . 29795))#@18 (fn CHECK ARG) (defalias 'texinfo-push-stack #[514 "T E\nB\211\207" [texinfo-stack-depth texinfo-command-start texinfo-stack] 5 (#$ . 29970)])#@14 (fn CHECK) (defalias 'texinfo-pop-stack #[257 "S \204\f\302\303\"\210 @@=\204\302\304 @@#\210 @A A\207" [texinfo-stack-depth texinfo-stack error "Unmatched @end %s" "@end %s matches @%s"] 5 (#$ . 30125)]) (put 'itemize 'texinfo-format 'texinfo-itemize) (defalias 'texinfo-itemize #[0 "\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 #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack itemize texinfo-do-itemize] 3]) (put 'enumerate 'texinfo-format 'texinfo-enumerate) (defalias 'texinfo-enumerate #[0 "\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 #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack enumerate texinfo-do-itemize] 3]) (put 'alphaenumerate 'texinfo-format 'texinfo-alphaenumerate) (defalias 'texinfo-alphaenumerate #[0 "\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 #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack alphaenumerate texinfo-do-itemize] 3]) (put 'capsenumerate 'texinfo-format 'texinfo-capsenumerate) (defalias 'texinfo-capsenumerate #[0 "\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 #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack capsenumerate texinfo-do-itemize] 3])#@13 (fn FROM) (defalias 'texinfo-do-itemize #[257 "\212\300y\210`Y\205.g\301U\203 \212\302\303!\210\304\210\302\305!)\210\202\306\307!\204\212\310c)\210\202)\207" [-1 8 delete-char 1 nil 6 looking-at "[ ]*$" " "] 3 (#$ . 32360)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put item texinfo-format texinfo-item itemx] 4) (defalias 'texinfo-item #[0 "@@\301N \207" [texinfo-stack texinfo-item] 2]) (put 'itemize 'texinfo-item 'texinfo-itemize-item) (defalias 'texinfo-itemize-item #[0 "`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 #[0 "\301 \210\302@A@\250\203%@A@\262\303\304\305\"\306\261\210@AT\240\210\202f@A@9\203b\307@A@!\262\310!\311=\204E\310!\312=\203I\313\314!\210\303\304\315\"\306\261\210@A\316\317\310!T!!\240\210\202f\313\320!\210\321y\207" [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] 6]) (put 'alphaenumerate 'texinfo-item 'texinfo-alphaenumerate-item) (defalias 'texinfo-alphaenumerate-item #[0 "\301 \210@A@T\211\302V\203\303\304!\210@A\240\210\305\306\261\266\307y\207" [texinfo-stack 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 #[0 "\301 \210@A@T\211\302V\203\303\304!\210@A\240\210\305\306\261\266\307y\207" [texinfo-stack 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 #[0 "\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 #[0 "\301 @A@\302\303\304\261\266\305y\207" [texinfo-stack texinfo-parse-arg-discard 8 123 "}\n \n" -2] 7]) (put 'table 'texinfo-end 'texinfo-end-table) (defalias 'texinfo-end-table #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack table texinfo-do-itemize] 3]) (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 #[0 "\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 #[0 "\300\301!\207" [texinfo-indextable ftable] 2]) (defalias 'texinfo-vtable #[0 "\300\301!\207" [texinfo-indextable vtable] 2])#@19 (fn TABLE-TYPE) (defalias 'texinfo-indextable #[257 "\301\302 \"\210\303Z\211\207" [fill-column texinfo-push-stack texinfo-parse-arg-discard 5] 4 (#$ . 35523)]) (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 #[0 "\300\301!\207" [texinfo-indextable-item texinfo-findex] 2]) (defalias 'texinfo-vtable-item #[0 "\300\301!\207" [texinfo-indextable-item texinfo-vindex] 2])#@19 (fn INDEX-TYPE) (defalias 'texinfo-indextable-item #[257 "\302 @A@\303\304\305\261\210 DJBL\210\306y\207" [texinfo-stack texinfo-last-node texinfo-parse-arg-discard 8 123 "}\n \n" -2] 8 (#$ . 36018)]) (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 #[0 "\300\301!\207" [texinfo-end-indextable ftable] 2]) (defalias 'texinfo-end-vtable #[0 "\300\301!\207" [texinfo-end-indextable vtable] 2])#@19 (fn TABLE-TYPE) (defalias 'texinfo-end-indextable #[257 "\301\\\302 \210\303!\304A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack texinfo-do-itemize] 4 (#$ . 36538)])#@66 Number of extra spaces between entries (columns) in @multitable. (defvar texinfo-extra-inter-column-width 0 (#$ . 36733)) (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 #[0 "\300\301\302 \"\210\303 \207" [texinfo-push-stack multitable texinfo-multitable-widths texinfo-discard-line-with-args] 3 (#$ . 37286)]) (put 'multitable 'texinfo-end 'texinfo-end-multitable)#@67 Discard the @end multitable line and pop the stack of multitable. (defalias 'texinfo-end-multitable #[0 "\300 \210\301\302!\207" [texinfo-discard-command texinfo-pop-stack multitable] 2 (#$ . 38610)])#@63 Return list of widths of each column in a multi-column table. (defalias 'texinfo-multitable-widths #[0 "\302\303\302w\210\304\305!\203\306\307!\210\202t\304\310!\2031\311\312!\210l\204t\313\314\315p!!_S!B\262\202\304\316!\203pl\204t\303\302w\210`T\317\312!\210`S\211ZB\262}\210eb\210\320\321\302\322#\203d\323\324!\210\202Udb\210~\210\312u\266\2027\306\325!\210\211G \\\326\327\"\\\211V\203\211\306\330#\210\210\207" [fill-column 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"] 7 (#$ . 38816)])#@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 #[0 "\301\302w\210`\303\304!\210\305\224\211b\210\306\302x\210`|\210\307`\"|\210\207" [texinfo-command-start " " nil re-search-forward "@item\\|@end" 0 " " buffer-substring-no-properties] 5 (#$ . 39696)]) (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 #[0 "p\306@A@! \307\211\310\211\311 \312\n!q\210ed|\210\211c\210eb\210\313\314\315\307\316#\203-\211T\262\202GZ\211\310V\203Reb\210\307\210\211\310V\203R\317c\210\211S\262\320\321!\210\202>\266eb\210m\204\352`\262\212\314\315\307\322#\203p`\323\324!\210`S|\210`)\262 T8\\}\210\325\307w\210`\326 |\210db\210\325\307x\210`\327 |\210\307\330 )\210\307\331ed\")\210\332ed\"]\262eb\210Sy\210` \307\210`ZZT\333\310V\203\307\202\310\313\334\"c\266\335 \336!P!\337e`\"L\210e`|\210db\210T\262~\210\202W\310\307\310V\203\336!\211GW\203\340\341\"\262\202\367\210S\262\202\355\342 !\210\343!\210W\203:`\262\344\335 \336!P!J!\210\211b\210\307\210T\262\202\266\345\n!\210\211\207" [texinfo-stack fill-column texinfo-multitable-buffer-name texinfo-extra-inter-column-width fill-prefix texinfo-multitable-rectangle-name 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 kill-buffer] 16 (#$ . 40148)]) (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 #[0 "\300 \301@\204\f\302\303!\210\304 \210\305\306@\"\262\307\310\"\210`\311!A@\\b\210\307\312\"\207" [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"] 5 (#$ . 41800)]) (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 #[0 "\301\302!|\207" [texinfo-command-start re-search-forward "@end iftex[ ]*\n"] 3]) (put 'ifhtml 'texinfo-format 'texinfo-format-ifhtml) (defalias 'texinfo-format-ifhtml #[0 "\301\302!|\207" [texinfo-command-start re-search-forward "@end ifhtml[ ]*\n"] 3]) (put 'ifplaintext 'texinfo-format 'texinfo-format-ifplaintext) (defalias 'texinfo-format-ifplaintext #[0 "\301\302!|\207" [texinfo-command-start re-search-forward "@end ifplaintext[ ]*\n"] 3]) (put 'ifxml 'texinfo-format 'texinfo-format-ifxml) (defalias 'texinfo-format-ifxml #[0 "\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 #[0 "\301\302!|\207" [texinfo-command-start re-search-forward "@end tex[ ]*\n"] 3]) (put 'html 'texinfo-format 'texinfo-format-html) (defalias 'texinfo-format-html #[0 "\301\302!|\207" [texinfo-command-start re-search-forward "@end html[ ]*\n"] 3]) (put 'xml 'texinfo-format 'texinfo-format-xml) (defalias 'texinfo-format-xml #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\300 \210\301\302!c\207" [texinfo-parse-arg-discard format-time-string "%e %b %Y %R"] 2 (#$ . 44913)]) (put 'ignore 'texinfo-format 'texinfo-format-ignore) (defalias 'texinfo-format-ignore #[0 "\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 #[0 "\301 \211@A@\206 \302\3038\206\302\304 \210DDB\211\207" [texinfo-enclosure-list texinfo-format-parse-line-args "" 2 texinfo-discard-command] 7]) (put 'alias 'texinfo-format 'texinfo-alias) (defalias 'texinfo-alias #[0 "\302\303w\210\304 \305\306!\204\307\310!\207\311\312!\311\313!B B\314 \207" [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 #[0 "\300 \301 \210\211\226c\207" [texinfo-parse-expanded-arg texinfo-discard-command] 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 cite texinfo-format texinfo-format-code code command env file samp url] 4) (defalias 'texinfo-format-code #[0 "\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 #[0 "\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 (#$ . 46656)]) (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 #[0 "\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 #[0 "\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 #[0 "\300 \301 \210\211A@\203\211A@\302\261\210\303@\304\261\207" [texinfo-format-parse-args texinfo-discard-command " " "<" ">"] 4 (#$ . 47490)]) (put 'key 'texinfo-format 'texinfo-format-key) (defalias 'texinfo-format-key #[0 "\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 #[0 "\302T\303\\\"\304\305!\204\306\307!\210 \303\\|\210\310!\266\311\312!\210\304\313!\204*\306\314!\210\311\315!\207" [texinfo-command-end 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 (#$ . 48027)]) (put 'bullet 'texinfo-format 'texinfo-format-bullet)#@74 Insert an asterisk. If used within a line, follow `@bullet' with braces. (defalias 'texinfo-format-bullet #[0 "\300 \210\301c\207" [texinfo-optional-braces-discard "*"] 1 (#$ . 48753)])#@75 Regexp matching environments in which @kbd does not put `...' around arg. (defvar texinfo-format-kbd-regexp "^@\\(display\\|example\\|smallexample\\|lisp\\|smalllisp\\)" (#$ . 48944))#@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\\)" (#$ . 49134)) (put 'kbd 'texinfo-format 'texinfo-format-kbd)#@70 Place single quote marks around arg, except in @example and similar. (defalias 'texinfo-format-kbd #[0 "\212\304\305\306Q\307\310#\210`)\212\304 \310#\210`)\212\304\n\310#\210`)\211Y\203.\311\312 \313\261\210\2022\312 c\210 b\207" [texinfo-section-types-regexp texinfo-format-kbd-regexp texinfo-format-kbd-end-regexp texinfo-command-start re-search-forward "^@node\\|\\(" "\\)" nil move-to-end "`" texinfo-parse-arg-discard "'"] 6 (#$ . 49426)]) (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 #[0 "\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 #[0 "\301\\\302 \210\303\304!\305A@!\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack example texinfo-do-itemize] 3]) (put 'exdent 'texinfo-format 'texinfo-format-exdent) (defalias 'texinfo-format-exdent #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\300 `\301\302w\210`|\210\303\304\261\207" [texinfo-parse-arg-discard " " nil "INFO-DIR-SECTION " "\n"] 4]) (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 #[0 "\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 #[0 "\300 \207" [texinfo-discard-command] 1]) (put 'flushright 'texinfo-format 'texinfo-format-flushright) (defalias 'texinfo-format-flushright #[0 "\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 #[0 "\300 \210\301\302!\303A@!\207" [texinfo-discard-command texinfo-pop-stack flushright texinfo-do-flushright] 3])#@13 (fn FROM) (defalias 'texinfo-do-flushright #[257 "\212\301y\210`Y\205(\302 \210\303\212\304\210\305\304x\210`\304\210`|\210i)Z\306\"c\210\202)\207" [fill-column -1 beginning-of-line make-string nil " " 32] 5 (#$ . 52553)]) (put 'ctrl 'texinfo-format 'texinfo-format-ctrl) (defalias 'texinfo-format-ctrl #[0 "\300 \301\302\303H\"c\207" [texinfo-parse-arg-discard logand 31 0] 5]) (put 'TeX 'texinfo-format 'texinfo-format-TeX) (defalias 'texinfo-format-TeX #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "TeX"] 1]) (put 'copyright 'texinfo-format 'texinfo-format-copyright) (defalias 'texinfo-format-copyright #[0 "\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 #[0 "\300 \210\301c\207" [texinfo-optional-braces-discard "-"] 1 (#$ . 53297)]) (put 'dots 'texinfo-format 'texinfo-format-dots) (defalias 'texinfo-format-dots #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "..."] 1]) (put 'enddots 'texinfo-format 'texinfo-format-enddots) (defalias 'texinfo-format-enddots #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "...."] 1]) (put 'pounds 'texinfo-format 'texinfo-format-pounds) (defalias 'texinfo-format-pounds #[0 "\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" (#$ . 53930)) (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 #[0 "\301 \211\302\230\203\f\302\211\207\303!\211\207" [texinfo-paragraph-indent texinfo-parse-arg-discard "asis" string-to-number] 3 (#$ . 54127)]) (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 #[0 "\304 \210\305 \306\307!\210\310\311!\203\312y\210\212\307y\210\310\313!)\203*\307y\210`\312y\210`|\210\202D\314\232\204D \315V\204D`\316\317w\210`|\210\320\321\"c\210\306\312!\210\307y\210\317\210\n\211\322P \211\322P\323\324#\216\325\317!+\266\211b\207" [texinfo-paragraph-indent texinfo-stack-depth paragraph-separate paragraph-start texinfo-discard-command point-marker forward-paragraph -1 looking-at "[ \n]*$" 1 "^@noindent" "asis" 0 " " nil make-string 32 "\\|[-=.]+\\|\\*\\*+" make-closure #[0 "\301\300\211\207" [V0 V1 paragraph-separate paragraph-start] 2] fill-paragraph] 7 (#$ . 54486)]) (put 'noindent 'texinfo-format 'texinfo-noindent) (defalias 'texinfo-noindent #[0 "\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 #[0 "\300\301!\207" [texinfo-index texinfo-vindex] 2]) (put 'cindex 'texinfo-format 'texinfo-format-cindex) (defalias 'texinfo-format-cindex #[0 "\300\301!\207" [texinfo-index texinfo-cindex] 2]) (put 'findex 'texinfo-format 'texinfo-format-findex) (defalias 'texinfo-format-findex #[0 "\300\301!\207" [texinfo-index texinfo-findex] 2]) (put 'pindex 'texinfo-format 'texinfo-format-pindex) (defalias 'texinfo-format-pindex #[0 "\300\301!\207" [texinfo-index texinfo-pindex] 2]) (put 'tindex 'texinfo-format 'texinfo-format-tindex) (defalias 'texinfo-format-tindex #[0 "\300\301!\207" [texinfo-index texinfo-tindex] 2]) (put 'kindex 'texinfo-format 'texinfo-format-kindex) (defalias 'texinfo-format-kindex #[0 "\300\301!\207" [texinfo-index texinfo-kindex] 2])#@17 (fn INDEXVAR) (defalias 'texinfo-index #[257 "\302 \303 \210 \203\304 `\"T\202\305EJBL\207" [texinfo-last-node texinfo-last-node-pos texinfo-parse-expanded-arg texinfo-discard-command count-lines 1] 8 (#$ . 56354)]) (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 #[0 "\301 \302\303P!\302\304\303Q!\302\305\303Q!\211\306L\210\307\310#\210\311\"\204*BB\312\306\313\314DDEM\207" [texinfo-indexvar-alist texinfo-parse-arg-discard intern "index" "texinfo-format-" "texinfo-" nil put texinfo-format assoc lambda texinfo-index quote] 10]) (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 #[0 "\302 \303!A\304\303!@!\304\303\"@!\305\"\2031\306\305\"A\307\305 \"A\206/\310\311\312Q!#\207\306\310\312P!\307\305 \"A\206F\310\311\312Q!#\207" [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"] 11]) (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)))#@18 (fn START END) (defalias 'texinfo-sort-region #[514 "\300\301!\210\214}\210eb\210\302\303\304\305\306$)\207" [require sort sort-subr nil forward-line end-of-line texinfo-sort-startkeyfun] 7 (#$ . 58102)]) (defalias 'texinfo-sort-startkeyfun #[0 "\300`\301 \"\302\303\"\203\211\304\211\224O\305\304\225\306OQ\262\202\207" [buffer-substring-no-properties line-end-position string-match "[ ][ ]+\\|[^a-z0-9 ]+" 0 " " nil] 6]) (put 'printindex 'texinfo-format 'texinfo-format-printindex) (defalias 'texinfo-format-printindex #[0 "\302 \303\"A\304\305\306\307\310\" \"\"\311\312\305\306\313\"#\305\314c\210`\262\315\305\"\210\316`\"\207" [texinfo-short-index-format-cmds-alist texinfo-short-index-cmds-alist texinfo-parse-arg-discard assoc delq nil mapcar make-closure #[257 "\300A\302N=\205\303@ \"A\207" [V0 texinfo-indexvar-alist texinfo-format assoc] 4 "\n\n(fn E)"] apply append symbol-value "\n* Menu:\n\n" texinfo-print-index texinfo-sort-region] 9])#@23 (fn FILE INDEXELTS) (defalias 'texinfo-print-index #[514 "\211\205Y\211@@;\203G\300@@\301\261\210\302j\210\203!\303\304Q\202\"\305@A@\306\261\210\307j\210\310@8\203?\311\312\310@8T\"\202@\305\313\261\210\202R\314@A@\310@8\"\210\211A\262\202\207" ["* " ": " 32 "(" ")" "" "." 54 2 format " (line %3d)" "\n" texinfo-print-index] 6 (#$ . 59084)]) (put 'equiv 'texinfo-format 'texinfo-format-equiv) (defalias 'texinfo-format-equiv #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "=="] 1]) (put 'error 'texinfo-format 'texinfo-format-error) (defalias 'texinfo-format-error #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "error-->"] 1]) (put 'expansion 'texinfo-format 'texinfo-format-expansion) (defalias 'texinfo-format-expansion #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "==>"] 1]) (put 'point 'texinfo-format 'texinfo-format-point) (defalias 'texinfo-format-point #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "-!-"] 1]) (put 'print 'texinfo-format 'texinfo-format-print) (defalias 'texinfo-format-print #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "-|"] 1]) (put 'result 'texinfo-format 'texinfo-format-result) (defalias 'texinfo-format-result #[0 "\300 \210\301c\207" [texinfo-parse-arg-discard "=>"] 1]) (put 'OE 'texinfo-format 'texinfo-format-French-OE-ligature) (defalias 'texinfo-format-French-OE-ligature #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\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 #[0 "\301\302 \261\210b\207" [texinfo-command-start "<" texinfo-parse-arg-discard] 2]) (put 'dotless 'texinfo-format 'texinfo-format-dotless) (defalias 'texinfo-format-dotless #[0 "\301 c\210b\207" [texinfo-command-start texinfo-parse-arg-discard] 1]) (defalias 'texinfo-format-defun #[0 "\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 #[0 "\301\\\302 \210\303\304!A@\305!\210\212\211b\210\306\307!)\207" [fill-column 5 texinfo-discard-command texinfo-pop-stack defun texinfo-do-itemize delete-char -1] 3]) (defalias 'texinfo-format-defunx #[0 "\300\301!\207" [texinfo-format-defun-1 nil] 2])#@16 (fn FIRST-P) (defalias 'texinfo-format-defun-1 #[257 "\303 \301N\304 \210\204\305\306!\210\307N!\210\310c\210\n@AA`\240\210\311N!)\207" [texinfo-command-name texinfo-defun-type texinfo-stack texinfo-format-parse-defun-args texinfo-discard-command delete-char -1 texinfo-deffn-formatting-property "\n\n" texinfo-defun-indexing-property] 4 (#$ . 65392)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-deffn #[257 "\211@A@AA\301\302\261\210\211\2056\303@\304H\305U\204$@\306=\203)@\202,@\226\261\210\211A\262\202\207" [texinfo-defun-type " -- " ": " " " 0 38 deftp-type] 8 (#$ . 66004)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-specialized-defun #[257 "A@@A\301\302\261\210\211\205.\303@\304H\305U\203!@\202$@\226\261\210\211A\262\202\207" [texinfo-defun-type " -- " ": " " " 0 38] 8 (#$ . 66632)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-deftypefn #[257 "\211@A@AA@AAA\300\301\302\261\210\211\205(\302@\261\210\211A\262\202\207" [" -- " ": " " "] 11 (#$ . 67077)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-deftypefun #[257 "A@@A@AA\301\302\303\261\210\211\205&\303@\261\210\211A\262\202\207" [texinfo-defun-type " -- " ": " " "] 11 (#$ . 67481)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defop texinfo-deffn-formatting-property texinfo-format-defop defopx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-defop #[257 "\211@A@AA@AAA\300\301\302\261\210\211\205)\303@\226\261\210\211A\262\202\207" [" -- " " on " ": " " "] 11 (#$ . 67820)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defcv texinfo-deffn-formatting-property texinfo-format-defcv defcvx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-defcv #[257 "\211@A@AA@AAA\300\301\302\261\210\211\205)\303@\226\261\210\211A\262\202\207" [" -- " " of " ": " " "] 11 (#$ . 68151)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defmethod texinfo-deffn-formatting-property texinfo-format-defmethod defmethodx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-defmethod #[257 "A@@A@AA\301\302\303\261\210\211\205'\304@\226\261\210\211A\262\202\207" [texinfo-defun-type " -- " " on " ": " " "] 11 (#$ . 68494)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defivar texinfo-deffn-formatting-property texinfo-format-defivar defivarx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-format-defivar #[257 "A@@A@AA\301\302\303\261\210\211\205'\304@\226\261\210\211A\262\202\207" [texinfo-defun-type " -- " " of " ": " " "] 11 (#$ . 68849)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-defun #[257 "\303N\211@ \n\203\304\n`\"T\202\305EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 8 (#$ . 69423)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-deffn #[257 "\303N\211A@ \n\203\304\n`\"T\202\305EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 8 (#$ . 70021)]) (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)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-deftypefn #[257 "\303N\211AA@ \n\203\304\n`\"T\202\305EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 8 (#$ . 70455)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defmethod texinfo-defun-indexing-property texinfo-index-defmethod defmethodx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-defmethod #[257 "\303N\211\304\305A@@# \n\203\306\n`\"T\202\307EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 8 (#$ . 70831)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defop texinfo-defun-indexing-property texinfo-index-defop defopx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-defop #[257 "\303N\211\304\305AA@A@# \n\203\306\n`\"T\202\307EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 8 (#$ . 71223)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defivar texinfo-defun-indexing-property texinfo-index-defivar defivarx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-defivar #[257 "\303N\211\304\305A@@# \n\203\306\n`\"T\202\307EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 8 (#$ . 71619)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defcv texinfo-defun-indexing-property texinfo-index-defcv defcvx] 4)#@20 (fn PARSED-ARGS) (defalias 'texinfo-index-defcv #[257 "\303N\211\304\305AA@A@# \n\203\306\n`\"T\202\307EJBL\207" [texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 8 (#$ . 72009)]) (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#\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] 4) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\304\307#\210\300\301\310\311#\210\300\306\310\311#\210\300\312\313\314#\210\300\315\313\316#\210\300\312\302\303#\210\300\312\304\317#\210\300\315\304\320#\210\300\312\310\321#\210\300\315\310\321#\210\300\322\313\314#\210\300\323\313\316#\210\300\322\302\303#\210\300\322\304\324#\210\300\323\304\325#\210\300\322\310\326#\210\300\323\310\326#\210\300\327\313\314#\210\300\330\313\316#\210\300\327\302\303#\210\300\327\304\331#\210\300\330\304\332#\210\300\327\310\311#\210\300\330\310\311#\210\300\333\313\314#\210\300\334\313\316#\210\300\333\302\303#\210\300\333\304\335#\210\300\334\304\336#\210\300\333\310\311#\210\300\334\310\311#\210\300\337\313\314#\210\300\340\313\316#\210\300\337\302\303#\210\300\337\304\341#\210\300\340\304\342#\210\300\337\310\321#\210\300\340\310\321#\210\300\343\313\314#\210\300\344\313\316#\210\300\343\302\303#\210\300\343\304\345#\210\300\344\304\346#\210\300\343\310\321#\210\300\344\310\321#\210\300\347\313\314#\210\300\350\313\316#\210\300\347\302\303#\210\300\347\304\351#\207" [put defcmd texinfo-end texinfo-end-defun texinfo-defun-type (defun-type "Command") defcmdx (defun-type "Command") texinfo-defun-index texinfo-findex defopt texinfo-format texinfo-format-defun defoptx texinfo-format-defunx (defun-type "User Option") (defun-type "User Option") texinfo-vindex 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)] 4) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\301\305\306#\210\300\307\310\311#\210\300\312\310\313#\210\300\307\314\315#\210\300\307\302\316#\210\300\312\302\317#\210\300\307\305\306#\210\300\312\305\306#\210\300\320\310\311#\210\300\321\310\313#\210\300\320\314\315#\210\300\320\302\322#\210\300\321\302\323#\210\300\320\305\324#\210\300\321\305\324#\210\300\325\310\311#\210\300\326\310\313#\210\300\325\314\315#\210\300\325\302\327#\210\300\326\302\330#\210\300\325\305\324#\210\300\326\305\324#\210\300\331\310\332#\207" [put deftypefnx texinfo-defun-type (deftypefn-type nil) deftypefn texinfo-defun-index texinfo-findex deftypefun texinfo-format texinfo-format-defun deftypefunx texinfo-format-defunx texinfo-end texinfo-end-defun (deftypefun-type "Function") (deftypefun-type "Function") deftypevr deftypevrx (deftypefn-type nil) (deftypefn-type nil) texinfo-vindex deftypevar deftypevarx (deftypevar-type "Variable") (deftypevar-type "Variable") clear texinfo-clear] 4)#@30 Clear the value of the flag. (defalias 'texinfo-clear #[0 "\300 \301!@\302\303\304#\210\302\305\306#\207" [texinfo-parse-arg-discard read-from-string put texinfo-whether-setp flag-cleared texinfo-set-value ""] 6 (#$ . 76685)]) (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 #[0 "\300 \301!@\301!A\302O\303\304\"\203\211\305\225\302O\262\306\307\310#\210\306\311#\207" [texinfo-parse-arg-discard read-from-string nil string-match "^[ ]+" 0 put texinfo-whether-setp flag-set texinfo-set-value] 7 (#$ . 76961)]) (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 #[0 "\300 \301!@\302N\303=\203\301!@\304N\203\301!@\304Nc\207\301!@\302N\305=\203/\306\307\"c\207\301!@\302N?\205>\306\307\"c\207" [texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set texinfo-set-value flag-cleared format "{No value for \"%s\"}"] 4 (#$ . 77471)]) (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 #[0 "\301 \302!@\303N\304=\203\305\207\302!@\303N\306=\203 \307\310!|\207\302!@\303N?\205+\305\207" [texinfo-command-start texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set nil flag-cleared re-search-forward "@end ifset[ ]*\n"] 4 (#$ . 78120)]) (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 #[0 "\301 \302!@\303N\304=\203\305\306!|\207\302!@\303N\307=\203 \310\207\302!@\303N?\205+\310\207" [texinfo-command-start texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set re-search-forward "@end ifclear[ ]*\n" flag-cleared nil] 4 (#$ . 78642)]) (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 #[0 "b\210\303\212\304\305!\210`)\306\305u\210\307\306w\210`\262\310\311\303#\210\312\306x\210\313`\"\310\311\303#\210\307\306w\210`\262\310\311\303#\210\312\306x\210\313`\"\310\311\303#\210\307\306w\210`\262Sb\210\307\306x\210\313`\"\n|\210\232\203f\211c\210\nb)\207" [texinfo-command-end case-fold-search texinfo-command-start t forward-sexp 1 nil " " search-forward "," ", " buffer-substring-no-properties] 8 (#$ . 79075)]) (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 #[0 "\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 #[0 "b\210\302\303!\210` |\207" [texinfo-command-end texinfo-command-start forward-list 1] 2 (#$ . 80378)]) (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 #[0 "\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 #[0 "\204\306\307!\210\310\311\211\312\211\313\311\211)\203Y\314)@!\262\315!\2048\316\317\"\210\320\262)A\211)\202\321!\203K\322!)A\244\211)\202B\262)A\211)\204\211\203\337\211@\262\211A\262\3231\234\203r\324p!\210\325!\210\326p!\210\327\311!\210\330 \210\316\331\"\210\332\311!\210\333 \205\227\316\334\335 \"\210\336 0\210\202Y\316\337\340!\"\210\316\341!\210\342``\343\\d^\"\313\344\345#\211\262\203\320\313\211\224O\346\313\225\311OQ\262\211T\262\202\260\316\347\"\266\320\211\262\266\202Y\350!\266\203-\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+" "\n>> " ">> %s" kill-emacs command-line-args-left] 12 (#$ . 82102)]) (provide 'texinfmt)