;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri Mar 11 19:24:18 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/texinfmt.el ;;; emacs version 19.22.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/texinfmt.el' was compiled for Emacs 19")) (byte-code "!!!!o ###########LJ" [boundp texinfmt-version "2.32 of 19 November 1993" require texinfo texnfo-upd texinfo-format-syntax-table nil make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "." 93 40 41 123 "(}" 125 "){" 39] 4) (defalias 'texinfo-format-buffer #[(&optional notagify) " ! \f- Vlj! V-ʉ! t7̂8P!)" ["Formatting Info file..." lastmessage message texinfo-format-buffer-1 notagify buffer-size 30000 "Making tags table for Info file..." Info-tagify 100000 "Splitting Info file..." Info-split "done. Now save it." "done."] 3 "\ Process the current buffer as 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. 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." "P"]) (defvar texinfo-region-buffer-name "*Info Region*" "\ *Name of the temporary buffer used by \\[texinfo-format-region].") (defalias 'texinfo-format-region #[(region-beginning region-end) "!‰‰ plj \n \f ~eby`) \" #y` x$#y`eb #y` y` &^{\n+)!! \nc\f&],#hUceb ! 1!#!` P5y`y`)|5\"``5!A@\\}eby`)#y`y`)|+eb eb db#<`d|hUEc=eb!Z`y`)|eby`)#`y`@ AB)CDEA!!cFc)B)GHIJ\f!KLDJ\f!!!MQNO\f!MQPQRebS ebT!." [message "Converting region to Info format..." nil "" 0 fill-column default-directory 1 header-end header-beginning header-text input-directory 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 100 search-end search-forward tex-start-of-header t tex-end-of-header "@setfilename" region-beginning switch-to-buffer get-buffer-create texinfo-region-buffer-name erase-buffer insert-buffer-substring region-end 10 "\n" texinfo-mode set-syntax-table texinfo-format-syntax-table re-search-forward "^@include" texinfo-parse-line-arg filename "Reading included file: %s" insert-file-contents "^@setfilename" texinfo-raise-lower-sections texinfo-append-refill re-search-backward "^@bye" texinfo-enclosure-list looking-at "\\\\input[ ]+texinfo" texinfo-parse-arg-discard arg " " " 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 "`" file-name-sans-versions "'" "buffer `" buffer-name "\nusing `texinfmt.el' version " texinfmt-version ".\n\n" texinfo-format-scan "Done."] 23 "\ 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." "r"]) (byte-code "\"\"" [defalias texinfo-format-buffer-1 #[nil "\np  \n \f eb#P!` )! #! ! !\"eb#`\f P+y`y`)|+\"``+!A@\\}eby`)#y`y`)|+yeb eb eb!ye`|db#`d|hUc eb \f." [nil 0 fill-column default-directory input-directory input-buffer fill-column-for-info outfile 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 search-forward "@setfilename" t error "Texinfo file needs an `@setfilename FILENAME' line." texinfo-parse-line-arg find-file texinfo-mode set-syntax-table texinfo-format-syntax-table erase-buffer insert-buffer-substring message "Converting %s to Info format..." buffer-name re-search-forward "^@include" filename 1 "Reading included file: %s" insert-file-contents "^@setfilename" 100 texinfo-raise-lower-sections texinfo-append-refill search-backward "@bye" 10 "\n" texinfo-format-scan] 21] texinfo-format-convert #[(min max) "b #!b #$!b #;ʔTʔ\\|'" [min search-forward "``" max t replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" 2] 4]] 3) (defvar texinfo-no-refill-regexp "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|tex\\)" "\ Regexp specifying environments in which paragraphs are not filled.") (defvar texinfo-part-of-para-regexp "^@\\(b{\\|bullet{\\|cite{\\|code{\\|emph{\\|equiv{\\|error{\\|expansion{\\|file{\\|i{\\|inforef{\\|kbd{\\|key{\\|lisp{\\|minus{\\|point{\\|print{\\|pxref{\\|r{\\|ref{\\|result{\\|samp{\\|sc{\\|t{\\|TeX{\\|today{\\|var{\\|w{\\|xref{\\)" "\ Regexp specifying @-commands found within paragraphs.") (defalias 'texinfo-append-refill #[nil "`dWy P!/\n˰!/`dW/y !M̔̕{  P#y)`dY`ъ `)#f y`x`)|֊y`)#cy*" ["^[ \n]*$" nil case-fold-search refill-blank-lines 0 looking-at "^@\\|^\\\\\\|" "\\(" texinfo-no-refill-regexp "\\|" texinfo-part-of-para-regexp "\\)" 1 environment re-search-forward "^@end " t "@w{\\|@\\*" forward-paragraph -1 " " re-search-backward "@refill\\|@bye" "@refill"] 6 "\ 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-raise-lower-sections #[nil "Q#yp!) =.\nT`y`)| =C\nS`y`)|\nVt\n  Vf A SP! !c*\nUy\nW\n  W A T! !c**" [nil 0 level type re-search-forward "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\(" texinfo-section-types-regexp "\\)\\)" t read @raisesections 1 @lowersections new-level count texinfo-raisesections-alist kill-word symbol-name texinfo-lowersections-alist] 5 "\ 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."]) (defvar texinfo-raisesections-alist (quote ((@chapter . @chapter) (@unnumbered . @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))) "\ *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-lowersections-alist (quote ((@chapter . @section) (@unnumbered . @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))) "\ *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.") (byte-code "\"#\"#\"\"\"\"\"\"\"" [defalias texinfo-format-scan #[nil "ed\"eb#!8gU.`S`T|gUc!u`S\fgzUIvLu`\fT{!!\"~A@@ A@A@\fbN ))@8b@@\"" [texinfo-format-convert search-forward "@" nil t looking-at "[@{}'` *]" 42 10 delete-char -1 1 texinfo-command-start 119 texinfo-command-end intern texinfo-command-name assoc symbol-name texinfo-enclosure-list enclosure-type texinfo-parse-arg-discard texinfo-format cmd texinfo-unsupported texinfo-stack 2 error "Unterminated @%s"] 5] put begin texinfo-format texinfo-format-begin #[nil "!" [texinfo-format-begin-end texinfo-format] 2] end texinfo-format-end #[nil "!" [texinfo-format-begin-end texinfo-end] 2] texinfo-format-begin-end #[(prop) " ! N\f  )" [intern texinfo-parse-line-arg texinfo-command-name prop cmd texinfo-unsupported] 3] texinfo-parse-line-arg #[nil "b`!%w`x``|`T>!:`T!`u>! `{lHu)" [texinfo-command-end start looking-at " " nil "{" forward-list 1 -1 error "Invalid texinfo command arg format"] 2] texinfo-parse-expanded-arg #[nil "b`!w``T5!1`T!`u5!  `\"\n!\n `{lSu*" [texinfo-command-end nil marker start looking-at " " "{" forward-list 1 -1 error "Invalid texinfo command arg format" make-marker texinfo-format-expand-region marker-position] 3] texinfo-format-expand-region #[(start end) " }‰ ,db)" [start end nil texinfo-stack texinfo-command-name texinfo-command-end texinfo-command-start texinfo-format-scan] 4] texinfo-parse-arg-discard #[nil " " [texinfo-parse-line-arg texinfo-discard-command] 2] texinfo-discard-command #[nil " |" [texinfo-command-start texinfo-command-end] 2]] 4) (defalias 'texinfo-optional-braces-discard #[nil "b`!!!`! |)" [texinfo-command-end start looking-at "[ ]*\n" "{" forward-list 1 error "Invalid `texinfo-optional-braces-discard' format (need braces?)" texinfo-command-start] 2 "\ Discard braces following command, if any."]) (byte-code "\"\"\"\"\"#\"##\"#\"###\"#\"#\"#########\"#########\"######ˁ@#A\"ˁB́C#ˁD́C#ˁÉC#ˁF́C#ˁǴC#ˁH́C#ˁÍC#CJ\"KL\"ˁḾN#NO\"ˁṔQ#QR\"ˁŚT#TU\"ˁV́W#WX\"ˁÝZ#Z[\"ˁ\\́]#" [defalias texinfo-format-parse-line-args #[nil "`SwlA`!`n\"\fSux` V4 \n{ B\fbwlHu` -" [nil args end beg next start " " re-search-forward "[\n,]" -1 1 texinfo-command-end] 6] texinfo-format-parse-args #[nil "`S!`!`S)\")hUbw`!`ux` \nWP b\n#P!A\n VY \n{ B\fbliu` -" [nil args end beg next start search-forward "{" texinfo-format-expand-region up-list 1 125 " \n" re-search-forward "[},]" -1 "\n" t replace-match " " texinfo-command-end] 5] texinfo-format-parse-defun-args #[nil "b``T “ `\"\f!\f‰) b‰ wlg!I`T!`SV`!u`{ B w0u ," [texinfo-command-end start nil make-marker marker texinfo-format-expand-region marker-position end beg args " " looking-at "{" forward-list 1 re-search-forward "[\n ]" -1] 3] texinfo-discard-line #[nil "bwl! bn!`y`|" [texinfo-command-end " " nil error "Extraneous text at end of command line." texinfo-command-start "Extraneous text at beginning of command line." 1] 2] texinfo-discard-line-with-args #[nil "b`y`|" [texinfo-command-start 1] 2] put setfilename texinfo-format texinfo-format-setfilename #[nil "  \" !!\f!*\f!!!Q1\f!QԱ )" [texinfo-parse-arg-discard arg message "Formatting Info file: %s" file-name-nondirectory expand-file-name texinfo-format-filename "Info file: " ", -*-Text-*-\n" "produced by `texinfo-format-buffer'\n" "from file" buffer-file-name input-buffer " `" file-name-sans-versions "'" "buffer `" buffer-name "\nusing `texinfmt.el' version " texinfmt-version ".\n\n"] 10] node texinfo-format-node nwnode #[nil " @ A@ 8 8 \n \n\n\n\f\".\n\"6\nC\fB\f)nAc\n R  [ fc`-" [texinfo-format-parse-line-args args name next 2 prev 3 up texinfo-discard-command texinfo-last-node tem assoc texinfo-node-names error "Duplicate node name: %s" 0 texinfo-footnote-number 10 "\nFile: " texinfo-format-filename ", Node: " ", Next: " ", Prev: " ", Up: " texinfo-last-node-pos] 5] menu texinfo-format-menu #[nil " c" [texinfo-discard-line "* Menu:\n\n"] 1] texinfo-end texinfo-discard-command ref texinfo-format-xref xref #[nil "  c A@ 8% 8% @DZ@ + @ȱ 8= 8ʱ @c*" [texinfo-format-parse-args args texinfo-discard-command "*Note " 2 fname 3 "::" ": " "(" ")"] 4] pxref texinfo-format-pxref #[nil " u!)c" [texinfo-format-xref -2 looking-at "::" "."] 2] inforef texinfo-format-inforef #[nil "  A@ A@ 8 @' 8 @ȱ)" [texinfo-format-parse-args args texinfo-discard-command "*Note " ": (" 2 ")" "(" "::"] 6] majorheading texinfo-format-chapter chapheading ichapter chapter iappendix appendix iunnumbered top unnumbered #[nil "!" [texinfo-format-chapter-1 42] 2] heading texinfo-format-section isection section iappendixsection appendixsection iappendixsec appendixsec iunnumberedsec unnumberedsec #[nil "!" [texinfo-format-chapter-1 61] 2] subheading texinfo-format-subsection isubsection subsection iappendixsubsec appendixsubsec iunnumberedsubsec unnumberedsubsec #[nil "!" [texinfo-format-chapter-1 45] 2] subsubheading texinfo-format-subsubsection isubsubsection subsubsection iappendixsubsubsec appendixsubsubsec iunnumberedsubsubsec unnumberedsubsubsec #[nil "!" [texinfo-format-chapter-1 46] 2] texinfo-format-chapter-1 #[(belowchar) "  \" ıy)" [texinfo-parse-arg-discard arg message "Formatting: %s ... " 10 "@SectionPAD " belowchar -2] 6] SectionPAD texinfo-format-sectionpad #[nil " uiu V c S\f)c)" [texinfo-parse-arg-discard str -1 column 1 0 10] 3] \. texinfo-format-\. #[nil " c" [texinfo-discard-command "."] 1] : texinfo-format-: #[nil " " [texinfo-discard-command] 1] center texinfo-format-center #[nil "  cc`Sb +" [texinfo-parse-expanded-arg arg texinfo-discard-command 10 nil indent-tabs-mode center-line] 1] sp texinfo-format-sp #[nil "  ! \"*" [texinfo-parse-arg-discard arg read num insert-char 10] 3] br texinfo-format-paragraph-break] 4) (defalias 'texinfo-format-paragraph-break #[nil " gU\fc\"" [texinfo-optional-braces-discard 10 insert-char 2] 3 "\ Force a paragraph break. If used within a line, follow `@br' with braces."]) (defvar texinfo-footnote-style "separate" "\ Footnote style, either separate or end.") (put (quote footnotestyle) (quote texinfo-format) (quote texinfo-footnotestyle)) (defalias 'texinfo-footnotestyle #[nil " " [texinfo-parse-arg-discard texinfo-footnote-style] 2 "\ Specify whether footnotes are at end of node or in separate nodes. Argument is either end or separate."]) (put (quote footnote) (quote texinfo-format) (quote texinfo-format-footnote)) (defalias 'texinfo-format-footnote #[nil "T ˜\f Ę " [texinfo-footnote-number texinfo-footnote-style "end" texinfo-format-end-node "separate" texinfo-format-separate-node] 2 "\ 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-separate-node #[nil " !ƕ)bw`ʊ`)#+`S/`{)\f x`)`|\f#c!#Yy\fP#)x` #c `\"\f\fݱ` #c `\"-" [nil start texinfo-parse-line-arg arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ ]+Node:" 0 node-name-beginning " " search-forward "," t node-name texinfo-discard-command " \n" format " (%d) (*Note %s-Footnotes::)" texinfo-footnote-number fill-paragraph re-search-forward "^@node" move -1 "-Footnotes, Up: " "\n(%d) %s\n" fill-region "\n\nFile: " texinfo-format-filename " Node: " "\n"] 7 "\ Format footnote in Separate node style, with notes in own node. The node is constructed automatically."]) (defalias 'texinfo-format-end-node #[nil "  x`)`|\"c!#B#1y`\n#c `\"Y#Myc`\n#c+" [nil texinfo-parse-line-arg arg start texinfo-discard-command " \n" format " (%d) " texinfo-footnote-number fill-paragraph search-forward "\n--------- Footnotes ---------\n" t re-search-forward "^@node" move -1 "\n(%d) %s\n" fill-region] 4 "\ Format footnote in the End of node style, with notes at end of node."]) (defvar texinfo-stack-depth 0 "\ Count of number of unpopped texinfo-push-stack calls. Used by @refill indenting command to avoid indenting within lists, etc.") (byte-code "\"\"#\"#\"#\"#\"#\"#\"#\"#\"\"##\"#\"#\"#\"#\"#\"#\"#\"##\"##\"\"\"##\"\"@A\"ʁB#ʁC#BD\"CE\"FG\"ŁHǁI#ŁHʁJ#ŁKǁL#LM\"ŁNǁO#OP\"ŁQǁR#RS\"ŁTǁI#ŁUǁV#VW\"ŁXǁI#ŁYǁZ#Z[\"Ł\\ǁ]#]^\"Ł_ǁI#Ł`ǁa#ab\"Łcǁd#Łeǁd#df\"Łgǁh#Łiǁh#Łjǁh#Łkǁh#Łlǁh#Łmǁh#Łnǁh#Łoǁh#Łpǁh#Łqǁh#hr\"Łsǁt#Łuǁt#Łvǁt#Łwǁt#Łxǁt#ty\"Łzǁ{#Ł|ǁ{#{}\"Ł~ǁ#Łǁ#\"Łǁ#" [defalias texinfo-push-stack #[(check arg) "T \n E\fB" [texinfo-stack-depth check arg texinfo-command-start texinfo-stack] 3] texinfo-pop-stack #[(check) "S \f\f\" @@\f=\f @@# @A A" [texinfo-stack-depth texinfo-stack error "Unmatched @end %s" check "@end %s matches @%s"] 4] put itemize texinfo-format texinfo-itemize #[nil "wlĂ \" Z" [texinfo-push-stack itemize " " nil "@bullet" texinfo-parse-line-arg texinfo-discard-line-with-args fill-column 5] 4] texinfo-end texinfo-end-itemize #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack itemize stacktop texinfo-do-itemize] 2] enumerate texinfo-enumerate #[nil "wlĂp!\"@A@9-@A@!GV-!  Z " [texinfo-push-stack enumerate " " nil 1 read texinfo-stack symbol-name error "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." texinfo-discard-line-with-args fill-column 5] 4] texinfo-end-enumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack enumerate stacktop texinfo-do-itemize] 2] alphaenumerate texinfo-alphaenumerate #[nil "\" Z " [texinfo-push-stack alphaenumerate 96 fill-column 5 texinfo-discard-line] 3] texinfo-end-alphaenumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack alphaenumerate stacktop texinfo-do-itemize] 2] capsenumerate texinfo-capsenumerate #[nil "\" Z " [texinfo-push-stack capsenumerate 64 fill-column 5 texinfo-discard-line] 3] texinfo-end-capsenumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack capsenumerate stacktop texinfo-do-itemize] 2] texinfo-do-itemize #[(from) "y` Y.gU !!)!c))" [-1 from 8 delete-char 1 nil 6 looking-at "[ ]*$" " "] 2] item texinfo-item itemx #[nil "@@N " [texinfo-stack texinfo-item] 2] texinfo-itemize-item #[nil "`Ty`)|!\f@A@ű%\f@A@Ʊy" [0 looking-at "[ ]*[^ \n]+" " " texinfo-stack " \n" " " -1] 3] texinfo-enumerate-item #[nil "  @A@% @A@\n\"DZ @A\nTe @A@9a @A@!\n!ʚD\n!˚H!\n\"DZ @A\n!T!!e!y)" [texinfo-discard-line nil enumerating-symbol texinfo-stack 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] texinfo-alphaenumerate-item #[nil " @A@TV! @A\n\nDZ)y" [texinfo-discard-line texinfo-stack next 122 error "More than 26 items in @alphaenumerate; get a bigger alphabet." " " ". \n" -1] 4] texinfo-capsenumerate-item #[nil " @A@TV! @A\n\nDZ)y" [texinfo-discard-line texinfo-stack next 90 error "More than 26 items in @capsenumerate; get a bigger alphabet." " " ". \n" -1] 4] table texinfo-table #[nil "wlĂ \" Z" [texinfo-push-stack table " " nil "@asis" texinfo-parse-line-arg texinfo-discard-line-with-args fill-column 5] 4] texinfo-table-item #[nil " @A@\n Ʊ*y" [texinfo-parse-arg-discard texinfo-stack itemfont arg 8 123 "}\n \n" -2] 5] texinfo-end-table #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack table stacktop texinfo-do-itemize] 2] description texinfo-description #[nil "\" Z " [texinfo-push-stack table "@asis" fill-column 5 texinfo-discard-line] 3] ftable texinfo-ftable vtable texinfo-vtable #[nil "!" [texinfo-indextable ftable] 2] #[nil "!" [texinfo-indextable vtable] 2] texinfo-indextable #[(table-type) " \" Z" [texinfo-push-stack table-type texinfo-parse-arg-discard fill-column 5] 3] texinfo-ftable-item texinfo-vtable-item #[nil "!" [texinfo-indextable-item texinfo-findex] 2] #[nil "!" [texinfo-indextable-item texinfo-vindex] 2] texinfo-indextable-item #[(index-type) " @A@\n\f ȱ  D JBLy+" [texinfo-parse-arg-discard texinfo-stack index-type indexvar itemfont item 8 123 "}\n \n" texinfo-last-node -2] 5] texinfo-end-ftable texinfo-end-vtable #[nil "!" [texinfo-end-indextable ftable] 2] #[nil "!" [texinfo-end-indextable vtable] 2] texinfo-end-indextable #[(table-type) "\\ \f! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack table-type stacktop texinfo-do-itemize] 2] ifinfo texinfo-discard-line texinfo-discard-command iftex texinfo-format-iftex #[nil "!`|" [texinfo-command-start re-search-forward "@end iftex[ ]*\n"] 3] tex texinfo-format-tex #[nil "!`|" [texinfo-command-start re-search-forward "@end tex[ ]*\n"] 3] titlepage texinfo-format-titlepage #[nil "!`|" [texinfo-command-start re-search-forward "@end titlepage[ ]*\n"] 3] endtitlepage titlespec texinfo-format-titlespec #[nil "!`|" [texinfo-command-start re-search-forward "@end titlespec[ ]*\n"] 3] endtitlespec today texinfo-format-today #[nil " O O O$c" [texinfo-parse-arg-discard format "%s %s %s" current-time-string 8 10 4 7 -4 nil] 7] ignore texinfo-format-ignore #[nil "!`|" [texinfo-command-start re-search-forward "@end ignore[ ]*\n"] 3] endignore definfoenclose texinfo-define-info-enclosure #[nil " @ A@  8 \n\fDDB," [texinfo-format-parse-line-args args command-name "" beginning-delimiter 2 end-delimiter texinfo-discard-command texinfo-enclosure-list] 4] var texinfo-format-var sc #[nil " c b" [texinfo-parse-arg-discard texinfo-command-start] 1] b texinfo-format-noop i r t w asis dmn key math titlefont #[nil " c b" [texinfo-parse-arg-discard texinfo-command-start] 1] cite texinfo-format-code code file kbd samp #[nil " ± b" ["`" texinfo-parse-arg-discard "'" texinfo-command-start] 3] emph texinfo-format-emph strong #[nil " \nb" ["*" texinfo-parse-arg-discard texinfo-command-start] 3] dfn texinfo-format-defn defn #[nil " \nb" ["\"" texinfo-parse-arg-discard texinfo-command-start] 3] bullet texinfo-format-bullet] 4) (defalias 'texinfo-format-bullet #[nil " c" [texinfo-optional-braces-discard "*"] 1 "\ Insert an asterisk. If used within a line, follow `@bullet' with braces."]) (byte-code "######\"######\"#\"####\"##\"#\"#\"\"#\"#\"#\"#" [put display texinfo-format texinfo-format-example example lisp quotation smallexample smalllisp defalias #[nil "\" Z " [texinfo-push-stack example nil fill-column 5 texinfo-discard-line] 3] texinfo-end texinfo-end-example #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack example stacktop texinfo-do-itemize] 2] exdent texinfo-format-exdent #[nil " `w`|cc)" [texinfo-discard-command " " nil 8 "\n "] 3] cartouche texinfo-discard-line texinfo-discard-command format texinfo-format-flushleft flushleft #[nil " " [texinfo-discard-line] 1] texinfo-end-flushleft #[nil " " [texinfo-discard-command] 1] flushright texinfo-format-flushright #[nil "\" " [texinfo-push-stack flushright nil texinfo-discard-line] 3] texinfo-end-flushright #[nil " ! A@!)" [texinfo-discard-command texinfo-pop-stack flushright stacktop texinfo-do-flushright] 2] texinfo-do-flushright #[(from) "y` Y(y\fx``|i)Z\"c)" [-1 from 0 make-string fill-column nil " " 32] 4] ctrl texinfo-format-ctrl #[nil "  H\"c)" [texinfo-parse-arg-discard str logand 0 31] 3] TeX texinfo-format-TeX #[nil " c" [texinfo-parse-arg-discard "TeX"] 1] copyright texinfo-format-copyright #[nil " c" [texinfo-parse-arg-discard "(C)"] 1] minus texinfo-format-minus] 4) (defalias 'texinfo-format-minus #[nil " c" [texinfo-optional-braces-discard "-"] 1 "\ Insert a minus sign. If used within a line, follow `@minus' with braces."]) (byte-code "#\"" [put dots texinfo-format texinfo-format-dots defalias #[nil " c" [texinfo-parse-arg-discard "..."] 1]] 4) (defvar texinfo-paragraph-indent "asis" "\ Number of spaces for @refill to indent a paragraph; else to leave as is.") (put (quote paragraphindent) (quote texinfo-format) (quote texinfo-paragraphindent)) (defalias 'texinfo-paragraphindent #[nil " ˜‰ !)" [texinfo-parse-arg-discard arg "asis" texinfo-paragraph-indent string-to-int] 3 "\ Specify the number of spaces for @refill to indent a paragraph. Default is to leave the number of spaces as is."]) (put (quote refill) (quote texinfo-format) (quote texinfo-format-refill)) (defalias 'texinfo-format-refill #[nil " !!yy!)(y`y`|EȚE VE`w`|\"c!yPPԎ!-" [texinfo-discard-command forward-paragraph -1 looking-at "[ \n]*$" 1 "^@noindent" texinfo-paragraph-indent "asis" texinfo-stack-depth 0 " " nil make-string 32 paragraph-separate previous-paragraph-separate "\\|^[-=*.]+" paragraph-start previous-paragraph-start ((byte-code "\nć" [previous-paragraph-separate paragraph-separate previous-paragraph-start paragraph-start nil] 1)) fill-paragraph] 3 "\ Refill paragraph. Also, indent first line as set by @paragraphindent. Default is to leave paragraph indentation as is."]) (byte-code "#\"#\"#\"#\"#\"#\"#\"\"##\"##\"%'\"\"#\"\"#\"#\"#\"#\"#\"@A#āAB\"āCD\"āEF\"āGH\"āIJ\"KLM#NLM#OLM#PLM#QLM#RLM#āMS\"TLU#VLU#WLU#XLU#YLU#ZLU#[LU#\\LU#]LU#^LU#āU_\"`La#bLa#cLa#dLa#āae\"fLg#hLg#iLg#jLg#āgk\"lLm#nLm#āmo\"pLq#rLq#āqs\"tLu#vLu#āuw\"xLy#zLy#āy{\"T|}#V|}#W|}#X|}#Y|}#Z|}#[|}#\\|}#]|}#^|}#ā}~\"K|#N|#O|#P|#Q|#R|#f|#h|#i|#j|#ā\"`|#b|#c|#d|#ā\"t|#v|#ā\"l|#n|#ā\"x|#z|#ā\"p|#r|#ā\"KC#NG#KE#K#N#K#N#TC#VG#TE#T#V#T#V#WC#XG#WE#W#X#W#X#YC#ZG#YE#Y#Z#Y#Z#OC#PG#OE#O#P#O#P#[C#\\G#[E#[#\\#[#\\#C#G#E#####C#G#E#####]C#^G#]E#]#^#]#^#QC#RG#QE#Q#R#Q#R#lC#nG#lE#l#n#l#n#tC#vG#tE#t#v#t#v#pC#rG#pE#p#r#p#r#xC#zG#xE#x#z#x#z#`C#bG#`E#`#b#`#b#fC#hG#fE#f#h#f#h#cC#dG#cE#c#d#c#d#iC#jG#iE#i#j#i#j##" [put noindent texinfo-format texinfo-noindent defalias #[nil "!Êy`)#? )" [forward-paragraph 1 search-backward "@refill" -1 t texinfo-discard-line] 4] vindex texinfo-format-vindex #[nil "!" [texinfo-index texinfo-vindex] 2] cindex texinfo-format-cindex #[nil "!" [texinfo-index texinfo-cindex] 2] findex texinfo-format-findex #[nil "!" [texinfo-index texinfo-findex] 2] pindex texinfo-format-pindex #[nil "!" [texinfo-index texinfo-pindex] 2] tindex texinfo-format-tindex #[nil "!" [texinfo-index texinfo-tindex] 2] kindex texinfo-format-kindex #[nil "!" [texinfo-index texinfo-kindex] 2] texinfo-index #[(indexvar) "  \f  `\"TE JBL)" [texinfo-parse-expanded-arg arg texinfo-discard-command indexvar texinfo-last-node texinfo-last-node-pos count-lines 1] 6] (("cp" . texinfo-cindex) ("fn" . texinfo-findex) ("vr" . texinfo-vindex) ("tp" . texinfo-tindex) ("pg" . texinfo-pindex) ("ky" . texinfo-kindex)) texinfo-indexvar-alist defindex texinfo-format-defindex defcodeindex #[nil "  P! Q! Q!L\f#  \"5 B B DDEM," [texinfo-parse-arg-discard index-name intern "index" indexing-command "texinfo-format-" index-formatting-command "texinfo-" index-alist-name nil put texinfo-format assoc texinfo-indexvar-alist lambda texinfo-index quote] 7] synindex texinfo-format-synindex syncodeindex #[nil "  !A !@! \"@! \"= \"A \"A9Q!#V P! \"AUQ!#," [texinfo-parse-arg-discard args read-from-string second symbol-name joiner joined assoc texinfo-short-index-cmds-alist put texinfo-format texinfo-short-index-format-cmds-alist intern "texinfo-format-" "index"] 7] (("cp" . cindex) ("fn" . findex) ("vr" . vindex) ("tp" . tindex) ("pg" . pindex) ("ky" . kindex)) texinfo-short-index-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)) texinfo-short-index-format-cmds-alist texinfo-sort-region #[(start end) "!\n }$)" [require sort start end sort-subr nil forward-line end-of-line texinfo-sort-startkeyfun] 5] texinfo-sort-startkeyfun #[nil "``){ \"! ĉO ĕ GOQ )" [nil line string-match "[ ][ ]+\\|[^a-z0-9 ]+" 0 " "] 5] printindex texinfo-format-printindex #[nil " \n\"AJc` \"=\"\f`\"(\f`$*" [assoc texinfo-parse-arg-discard texinfo-indexvar-alist nil opoint indexelts "\n* Menu:\n\n" texinfo-print-index system-type vax-vms texinfo-sort-region shell-command-on-region "sort -fd" 1] 5] texinfo-print-index #[(file indexelts) "Y@@;F@@±j\f!\fQ\"@A@ȱj@8>@8\"?ͱQ@A@@8\"Aχ" [indexelts "* " ": " 32 file "(" ")" "" "." 54 2 format " %d." "\n" texinfo-print-index nil] 5] equiv texinfo-format-equiv #[nil " c" [texinfo-parse-arg-discard "=="] 1] error texinfo-format-error #[nil " c" [texinfo-parse-arg-discard "error-->"] 1] expansion texinfo-format-expansion #[nil " c" [texinfo-parse-arg-discard "==>"] 1] point texinfo-format-point #[nil " c" [texinfo-parse-arg-discard "-!-"] 1] print texinfo-format-print #[nil " c" [texinfo-parse-arg-discard "-|"] 1] result texinfo-format-result #[nil " c" [texinfo-parse-arg-discard "=>"] 1] texinfo-format-defun #[nil "\" Z!" [texinfo-push-stack defun nil fill-column 5 texinfo-format-defun-1 t] 3] texinfo-end-defun #[nil "\\ !A@ ! b!*" [fill-column 5 texinfo-discard-command texinfo-pop-stack defun start texinfo-do-itemize delete-char -1] 2] texinfo-format-defunx #[nil "!" [texinfo-format-defun-1 nil] 2] texinfo-format-defun-1 #[(first-p) " N ! N !c\n@AA` N !*" [texinfo-format-parse-defun-args texinfo-command-name texinfo-defun-type parse-args texinfo-discard-command first-p delete-char -1 texinfo-deffn-formatting-property "\n\n" texinfo-stack texinfo-defun-indexing-property] 3] deffn texinfo-deffn-formatting-property texinfo-format-deffn deffnx defvr defvrx deftp deftpx #[(parsed-args) "@A@AA \n = @HU*\n@!=/ @2 @ A+" [parsed-args args name category " -- " ": " " " 0 38 eval texinfo-defun-type deftp-type nil] 5] defun texinfo-format-specialized-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx #[(parsed-args) "A@ @ A\f \n2\n@HU$\n@'\n@\nA+" [texinfo-defun-type parsed-args args name category " -- " ": " " " 0 38 nil] 5] deftypefn texinfo-format-deftypefn deftypefnx deftypevr deftypevrx #[(parsed-args) "@A@AA@AAA\f \n , @ A," [parsed-args args name data-type category " -- " ": " " " nil] 7] deftypefun texinfo-format-deftypefun deftypefunx deftypevar deftypevarx #[(parsed-args) "A@ @ A@ AA \f \n*\n@\nA," [texinfo-defun-type parsed-args args name data-type category " -- " ": " " " nil] 7] defop texinfo-format-defop defopx #[(parsed-args) "@A@AA@AAA\f \n - @ A," [parsed-args args name class category " -- " " on " ": " " " nil] 7] defcv texinfo-format-defcv defcvx #[(parsed-args) "@A@AA@AAA\f \n - @ A," [parsed-args args name class category " -- " " of " ": " " " nil] 7] defmethod texinfo-format-defmethod defmethodx #[(parsed-args) "A@ @ A@ AA \f \n+\n@\nA," [texinfo-defun-type parsed-args args name class category " -- " " on " ": " " " nil] 7] defivar texinfo-format-defivar defivarx #[(parsed-args) "A@ @ A@ AA \f \n+\n@\nA," [texinfo-defun-type parsed-args args name class category " -- " " of " ": " " " nil] 7] texinfo-defun-indexing-property texinfo-index-defun #[(parsed-args) "N @\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-deffn #[(parsed-args) "N A@\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-deftypefn #[(parsed-args) "N AA@\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-defmethod #[(parsed-args) "N A@ @#`\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s on %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-defop #[(parsed-args) "N AA@ A@#`\"T E\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s on %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-defivar #[(parsed-args) "N A@ @#`\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s of %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-index-defcv #[(parsed-args) "N AA@ A@#`\"T E\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s of %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] texinfo-end texinfo-defun-type ((quote deffn-type) nil) ((quote deffn-type) nil) texinfo-defun-index texinfo-findex ((quote defun-type) "Function") ((quote defun-type) "Function") ((quote defun-type) "Macro") ((quote defun-type) "Macro") ((quote defun-type) "Special form") ((quote defun-type) "Special form") ((quote deffn-type) nil) ((quote deffn-type) nil) texinfo-vindex ((quote defun-type) "Variable") ((quote defun-type) "Variable") defconst defconstx ((quote defun-type) "Constant") ((quote defun-type) "Constant") defcmd defcmdx ((quote defun-type) "Command") ((quote defun-type) "Command") ((quote defun-type) "User Option") ((quote defun-type) "User Option") ((quote deftp-type) nil) ((quote deftp-type) nil) texinfo-tindex ((quote defop-type) nil) ((quote defop-type) nil) ((quote defmethod-type) "Method") ((quote defmethod-type) "Method") ((quote defop-type) nil) ((quote defop-type) nil) ((quote defmethod-type) "Instance variable") ((quote defmethod-type) "Instance variable") ((quote deftypefn-type) nil) ((quote deftypefn-type) nil) ((quote deftypefun-type) "Function") ((quote deftypefun-type) "Function") ((quote deftypefn-type) nil) ((quote deftypefn-type) nil) ((quote deftypevar-type) "Variable") ((quote deftypevar-type) "Variable") clear texinfo-clear] 4) (defalias 'texinfo-clear #[nil "  !@ !AO # #+" [texinfo-parse-arg-discard arg read-from-string flag nil value put texinfo-whether-setp flag-cleared texinfo-set-value ""] 4 "\ Clear the value of the flag."]) (put (quote set) (quote texinfo-format) (quote texinfo-set)) (defalias 'texinfo-set #[nil "  !@ !AO # #+" [texinfo-parse-arg-discard arg read-from-string flag nil value put texinfo-whether-setp flag-set texinfo-set-value] 4 "\ 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."]) (put (quote value) (quote texinfo-format) (quote texinfo-value)) (defalias 'texinfo-value #[nil "  !@N=! !@N! !@NcD !@N=4 \"cD !@N=D \"c)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set texinfo-set-value flag-cleared format "{No value for \"%s\"}" nil] 3 "\ 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."]) (byte-code "##" [put ifset texinfo-end texinfo-discard-command texinfo-format texinfo-if-set] 4) (defalias 'texinfo-if-set #[nil "  !@N=ł4 !@N=(!`|4 !@N=4)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set nil flag-cleared texinfo-command-start re-search-forward "@end ifset[ ]*\n"] 3 "\ If set, continue formatting; else do not format region up to @end ifset"]) (byte-code "##" [put ifclear texinfo-end texinfo-discard-command texinfo-format texinfo-if-clear] 4) (defalias 'texinfo-if-clear #[nil "  !@N= !`|3 !@N='ɂ3 !@N=3)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set texinfo-command-start re-search-forward "@end ifclear[ ]*\n" flag-cleared nil] 3 "\ If clear, continue formatting; if set, do not format up to @end ifset"]) (byte-code "#######################\"" [put include texinfo-format texinfo-format-noop bye texinfo-discard-line c texinfo-discard-line-with-args comment contents finalout group texinfo-end headings hsize itemindent lispnarrowing need nopara page parindent setchapternewpage setq settitle setx shortcontents smallbook summarycontents defalias texinfo-unsupported #[nil "\n {\"" [error "%s is not handled by texinfo" texinfo-command-start texinfo-command-end] 4]] 4) (defalias 'batch-texinfo-format #[nil "!ĉʼn \nĉ\f h@!  !C \"A! !X !A! \fB\fA$\f\f@ \fA\f؏h !." [noninteractive error "batch-texinfo-format may only be used -batch." t nil 259259 kept-new-versions kept-old-versions find-file-run-dired auto-save-default version-control 0 files file command-line-args-left expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p directory-files err (byte-code "p! !p!! \"! . \" Ƈ" [buffer-file-name kill-buffer find-file file buffer-disable-undo set-buffer-modified-p nil texinfo-mode message "texinfo formatting %s..." texinfo-format-buffer buffer-modified-p "Saving modified %s" save-buffer] 3) ((error (byte-code " !\"!``\\d^{#<ƉOƕOQT\"*̇" [message ">> Error: %s" prin1-to-string err ">> point at" 100 0 tem s string-match "\n+" "\n>> " nil ">> %s" 1 error] 5))) kill-emacs] 6 "\ Runs 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 -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."]) (provide (quote texinfmt))