home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / texinfmt.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  25.4 KB  |  52 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:25:10 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/texinfmt.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼é┬    ¼┼├ ─┼╞    #ê─╟╞    #ê─╚╔    #ê─╩╔    #ê─╦╠    #ê─═╠    #ê─╬╠    #ê─╧╠    #ê─╨╤    #ê─╥╙    #ê─╘╠    #ê┬ç" [boundp texinfo-format-syntax-table nil make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "." 93 40 41 123 "(}" 125 "){" 39] 4)
  14. (fset 'texinfo-format-buffer #[(&optional notagify) "└┬    !ê├ ê ¼₧┼ ╞V½ë┬╟ë!ê╚ ê┼ ╔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 "\
  15. Process the current buffer as texinfo code, into an Info file.
  16. The Info file output is generated in a buffer visiting the Info file
  17. names specified in the @setfilename command.
  18.  
  19. Non-nil argument (prefix, if interactive) means don't make tag table
  20. and don't split the file if large.  You can use Info-tagify and
  21. Info-split to do these manually." "P"])
  22. (fset 'texinfo-format-buffer-1 #[nil "└ëëëëëëëëëëëëëë    p\n    \n  èebê╘╒!ê`╓ )╫!ê╪ ê┘!ê█ ê▄ !êebê╘╒!ê▌yêe`|êdbê▐▀└α#½ä`d|êhßU¼âΓcêπ êebê  \n    ».ç" [nil fill-column default-directory input-directory input-buffer outfile texinfo-node-names texinfo-stack texinfo-kindex texinfo-tindex texinfo-pindex texinfo-cindex texinfo-findex texinfo-vindex texinfo-last-node texinfo-command-name texinfo-command-end texinfo-command-start texinfo-example-start texinfo-format-filename search-forward "@setfilename" texinfo-parse-line-arg find-file texinfo-mode set-syntax-table texinfo-format-syntax-table erase-buffer insert-buffer-substring 0 search-backward "@bye" t 10 "\n" texinfo-format-scan] 18])
  23. (defvar texinfo-region-buffer-name "*Info Region*" "\
  24. *Name of the temporary buffer used by \\[texinfo-format-region].")
  25. (fset 'texinfo-format-region #[(region-beginning region-ending) "└┴!ê┬ëëëëëëëëëëëëë p ┬ë    \n  ╫╪!!ê┌ êèqêèî~êebê█▄è▌yê`)▐#¼ä▀α!êßyê`Γyê`+π$^#êπ$]%#êµ êτ(!êdbêΘΩ┬▐#½ä`d|êhδU¼â∞cêebêφ êebê.└ε!ç" [message "Converting region to Info format..." nil fill-column default-directory filename-ending filename-beginning input-directory input-buffer texinfo-node-names texinfo-last-node 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 switch-to-buffer get-buffer-create texinfo-region-buffer-name erase-buffer search-forward "@setfilename" 100 t error "The texinfo file needs a line saying: @setfilename <name>" 0 1 insert-buffer-substring region-beginning region-ending texinfo-mode set-syntax-table texinfo-format-syntax-table re-search-backward "^@bye" 10 "\n" texinfo-format-scan "Done."] 19 "\
  26. Convert the current region of the Texinfo file to Info format.
  27. This lets you see what that part of the file will look like in Info.
  28. The command is bound to \\[texinfo-format-region].  The text that is
  29. converted to Info is stored in a temporary buffer." "r"])
  30. (byte-code "└┴Mê┬├─┼#ê┼╞Mê┬╟─╚#ê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê┬▄─▌#ê▌▐Mê┬▀─α#êαßMê┬Γ─π#êπΣMê┬Γσ╘#êµτMê┬Φ─Θ#ê┬Ω─Θ#êΘδMê┬∞─φ#êφεMê┬∩─≡#ê≡±Mê┬≥─≤#ê┬⌠─≤#ê┬⌡─≤#ê┬÷─≤#ê┬≈─≤#ê┬°─≤#ê┬∙─≤#ê≤·Mê┬√─ⁿ#ê┬²─ⁿ#ê┬■─ⁿ#ê┬ ─ⁿ#ê┬ü@─ⁿ#ê┬üA─ⁿ#ê┬üB─ⁿ#ê┬üC─ⁿ#ê┬üD─ⁿ#êⁿüEMê┬üF─üG#ê┬üH─üG#ê┬üI─üG#ê┬üJ─üG#ê┬üK─üG#ê┬üL─üG#ê┬üM─üG#êüGüNMê┬üO─üP#ê┬üQ─üP#ê┬üR─üP#ê┬üS─üP#ê┬üT─üP#ê┬üU─üP#ê┬üV─üP#ç" [texinfo-format-scan #[nil "ebê└┴┬├#½å─┼!ê¬sebê└╞┬├#½å─┼!ê¬sebê└╟┬├#½╓╚╔!½₧g╩U½É`S`T|êg╦U¼d╦cê¬_╠═!ê╬uê¬V`Sgz╨U½à╬vê¬â╬uê`╥T{!ë╘Në½å ê¬â╓ ê)¬#¡Ä╪@8bê┘┌@@\"ç" [search-forward "``" nil t replace-match "\"" "''" "@" looking-at "[@{}'` *]" 42 10 delete-char -1 1 texinfo-command-start 119 texinfo-command-end intern texinfo-command-name 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ê`─ê`T¬ù┬┼!½Ä`T╞╟!ê`╚uê¬ä╔╩!ê    `{l½â╟uê)ç" [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┴ëôê `{l½â╚uê*ç" [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] texinfo-format-parse-line-args #[nil "`S└ëëë╞└wêl¼½`╟╚!ê`n½â S╔uê╞└xê`ë V¡â \n{    B bê╞└wê¬Rl½â╩uê`     ƒ-ç" [nil args end beg next start " " re-search-forward "[\n,]" -1 1 texinfo-command-end] 6] texinfo-format-parse-args #[nil "`S└ëëë╞╟!êè╚`è╔╩!ê`S)\"ê)h╦U¼║╠└wê`═╬!ê`╧uê╠└xê` \nW½É bê╞╨\n╤#½å╥╙!ê¬s\n V¡â \n{    B bê¬Al½â╩uê`    ƒ-ç" [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ê┬ëë    ╩┬wêl¼░╦╠!½Ä`T═╬!ê`S¬ì`╧╨!ê╤uê`{    B    ╩┬wê¬M╬uê    ƒ,ç" [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] setfilename texinfo-format-setfilename #[nil "└ ┬├    !!┼ ╞╟╚    !½î╩╦┬╚    !!!P¬å╠═    !P╬▒)ç" [texinfo-parse-arg-discard arg file-name-nondirectory expand-file-name texinfo-format-filename "Info file: " ",    -*-Text-*-\n" "produced by texinfo-format-buffer\nfrom " buffer-file-name input-buffer "file: " file-name-sans-versions "buffer " buffer-name "\n\n"] 9] node texinfo-format-node #[nil "└ ë@    A@─    8╞    8╚ ê\n    \nù\n╦\n \"½ç═╬\n\"ê¬ê\nC B )n¼â╧cê╨╥\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" 10 "\nFile: " texinfo-format-filename "  Node: " ", Prev: " ", Up: " ", Next: "] 5] menu texinfo-format-menu #[nil "└ ê┴cç" [texinfo-discard-line "* Menu:\n\n"] 1] texinfo-end texinfo-discard-line #[nil "bê┴┬wêl¼ä├─!êbên¼ä├╞!ê`╟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] ref texinfo-format-xref xref #[nil "└ ┬ ê├cê    A@«â─    8ë¼î╞    8¼ç    @╟▒¬Ö«é    @╚▒ê╞    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@─┼    8╞    @▒)ç" [texinfo-format-parse-args args texinfo-discard-command "*Note " ": (" 2 ")"] 6] chapheading texinfo-format-chapter ichapter chapter iappendix appendix iunnumbered 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)
  31. (byte-code "└┴Mê┬├Mê─┼╞╟#ê╟╚Mê─╔╞╩#ê╩╦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 "└ ┬uêi─uê ┼V½ë    cê Së¬s)╞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 "└ ê┴├ )ç" [texinfo-discard-command 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 #[nil "└ êg┴U½â┴cç┬┴├\"ç" [texinfo-parse-arg-discard 10 insert-char 2] 3] footnote texinfo-format-footnote] 4)
  32. (defvar texinfo-footnote-style 'MN "\
  33. *Footnote style, either EN for end node or MN for make node.")
  34. (fset 'texinfo-format-footnote #[nil "┴=½â┬ ç├=¡é─ ç" [texinfo-footnote-style EN texinfo-format-end-node MN texinfo-format-make-node] 2 "\
  35. Format a footnote in either `end node' or `make node' style.
  36. The   texinfo-footnote-style  variable controls which style is used."])
  37. (fset 'texinfo-format-make-node #[nil "└┬ è─┼!ê╞ò)èbê╚└wê`╔╩è└ê`)╦#½ä`S¬ä└ê`{) ═ ê╬╧ \"cê╨└!êè╤╥└╙#½â╘yêè─ ╒P╦#)½Ä`╬╓ \"cê╫    `\"¬Ö╪┌ ╒ █▒ê`╬╓ \"cê╫    `\"-ç" [nil start texinfo-parse-expanded-arg arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\)*[     ]+Node:" 0 node-name-beginning "     " search-forward "," t node-name texinfo-discard-command format "() (*note %s-Footnotes::)" fill-paragraph re-search-forward "^@node" move -1 "-Footnotes, Up: " "\n()  %s\n" fill-region "\n\nFile: " texinfo-format-filename "  Node: " "\n"] 7 "\
  38. Format footnote in `MN', Make Node, style with notes in own node.
  39. The node is constructed automatically."])
  40. (fset 'texinfo-format-end-node #[nil "└┴ ─ ê┼cê╞└!êè╟╚└╔#½ÿ╩╦└╠#½â═yê`╬╧\n\"cê╨ `\"¬Ö╩╦└╠#½â═yê╚cê`╬╧\n\"cê╨ `\"+ç" [nil texinfo-parse-expanded-arg arg start texinfo-discard-command "() " fill-paragraph search-forward "\n--------- Footnotes ---------\n" t re-search-forward "^@node" move -1 format "\n()  %s\n" fill-region] 4 "\
  41. Format footnote in `EN', End Node, style with notes at end of node."])
  42. (byte-code "└┴Mê┬├Mê─┼╞╟#ê╟╚Mê─┼╔╩#ê╩╦Mê─╠╞═#ê═╬Mê─╠╔╧#ê╧╨Mê─╤╞╥#ê╥╙Mê─╘╞╒#ê╒╓Mê─╫╞╪#ê╪┘Mê─╤╔┌#ê─╘╔┌#ê─╫╔┌#ê┌█Mê▄▌Mê─▐╞▀#ê─α╞▀#ê▀ßMê─┼▀Γ#êΓπMê─╠▀Σ#êΣσMê─╤▀µ#êµτMê─╘╞╒#ê╒ΦMê─╘▀Θ#êΘΩMê─╘╔δ#êδ∞Mê─φ╞ε#ê─φ╔∩#ê─≡╞±#ê±≥Mê─≤╞⌠#ê⌠⌡Mê─÷╞≈#ê≈°Mê─∙╞ε#ê─·╞√#ê√ⁿMê─²╞ε#ê─■╞ #ê ü@Mê─üA╞üB#êüBüCMê─üD╞ε#ê─üE╞üF#ê─üG╞üF#êüFüHMê─üI╞üJ#ê─üK╞üJ#ê─üL╞üJ#ê─üM╞üJ#ê─üN╞üJ#ê─üO╞üJ#ê─üP╞üJ#ê─üQ╞üJ#ç" [texinfo-push-stack #[(check arg) "    \nE Bëç" [check arg texinfo-command-start texinfo-stack] 3] texinfo-pop-stack #[(check) "¼à┴┬ \"ê@@ =¼ê┴─ @@#ê@AAç" [texinfo-stack error "Unmatched @end %s" check "@end %s matches @%s"] 4] put itemize texinfo-format texinfo-itemize #[nil "└┴┬ \"ê ─Zëç" [texinfo-push-stack itemize texinfo-parse-arg-discard fill-column 5] 3] 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 "└┴┬\"ê ─Z┼ ç" [texinfo-push-stack enumerate 0 fill-column 5 texinfo-discard-line] 3] texinfo-end-enumerate #[nil "┴\\┬ ê├─!╞A@!)ç" [fill-column 5 texinfo-discard-command texinfo-pop-stack enumerate stacktop texinfo-do-itemize] 2] table texinfo-table #[nil "└┴┬ \"ê ─Zëç" [texinfo-push-stack table texinfo-parse-arg-discard fill-column 5] 3] ftable texinfo-ftable #[nil "└┴┬\"ê ─Z┼ ç" [texinfo-push-stack table "@code" fill-column 5 texinfo-discard-line] 3] description texinfo-description #[nil "└┴┬\"ê ─Z┼ ç" [texinfo-push-stack table "@asis" fill-column 5 texinfo-discard-line] 3] texinfo-end-table #[nil "┴\\┬ ê├─!╞A@!)ç" [fill-column 5 texinfo-discard-command texinfo-pop-stack table stacktop texinfo-do-itemize] 2] texinfo-do-itemize #[(from) "è└yê`    Y¡ág┬U½Åè├─!ê┼ê├╞!ê)¬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 "└ ê┴\n@A@├▒ê─yç" [texinfo-discard-line "   " texinfo-stack " \n" -1] 3] texinfo-enumerate-item #[nil "└ ê    @A@T    @A\náê├─┼\n\"╞▒ê)╟yç" [texinfo-discard-line texinfo-stack next 8 format "%3d. " 10 -1] 4] texinfo-table-item #[nil "└     @A@─\n┼ ╞▒ê*╟yç" [texinfo-parse-arg-discard texinfo-stack itemfont arg 8 123 "}\n     \n" -2] 5] #[nil "└┴┬ \"ê ─Zëç" [texinfo-push-stack ftable texinfo-parse-arg-discard fill-column 5] 3] texinfo-ftable-item #[nil "└     @A@┬╞ ╟╚▒ê     D JBLê╩y+ç" [texinfo-parse-arg-discard texinfo-stack texinfo-findex indexvar itemfont item 8 123 "}\n     \n" texinfo-last-node -2] 5] texinfo-end-ftable #[nil "┴\\┬ ê├─!╞A@!)ç" [fill-column 5 texinfo-discard-command texinfo-pop-stack ftable 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 search-forward "@end titlepage\n"] 3] endtitlepage titlespec texinfo-format-titlespec #[nil "┴┬!ê`|ç" [texinfo-command-start 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 search-forward "@end ignore\n"] 3] endignore var texinfo-format-var sc #[nil "└ ûcê    bç" [texinfo-parse-arg-discard texinfo-command-start] 1] asis texinfo-format-noop b t i r titlefont key w] 4)
  43. (byte-code "└┴Mê┬├─┼#ê┬╞─┼#ê┬╟─┼#ê┬╚─┼#ê┬╔─┼#ê┼╩Mê┬╦─╠#ê┬═─╠#ê╠╬Mê┬╧─╨#ê┬╤─╨#ê╨╥Mê┬╙─╘#ê╘╒Mê┬╓─╫#ê┬╪─╫#ê┬┘─╫#ê┬┌─╫#ê┬█─╫#ê┬▄─╫#ê┬▌─╫#ê┬▐─╫#ê╫▀Mê┬╓αß#ê┬┘αß#ê┬┌αß#ê┬█αß#ê┬▄αß#ê┬▌αß#ê┬▐αß#êßΓMê┬π─Σ#êΣσMê┬µ─τ#êτΦMê┬µαΘ#êΘΩMêδ∞Mê┬φ─ε#êε∩Mê┬≡─±#ê±≥Mê┬≤─⌠#ê⌠⌡Mê┬÷─≈#ê≈°Mê┬∙─·#ê·√Mê┬ⁿ─²#ê²■Mê┬ ─ü@#êü@üAMê┬üB─üC#êüCüDMê┬üE─üF#êüFüGMê┬üH─üI#ç" [texinfo-format-noop #[nil "└ cê    bç" [texinfo-parse-arg-discard texinfo-command-start] 1] put code texinfo-format texinfo-format-code samp file kbd cite #[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] defn texinfo-format-defn dfn #[nil "└┴ └▒ê\nbç" ["\"" texinfo-parse-arg-discard texinfo-command-start] 3] bullet texinfo-format-bullet #[nil "└ ê┴cç" [texinfo-discard-command "*"] 1] smallexample texinfo-format-example smalllisp example quotation lisp display format flushleft #[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ê`|ê├cêè┬ê─c)ç" [texinfo-discard-command " " nil 8 "\n     "] 3] 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ê├ è┼êi)Z╞\"cê¬f)ç" [-1 from 0 make-string fill-column nil 32] 3] 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 #[nil "└ ê┴cç" [texinfo-parse-arg-discard "-"] 1] dots texinfo-format-dots #[nil "└ ê┴cç" [texinfo-parse-arg-discard "..."] 1] refill texinfo-format-refill #[nil "└ ê┴┬!ç" [texinfo-discard-command fill-paragraph nil] 2] 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] 4)
  44. (byte-code "└┴Mê┬├─┼#ê┼╞Mê┬╟─╚#ê╚╔Mê╩╦Mê╠┬╬─╧#ê┬╨─╧#ê╧╤Mê┬╥─╙#ê┬╘─╙#ê╙╒Mê╓╪┬┌─█#ê█▄Mê▌▐Mê┬▀─α#êαßMê┬Γ─π#êπΣMê┬σ─µ#êµτMê┬Φ─Θ#êΘΩMê┬δ─∞#ê∞φMê┬ε─∩#ê∩≡Mê±≥Mê≤⌠Mê⌡÷Mê≈°Mê∙·Mê√ⁿMê²■Mê ü@Mê┬üA─±#ê┬üB─≤#ê┬üAüC≈#ê┬üAüDüE#ê┬üBüDüF#ê┬üAüGüH#ê┬üBüGüH#ê┬üI─±#ê┬üJ─≤#ê┬üIüC≈#ê┬üIüDüK#ê┬üJüDüL#ê┬üIüGüH#ê┬üJüGüH#ê┬üM─±#ê┬üN─≤#ê┬üMüC≈#ê┬üMüDüO#ê┬üNüDüP#ê┬üMüGüH#ê┬üNüGüH#ê┬üQ─±#ê┬üR─≤#ê┬üQüC≈#ê┬üQüDüS#ê┬üRüDüT#ê┬üQüGüH#ê┬üRüGüH#ê┬üU─±#ê┬üV─≤#ê┬üUüC≈#ê┬üUüDüW#ê┬üVüDüX#ê┬üUüGüY#ê┬üVüGüY#ê┬üZ─±#ê┬ü[─≤#ê┬üZüC≈#ê┬üZüDü\\#ê┬ü[üDü]#ê┬üZüGüY#ê┬ü[üGüY#ê┬ü^─±#ê┬ü_─≤#ê┬ü^üC≈#ê┬ü^üDü`#ê┬ü_üDüa#ê┬ü^üGüY#ê┬ü_üGüY#ê┬üb─±#ê┬üc─≤#ê┬übüC≈#ê┬übüDüd#ê┬ücüDüe#ê┬übüGüH#ê┬ücüGüH#ê┬üf─±#ê┬üg─≤#ê┬üfüC≈#ê┬üfüDüh#ê┬ügüDüi#ê┬üfüGüY#ê┬ügüGüY#ê┬üj─±#ê┬ük─≤#ê┬üjüC≈#ê┬üjüDül#ê┬üküDüm#ê┬üjüGün#ê┬üküGün#ê┬üo─±#ê┬üp─≤#ê┬üoüC≈#ê┬üoüDüq#ê┬üpüDür#ê┬üoüs∙#ê┬üpüs∙#ê┬üoüGüH#ê┬üpüGüH#ê┬üoüt√#ê┬üpüt√#ê┬üu─±#ê┬üv─≤#ê┬üuüC≈#ê┬üuüDüw#ê┬üvüDüx#ê┬üuüs∙#ê┬üvüs∙#ê┬üuüGüH#ê┬üvüGüH#ê┬üuüt√#ê┬üvüt√#ê┬üy─±#ê┬üz─≤#ê┬üyüC≈#ê┬üyüDü{#ê┬üzüDü|#ê┬üyüs²#ê┬üzüs²#ê┬üyüGüY#ê┬üzüGüY#ê┬üyüt #ê┬üzüt #ê┬ü}─±#ê┬ü~─≤#ê┬ü}üC≈#ê┬ü}üDü#ê┬ü~üDüÇ#ê┬ü}üs²#ê┬ü~üs²#ê┬ü}üGüY#ê┬ü~üGüY#ê┬ü}üt #ê┬ü~üt #ê┬üü─üé#ç" [texinfo-format-pindex #[nil "└┴!ç" [texinfo-index texinfo-pindex] 2] put tindex texinfo-format texinfo-format-tindex #[nil "└┴!ç" [texinfo-index texinfo-tindex] 2] kindex texinfo-format-kindex #[nil "└┴!ç" [texinfo-index texinfo-kindex] 2] texinfo-index #[(indexvar) "└ ┬ ê      D JBL)ç" [texinfo-parse-expanded-arg arg texinfo-discard-command indexvar texinfo-last-node] 3] (("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ê╩ ╦#ê╠    \"¼ë    BB╬╔╧╨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╩╟ \"A«ç╠═╬Q!#¬ÿ╔╠╬P!╩╟ \"A«ç╠═╬Q!#,ç" [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 printindex texinfo-format-printindex #[nil "└┴ \n\"AJ├╞cê`╟├\"ê╔=½å╩ `\"¬å╦ `╠═$*ç" [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) "¡▒@@;½Ö┴@@┬ ½å─ ┼Q¬ü╞@A@╟▒ê¬ï╚@A@╔@8\"êAë¼P╩ç" [indexelts "* " ": " file "(" ")" "" ".\n" texinfo-print-index 2 nil] 7] 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-format-defunx #[nil "└┴!ç" [texinfo-format-defun-1 nil] 2] texinfo-format-defun-1 #[(first-p) "└     ┬N├ë╚ ê╔@!╩=½ò@ A@AAë@¬╤╔@!╠=½öA@ @Aë@¬┤╔@!═=¼ë╔@!╬=½Å@ Aë@¬ô╔@!╧=½èA@ @    ╨Në½ê \" )¼ä╙╘!ê╒ ╓ ▒êA뽺╫@╪H┘U¼ë╔@!╬=½à@¬ä@û▒êAë¼Y)┌cê@AA`áê    ▄N    ▌Në½ç \"¬â@DJBL.ç" [texinfo-format-parse-defun-args texinfo-command-name texinfo-defun-type "" name class type args texinfo-discard-command eval defop-type category defmethod-type deffn-type deftp-type defun-type texinfo-defun-format-type formatter first-p delete-char -1 "* " ": " " " 0 38 "\n\n" texinfo-stack texinfo-defun-index texinfo-defun-format-index indexvar texinfo-last-node] 5] 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-defop-type #[(category class) "└┴\n #ç" [format "%s on %s" category class] 4] texinfo-format-defop-index #[(name class) "└┴\n #ç" [format "%s on %s" name class] 4] texinfo-format-defcv-type #[(category class) "└┴\n #ç" [format "%s of %s" category class] 4] texinfo-format-defcv-index #[(name class) "└┴\n #ç" [format "%s of %s" name class] 4] deffn deffnx texinfo-end 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) texinfo-defun-format-type texinfo-defun-format-index defmethod defmethodx ('defmethod-type "Operation") ('defmethod-type "Operation") defcv defcvx ('defop-type nil) ('defop-type nil) defivar defivarx ('defmethod-type "Instance variable") ('defmethod-type "Instance variable") include texinfo-format-include] 4)
  45. (byte-code "└┴Mê┬├Mê─┼╞╟#ê─╚╞╟#ê─╔╞╟#ê─╩╞╟#ê─╦╞╟#ê─╠╞╟#ê─═╞╟#ê─╬╞╟#ê─╧╞╟#ê─╨╞╟#ê─╤╞╟#ê─╥╞╟#ê─╙╞╟#ê─╘╞╟#ê─╒╞╟#ê─╓╞╟#ê─╫╞╟#ê─╪╞╟#ê─╪┘╟#ê─┌╞╟#ê─█╞▄#ê─▌╞▄#ê╟▐Mê▀αMêßΓMêπΣMç" [texinfo-format-include #[nil "└     ┬è╞╟╚P!½à╚P¬ñ╟╔P!½à╔P¬ÿ╟╩P!½à╩P¬î╟!½â¬ä╦╠\"!ê═ )╬╧ @ A@#ê╬╨ @╤ 8#ê╬╥ @╙ 8#ê╬╘ @╒ 8#ê╬╓ @╫ 8#ê╬╪ @┘ 8#+ç" [texinfo-parse-arg-discard input-directory nil subindex default-directory filename find-file file-readable-p ".texinfo" ".texi" ".tex" error "@include'd file %s not found" texinfo-format-buffer-1 texinfo-subindex texinfo-vindex texinfo-findex 2 texinfo-cindex 3 texinfo-pindex 4 texinfo-tindex 5 texinfo-kindex 6] 5] texinfo-subindex #[(indexvar file content) "┴\n EJBLç" [indexvar recurse file content] 4] put page texinfo-format texinfo-discard-line-with-args c comment setchapternewpage contents summarycontents shortcontents nopara noindent setx setq settitle hsize parindent lispnarrowing itemindent headings group texinfo-end need bye texinfo-discard-line smallbook #[nil "bê`┴yê`|ç" [texinfo-command-start 1] 2] 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¬j    )ç" [nil line string-match "[     ][     ]+\\|[^a-z0-9 ]+" 0 " "] 5] texinfo-unsupported #[nil "└┴\n {\"ç" [error "%s is not handled by texinfo" texinfo-command-start texinfo-command-end] 4]] 4)
  46. (fset 'batch-texinfo-format #[nil "¼ä┴┬!ê├─ë┼ë    \n╦─ë ½┐╧@!╨!¼É╤╥\"ê╙Aë¬a╘!½ì╒!Añë¬N B Aë¼A ½æ @ 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-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 "\
  47. Runs  texinfo-format-buffer  on the files remaining on the command line.
  48. Must be used only with -batch, and kills emacs on completion.
  49. Each file will be processed even if an error occurred previously.
  50. For example, invoke
  51.   \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."])
  52.