;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 23:33:41 1993 ;;; from file /th/jwz/emacs19/lisp/packages/texinfmt.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "!!!! ###########LJ" [boundp texinfmt-version "2.30 of 18 May 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) (fset 'texinfo-format-buffer #[(&optional notagify) " ! Vlj! Vʉ! t̪P!)" ["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].") (fset 'texinfo-format-region #[(region-beginning region-end) "!‰‰ plj \n   ~eby`) \" #y` $#y`eb #y` y` &^{\n+)!! \nc &],#hUceb ! 1!#` P5y`y`)|5\"``5!A@\\}eby`)#y`y`)|+2eb eb db#`d|hUc=eb!`y`)|eby`)#`y`@ AB)CDEA!!cFc)B)GHIJ !KLDJ !!!MQNO !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 texinfo-start-of-header t texinfo-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 "MM" [texinfo-format-buffer-1 #[nil "\np  \n   eb#!` )! #! ! !\"eb#` P+y`y`)|+\"``+!A@\\}eby`)#y`y`)|+3eb eb eb!ye`|db#`d|hUc eb  ." [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 #!sb #!sb #ʔTʔ\\|n" [min search-forward "``" max t replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" 2] 4]] 2) (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.") (fset 'texinfo-append-refill #[nil "`dWy P!\n˰!`dWyb!̔̕{  P#y)`dYъ `)# 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 @*."]) (fset 'texinfo-raise-lower-sections #[nil "Q#yp!) =\nT`y`)|X =\nS`y`)|E\nV\n  V A Sl! !c*\nUy\nW \n  W A Tl! !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 '((@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 '((@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 "M#M#MMMMMMM" [texinfo-format-scan #[nil "ed\"eb#!gU`S`T|gUdc_!uV`S gzUvu` T{!!\"A@@ A@A@ bN ))@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 " [intern texinfo-parse-line-arg texinfo-command-name prop cmd texinfo-unsupported] 3] texinfo-parse-line-arg #[nil "b`!w`x``|`T!`T!`u! `{lu)" [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``T!`T!`u!  `\"\n!\n `{lu*" [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) (fset '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 "MMMMM#M##M#M###M#M#M#########M#########M#######@MʁÁB#ʁĆB#ʁD́B#ʁÉB#ʁF́B#ʁǴB#ʁH́B#" [texinfo-format-parse-line-args #[nil "`Swl`!`n Sux` V \n{ B bwRlu` -" [nil args end beg next start " " re-search-forward "[\n,]" -1 1 texinfo-command-end] 6] texinfo-format-parse-args #[nil "`S!`!`S)\")hUw`!`ux` \nW b\n#!s\n V \n{ B bAlu` -" [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 “ `\" ! ‰) b‰ wl!`T!`S`!u`{ B wMu ," [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 "  \" !! ! !!!Q !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 \"\n\"\nC B )nc\n  c`-" [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] 4) (byte-code "MM#M#M#M#M#M#" [texinfo-format-subsubsection #[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] put SectionPAD texinfo-format texinfo-format-sectionpad #[nil " uiu V c Ss)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) (fset 'texinfo-format-paragraph-break #[nil " gUc\"" [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 'footnotestyle 'texinfo-format 'texinfo-footnotestyle) (fset '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 'footnote 'texinfo-format 'texinfo-format-footnote) (fset 'texinfo-format-footnote #[nil "T ˜ Ę " [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."]) (fset 'texinfo-format-separate-node #[nil " !ƕ)bw`ʊ`)#`S`{) x`)`| #c!#y P#)` #c `\"  ݱ` #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."]) (fset 'texinfo-format-end-node #[nil "  x`)`|\"c!##y`\n#c `\"#yc`\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 "MM#M#M#M#M#M#M#M#MM##M#M#M#M#M#M#M#M##M##MMM##MM@MɁA#ɁB#ACMBDMEFMāGƁH#āGɁI#āJƁK#KLMāMƁN#NOMāPƁQ#" [texinfo-push-stack #[(check arg) "T \n E B" [texinfo-stack-depth check arg texinfo-command-start texinfo-stack] 3] texinfo-pop-stack #[(check) "S \" @@ = @@# @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` YgU!!)d!_c)X)" [-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`)|! @A@ű @A@Ʊy" [0 looking-at "[ ]*[^ \n]+" " " texinfo-stack " \n" " " -1] 3] texinfo-enumerate-item #[nil "  @A@ @A@\n\"DZ @A\nT @A@9 @A@!\n!ʚ\n!˚!\n\"DZ @A\n!T!!!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 ȱ  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) "\\ ! 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] 4) (byte-code "M##M##M#M##M##M##########M#####M##M##M#" [texinfo-format-titlepage #[nil "!`|" [texinfo-command-start re-search-forward "@end titlepage[ ]*\n"] 3] put endtitlepage texinfo-format texinfo-discard-line 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 DDB," [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) (fset 'texinfo-format-bullet #[nil " c" [texinfo-optional-braces-discard "*"] 1 "\ Insert an asterisk. If used within a line, follow `@bullet' with braces."]) (byte-code "######M######M#M####M##M#M#MM#M#M#M#" [put display texinfo-format texinfo-format-example example lisp quotation smallexample smalllisp #[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` Yy x``|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) (fset '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 "#M" [put dots texinfo-format texinfo-format-dots #[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 'paragraphindent 'texinfo-format 'texinfo-paragraphindent) (fset '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 'refill 'texinfo-format 'texinfo-format-refill) (fset 'texinfo-format-refill #[nil " !!yy!)y`y`|Ț V`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 "#M#M#M#M#M#M#MM##M##M$&MM#MM#M#M#M#M#M@#@AMBCMDEMFGMHIMJKL#MKL#NKL#OKL#PKL#QKL#LRMSKT#UKT#VKT#WKT#XKT#YKT#ZKT#[KT#\\KT#]KT#" [put noindent texinfo-format texinfo-noindent #[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) "  `\"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 #  \" 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 \"AQ!# P! \"AQ!#," [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 ĕ GOQj )" [nil line string-match "[ ][ ]+\\|[^a-z0-9 ]+" 0 " "] 5] printindex texinfo-format-printindex #[nil " \n\"AJc` \"= `\" `$*" [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) "@@;@@±j Q@A@ȱj@8@8\"ͱ@A@@8\"A3χ" [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 @AA` N !*" [texinfo-format-parse-defun-args texinfo-command-name texinfo-defun-type command-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@!= @ @ A^+" [parsed-args args name category " -- " ": " " " 0 38 eval command-type deftp-type nil] 5] defun texinfo-format-specialized-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx] 4) (byte-code "M####M####M##M##M##M##M##########M##########M####M##M##" [texinfo-format-specialized-defun #[(parsed-args) "A@ @ A \n\n@HU\n@\n@\nAg+" [command-type parsed-args args name category " -- " ": " " " 0 38 nil] 5] put deftypefn texinfo-deffn-formatting-property texinfo-format-deftypefn deftypefnx deftypevr deftypevrx #[(parsed-args) "@A@AA@AAA \n @ At," [parsed-args args name data-type category " -- " ": " " " nil] 7] deftypefun texinfo-format-deftypefun deftypefunx deftypevar deftypevarx #[(parsed-args) "A@ @ A@ AA \n\n@\nAt," [command-type parsed-args args name data-type category " -- " ": " " " nil] 7] defop texinfo-format-defop defopx #[(parsed-args) "@A@AA@AAA \n @ As," [parsed-args args name class category " -- " " on " ": " " " nil] 7] defcv texinfo-format-defcv defcvx #[(parsed-args) "@A@AA@AAA \n @ As," [parsed-args args name class category " -- " " of " ": " " " nil] 7] defmethod texinfo-format-defmethod defmethodx #[(parsed-args) "A@ @ A@ AA \n\n@\nAs," [command-type parsed-args args name class category " -- " " on " ": " " " nil] 7] defivar texinfo-format-defivar defivarx #[(parsed-args) "A@ @ A@ AA \n\n@\nAs," [command-type parsed-args args name class category " -- " " of " ": " " " nil] 7] defun texinfo-defun-indexing-property texinfo-index-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx #[(parsed-args) "N @ `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7] deffn texinfo-index-deffn deffnx defvr defvrx deftp deftpx #[(parsed-args) "N A@ `\"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@ `\"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] 4) (byte-code "M##M##M#########################################################################Ӂ@#ӁA###B#C#B#BӁD#CӁE#B#C####ӁF#ӁG######ӁH#ӁI###J#K#J#JӁL#KӁM#J#K#N#O#N#NӁP#OӁQ#N#O#R#S#R#RӁT#SӁU#R#S#V#W#V#VӁX#WӁY#V#W#Ź[#" [texinfo-index-defop #[(parsed-args) "N AA@ 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] put defivar texinfo-defun-indexing-property texinfo-index-defivar defivarx #[(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] defcv texinfo-index-defcv defcvx #[(parsed-args) "N AA@ 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] deffn texinfo-format texinfo-format-defun deffnx texinfo-format-defunx texinfo-end texinfo-end-defun texinfo-defun-type ('deffn-type nil) ('deffn-type nil) texinfo-defun-index texinfo-findex defun defunx ('defun-type "Function") ('defun-type "Function") defmac defmacx ('defun-type "Macro") ('defun-type "Macro") defspec defspecx ('defun-type "Special form") ('defun-type "Special form") defvr defvrx ('deffn-type nil) ('deffn-type nil) texinfo-vindex defvar defvarx ('defun-type "Variable") ('defun-type "Variable") defconst defconstx ('defun-type "Constant") ('defun-type "Constant") defcmd defcmdx ('defun-type "Command") ('defun-type "Command") defopt defoptx ('defun-type "User Option") ('defun-type "User Option") deftp deftpx ('deftp-type nil) ('deftp-type nil) texinfo-tindex defop defopx ('defop-type nil) ('defop-type nil) defmethod defmethodx ('defmethod-type "Method") ('defmethod-type "Method") ('defop-type nil) ('defop-type nil) ('defmethod-type "Instance variable") ('defmethod-type "Instance variable") deftypefn deftypefnx ('deftypefn-type nil) ('deftypefn-type nil) deftypefun deftypefunx ('deftypefun-type "Function") ('deftypefun-type "Function") deftypevr deftypevrx ('deftypefn-type nil) ('deftypefn-type nil) deftypevar deftypevarx ('deftypevar-type "Variable") ('deftypevar-type "Variable") clear texinfo-clear] 4) (fset '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 'set 'texinfo-format 'texinfo-set) (fset '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 'value 'texinfo-format 'texinfo-value) (fset 'texinfo-value #[nil "  !@N= !@N !@Nc !@N= \"c !@N= \"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) (fset 'texinfo-if-set #[nil "  !@N=Ū !@N=!`| !@N= \")" [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" error "@ifset flag `%s' is not defined by @set or @clear."] 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) (fset 'texinfo-if-clear #[nil "  !@N= !`| !@N=ɪ !@N= \")" [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 error "@ifclear flag `%s' is not defined by @clear or @set."] 3 "\ If clear, continue formatting; if set, do not format up to @end ifset"]) (byte-code "#######################M" [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 texinfo-unsupported #[nil "\n {\"" [error "%s is not handled by texinfo" texinfo-command-start texinfo-command-end] 4]] 4) (fset 'batch-texinfo-format #[nil "!ĉʼn \nĉ  @!  ! \"Aa ! !AN  B AA  @  A ؏k !." [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-flush-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 'texinfmt)