home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / texinfo-3.7-bin.lha / lib / emacs / site-lisp / texinfmt.elc < prev    next >
Encoding:
Text File  |  1996-10-12  |  70.8 KB  |  1,384 lines
  1.  
  2. (defvar texinfmt-version "2.32 of 19 November 1993")
  3.  
  4. (require (quote texinfo))
  5.  
  6. (require (quote texnfo-upd))
  7.  
  8. (defvar texinfo-format-syntax-table nil)
  9.  
  10. (defvar texinfo-vindex)
  11.  
  12. (defvar texinfo-findex)
  13.  
  14. (defvar texinfo-cindex)
  15.  
  16. (defvar texinfo-pindex)
  17.  
  18. (defvar texinfo-tindex)
  19.  
  20. (defvar texinfo-kindex)
  21.  
  22. (defvar texinfo-last-node)
  23.  
  24. (defvar texinfo-node-names)
  25.  
  26. (defvar texinfo-enclosure-list)
  27.  
  28. (defvar texinfo-alias-list)
  29.  
  30. (defvar texinfo-command-start)
  31.  
  32. (defvar texinfo-command-end)
  33.  
  34. (defvar texinfo-command-name)
  35.  
  36. (defvar texinfo-defun-type)
  37.  
  38. (defvar texinfo-last-node-pos)
  39.  
  40. (defvar texinfo-stack)
  41.  
  42. (defvar texinfo-short-index-cmds-alist)
  43.  
  44. (defvar texinfo-short-index-format-cmds-alist)
  45.  
  46. (defvar texinfo-format-filename)
  47.  
  48. (defvar texinfo-footnote-number)
  49.  
  50. (defvar texinfo-start-of-header)
  51.  
  52. (defvar texinfo-end-of-header)
  53.  
  54. (defvar texinfo-raisesections-alist)
  55.  
  56. (defvar texinfo-lowersections-alist)
  57.  
  58. (if texinfo-format-syntax-table nil (setq texinfo-format-syntax-table (make-syntax-table)) (modify-syntax-entry 34 " " texinfo-format-syntax-table) (modify-syntax-entry 92 " " texinfo-format-syntax-table) (modify-syntax-entry 64 "\\" texinfo-format-syntax-table) (modify-syntax-entry 17 "\\" texinfo-format-syntax-table) (modify-syntax-entry 91 "." texinfo-format-syntax-table) (modify-syntax-entry 93 "." texinfo-format-syntax-table) (modify-syntax-entry 40 "." texinfo-format-syntax-table) (modify-syntax-entry 41 "." texinfo-format-syntax-table) (modify-syntax-entry 123 "(}" texinfo-format-syntax-table) (modify-syntax-entry 125 "){" texinfo-format-syntax-table) (modify-syntax-entry 39 "." texinfo-format-syntax-table))
  59.  
  60. (defun texinfo-format-buffer (&optional notagify) "\
  61. Process the current buffer as texinfo code, into an Info file.
  62. The Info file output is generated in a buffer visiting the Info file
  63. names specified in the @setfilename command.
  64.  
  65. Non-nil argument (prefix, if interactive) means don't make tag table
  66. and don't split the file if large.  You can use Info-tagify and
  67. Info-split to do these manually." (interactive "P") (byte-code "ˆÃÄ!ˆÅ ˆ    ƒ‚2Æ ÇV…\"Äȉ!ˆÉ ˆÆ ÊV…2Äˉ!ˆÌ ˆÄtƒ=͂>ÎP!)‡" [lastmessage notagify nil "Formatting Info file..." message texinfo-format-buffer-1 buffer-size 30000 "Making tags table for Info file..." Info-tagify 100000 "Splitting Info file..." Info-split "done.  Now save it." "done."] 11))
  68.  
  69. (defvar texinfo-region-buffer-name "*Info Region*" "\
  70. *Name of the temporary buffer used by \\[texinfo-format-region].")
  71.  
  72. (defun texinfo-format-region (region-beginning region-end) "\
  73. Convert the current region of the Texinfo file to Info format.
  74. This lets you see what that part of the file will look like in Info.
  75. The command is bound to \\[texinfo-format-region].  The text that is
  76. converted to Info is stored in a temporary buffer." (interactive "r") (byte-code "݈çè!ˆÝÝÝÝÝÝÝÝÝÝéÝÝÝÝêÝpéëë  
  77.     ŠŒì ˆebˆŠíî!ˆ`)ïÛ#íë!ˆ`‰ˆ…yïÝÛ#ð ˆ`‰ˆ†–ebˆïñÛ#ð ˆ`‰ˆíë!ˆ`‰ˆ…¥ò^\"‰)))ˆóô!!ˆõ ˆcˆö] #ˆh÷U†Ëøcˆebˆù ˆçè!ˆ‰ˆú!!ˆûüÝÛ#…D`‰ˆý P\"þü!ˆÿ`Šíë!ˆ`)\"ˆç@\"\"ˆŠŒA``B\"!A@\\\"ˆebˆûCŠíî!ˆ`)Û#…=ð ˆÿ`Šíë!ˆ`)\")))ˆ‚áˆebˆD ˆebˆE ˆdbˆþFÝÛ#…fÿ`d\"ˆh÷U†oøcˆÝ‰#ˆÝ‰$ˆebˆGH!…‘ÿ`Šíë!ˆ`)\"ˆebˆïñŠíî!ˆ`)Û#ƒÕ`‰ˆð ˆ`‰ˆI %JKL#ˆMN%!!cˆOc)‚áJKP#ˆJQRS!ƒ TUMS!!!VQ‚WX!VQY&Z&ˆebˆ[ ˆebˆç\\!.‡" [texinfo-command-start texinfo-command-end texinfo-command-name texinfo-vindex texinfo-findex texinfo-cindex texinfo-pindex texinfo-tindex texinfo-kindex texinfo-stack texinfo-format-filename texinfo-example-start texinfo-last-node-pos texinfo-last-node texinfo-node-names texinfo-footnote-number last-input-buffer fill-column-for-info fill-column input-buffer input-directory default-directory header-text header-beginning header-end search-end tex-start-of-header t tex-end-of-header nil region-beginning texinfo-region-buffer-name region-end texinfo-format-syntax-table filename texinfo-enclosure-list texinfo-alias-list arg texinfmt-version message "Converting region to Info format..." "" 0 1 widen forward-line 100 search-forward beginning-of-line "@setfilename" buffer-substring switch-to-buffer get-buffer-create erase-buffer insert-buffer-substring 10 "
  78. " texinfo-mode set-syntax-table re-search-forward "^@include" texinfo-parse-line-arg re-search-backward delete-region "Reading included file: %s" narrow-to-region insert-file-contents "^@setfilename" texinfo-raise-lower-sections texinfo-append-refill "^@bye" looking-at "\\\\input[     ]+texinfo" texinfo-parse-arg-discard insert " " " buffer for:  `" file-name-nondirectory expand-file-name "',        -*-Text-*-
  79. " " buffer                       -*-Text-*-
  80. " "produced by `texinfo-format-region'
  81. " "from a region in: " buffer-file-name "`" file-name-sans-versions "'" "buffer `" buffer-name "
  82. using `texinfmt.el' version " ".
  83.  
  84. " texinfo-format-scan "Done."] 58))
  85.  
  86. (defun texinfo-format-buffer-1 nil (byte-code "ØØØØØØØØØØØØØØØÝØØp  
  87.     ؉ˆØ‰ˆŠebˆÞßØÚ#†Tàá!ˆ`‰ˆâ ‰)ˆã!ˆä ˆ‰ˆå!ˆæ ˆç!ˆèéê!\"ˆebˆëìØÚ#…á`‰ˆâ Píì!ˆî`Šïð!ˆ`)\"ˆèñ\"ˆŠŒò``ó!A@\\\"ˆebˆëôŠïõ!ˆ`)Ú#…Úö ˆî`Šïð!ˆ`)\")))ˆ‚†ˆebˆ÷ ˆebˆø ˆebˆÞß!ˆö ˆîe`\"ˆdbˆùúØÚ#… î`d\"ˆhûU†ücˆý ˆebˆþ    
  88.   &.‡" [texinfo-format-filename texinfo-example-start texinfo-command-start texinfo-command-end texinfo-command-name texinfo-last-node texinfo-last-node-pos texinfo-vindex texinfo-findex texinfo-cindex texinfo-pindex texinfo-tindex texinfo-kindex texinfo-stack texinfo-node-names texinfo-footnote-number last-input-buffer outfile fill-column-for-info fill-column input-buffer input-directory default-directory texinfo-enclosure-list nil texinfo-alias-list t texinfo-format-syntax-table filename 0 search-forward "@setfilename" error "Texinfo file needs an `@setfilename FILENAME' line." texinfo-parse-line-arg find-file texinfo-mode set-syntax-table erase-buffer insert-buffer-substring message "Converting %s to Info format..." buffer-name re-search-forward "^@include" re-search-backward delete-region forward-line 1 "Reading included file: %s" narrow-to-region insert-file-contents "^@setfilename" 100 beginning-of-line texinfo-raise-lower-sections texinfo-append-refill search-backward "@bye" 10 "
  89. " texinfo-format-scan list] 39))
  90.  
  91. (defun texinfo-format-convert (min max) (byte-code "bˆÃÄ    Â#…ÅÆ!ˆ‚ˆbˆÃÇ    Â#…%ÅÆ!ˆ‚ˆbˆÈÉ    Â#…@ÊËÌ!TÌËÌ!\\\"ˆ‚)‡" [min max t search-forward "``" replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" delete-region match-beginning 2] 12))
  92.  
  93. (defvar texinfo-no-refill-regexp "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|ifhtml\\|tex\\|html\\)" "\
  94. Regexp specifying environments in which paragraphs are not filled.")
  95.  
  96. (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{\\)" "\
  97. Regexp specifying @-commands found within paragraphs.")
  98.  
  99. (defun texinfo-append-refill nil "\
  100. Append @refill at end of each paragraph that should be filled.
  101. Do not append @refill to paragraphs within @example and similar environments.  
  102. Do not append @refill to paragraphs containing @w{TEXT} or @*." (byte-code "`dW…”ÇÂÈ ˆÉÊP!…%ÉËÌ Í Î%!?…%`dW…/ÏÐ!ˆ‚ˆÉ !ƒNÑÒÐ!ÓÐ!\"ÔÕPÂÆ#ˆÏÐ!)‚`dY†^Ô֊נˆ`)Æ#ƒf× ‚× ˆÏØ!ˆÙ ˆÚ`ŠÛÜ!ˆ`)\"ˆÝފȠˆ`)Æ#?…‹ßcˆÏÐ!*ˆ‚‡" [refill-blank-lines case-fold-search nil texinfo-no-refill-regexp texinfo-part-of-para-regexp environment t "^[     
  103. ]*$" beginning-of-line looking-at "^@\\|^\\\\\\|" concat "\\(" "\\|" "\\)" forward-line 1 buffer-substring match-beginning match-end re-search-forward "^@end " "@w{\\|@\\*" forward-paragraph -1 end-of-line delete-region skip-chars-backward "     " re-search-backward "@refill\\|@bye" "@refill"] 25))
  104.  
  105. (defun texinfo-raise-lower-sections nil "\
  106. Raise or lower the hierarchical level of chapters, sections, etc. 
  107.  
  108. This function acts according to `@raisesections' and `@lowersections'
  109. commands in the Texinfo file.
  110.  
  111. For example, an `@lowersections' command is useful if you wish to
  112. include what is written as an outer or standalone Texinfo file in
  113. another Texinfo file as an inner, included file.  The `@lowersections'
  114. command changes chapters to sections, sections to subsections and so
  115. on.
  116.  
  117. @raisesections changes @subsection to @section,
  118.                        @section    to @chapter,
  119.                        @heading    to @chapheading,
  120.                        etc.
  121.  
  122. @lowersections changes @chapter    to @section,
  123.                        @subsection to @subsubsection,
  124.                        @heading    to @subheading,
  125.                        etc.
  126.  
  127. An `@raisesections' or `@lowersections' command changes only those
  128. structuring commands that follow the `@raisesections' or
  129. `@lowersections' command.
  130.  
  131. An `@lowersections' command cancels an `@raisesections' command, and
  132. vice versa.
  133.  
  134. Repeated use of the commands continue to raise or lower the hierarchical
  135. level a step at a time.
  136.  
  137. An attempt to raise above `chapters' reproduces chapter commands; an
  138. attempt to lower below subsubsections reproduces subsubsection
  139. commands." (byte-code "ÃÉÊË
  140. ÌQÃÄ#…»Í ˆŠÎp!‰)ˆÏ=ƒ2    T‰ˆÐ`ŠÑÒ!ˆ`)\"‚·Ó=ƒJ    S‰ˆÐ`ŠÑÒ!ˆ`)\"‚·    ÉVƒ|    ÉV…nÔ\"A‰ˆS‰ˆ‚UˆÕÒ!ˆÖ!c*‚·    ÉUƒˆÑÒ!‚·    ÉW…·    ÉW…¬Ô\"A‰ˆT‰ˆ‚“ˆÕÒ!ˆÖ!c*ˆ‚*‡" [type level texinfo-section-types-regexp nil t count new-level texinfo-raisesections-alist texinfo-lowersections-alist 0 re-search-forward "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\(" "\\)\\)" beginning-of-line read @raisesections delete-region forward-line 1 @lowersections assq kill-word symbol-name] 17))
  141.  
  142. (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))) "\
  143. *An alist of next higher levels for chapters, sections. etc.
  144. For example, section to chapter, subsection to section.
  145. Used by `texinfo-raise-lower-sections'.
  146. The keys specify types of section; the values correspond to the next
  147. higher types.")
  148.  
  149. (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))) "\
  150. *An alist of next lower levels for chapters, sections. etc.
  151. For example, chapter to section, section to subsection.
  152. Used by `texinfo-raise-lower-sections'.
  153. The keys specify types of section; the values correspond to the next
  154. lower types.")
  155.  
  156. (defun texinfo-format-scan nil (byte-code "Ìed\"ˆebˆÍÎÀÁ#…¶ÏÐ!ƒ9gÑUƒ/Ò`S`T\"ˆgÓU?…,Óc‚6ÔÕ!ˆÖ×!‚²`S‰ˆØg!ÙUƒLÚ×!‚OÖ×!ˆ`‰ˆÀÛ
  157. T \"Ü\"‰…qA‰ˆ‚]ˆÝ!*‰ˆÜÞ !    \"ƒßA@@à A@A@#ˆ
  158. b‚± áN
  159. 
  160. ƒ®â
  161. !‚°ã ))ˆ‚ˆ …Êä @8bˆåæ @@\"‡" [nil t texinfo-command-start texinfo-command-end texinfo-command-name trial cmdname texinfo-alias-list enclosure-type texinfo-enclosure-list cmd texinfo-stack texinfo-format-convert search-forward "@" looking-at "[@{}^'` *\"?!]" 42 delete-region 10 delete-char -1 forward-char 1 char-syntax 119 forward-word buffer-substring assoc intern symbol-name insert texinfo-parse-arg-discard texinfo-format funcall texinfo-unsupported 2 error "Unterminated @%s"] 21))
  162.  
  163. (put (quote begin) (quote texinfo-format) (quote texinfo-format-begin))
  164.  
  165. (defun texinfo-format-begin nil (byte-code "ÀÁ!‡" [texinfo-format-begin-end texinfo-format] 2))
  166.  
  167. (put (quote end) (quote texinfo-format) (quote texinfo-format-end))
  168.  
  169. (defun texinfo-format-end nil (byte-code "ÀÁ!‡" [texinfo-format-begin-end texinfo-end] 2))
  170.  
  171. (defun texinfo-format-begin-end (prop) (byte-code "ÃÄ !‰ˆ
  172. N    ƒÅ    !‚Æ )‡" [texinfo-command-name cmd prop intern texinfo-parse-line-arg funcall texinfo-unsupported] 5))
  173.  
  174. (defun texinfo-parse-line-arg nil (byte-code "bˆ`ÃÄ!ƒ)ÅÄ!ˆ`‰ˆÆ ˆÇÄ!ˆÈ`Æ ˆ`\"ˆ`T‰‚EÃÉ!ƒB`T‰ˆÊË!ˆ`‰ˆÌÍ!‚EÎÏ!ˆÐ    `\"l…QÌË!ˆ)‡" [texinfo-command-end start t looking-at " " skip-chars-forward end-of-line skip-chars-backward delete-region "{" forward-list 1 forward-char -1 error "Invalid texinfo command arg format" buffer-substring] 14))
  175.  
  176. (defun texinfo-parse-expanded-arg nil (byte-code "bˆ`ÄÅÆ!ƒÇÆ!ˆ`‰ˆÈ ˆ`T‰‚;ÅÉ!ƒ8`T‰ˆÊË!ˆ`‰ˆÌÍ!‚;ÎÏ!ˆÐÑ \"‰ˆÒ    `\"ˆÓ
  177. !‰ˆÐ
  178. Ä\"ˆÔ    `\"l…_ÌË!ˆ*‡" [texinfo-command-end start marker t nil looking-at " " skip-chars-forward end-of-line "{" forward-list 1 forward-char -1 error "Invalid texinfo command arg format" move-marker make-marker texinfo-format-expand-region marker-position buffer-substring] 16))
  179.  
  180. (defun texinfo-format-expand-region (start end) (byte-code "ŒÆ    \"ˆÇÇÇÇÈ ,ˆdb)‡" [start end texinfo-command-start texinfo-command-end texinfo-command-name texinfo-stack narrow-to-region nil texinfo-format-scan] 5))
  181.  
  182. (defun texinfo-parse-arg-discard nil (byte-code "À Á ˆ‡" [texinfo-parse-line-arg texinfo-discard-command] 4))
  183.  
  184. (defun texinfo-discard-command nil (byte-code "    \"‡" [texinfo-command-start texinfo-command-end delete-region] 3))
  185.  
  186. (defun texinfo-optional-braces-discard nil "\
  187. Discard braces following command, if any." (byte-code "bˆ`ÄÅ!†ÄÆ!ƒÇÈ!ˆ`‰‚ÉÊ!ˆË \")‡" [texinfo-command-end start t texinfo-command-start looking-at "[     ]*
  188. " "{" forward-list 1 error "Invalid `texinfo-optional-braces-discard' format (need braces?)" delete-region] 7))
  189.  
  190. (defun texinfo-format-parse-line-args nil (byte-code "`SÆÆÆÆÇÈ!ˆl?…N`‰ˆÉÊ!ˆ`‰ˆn…(    S‰ˆËÌ!ˆÍÈ!ˆ`‰ˆ
  191. V…?Î
  192. \" B‰ˆ    bˆÇÈ!ˆ‚ˆl…VËÏ!ˆ`‰ˆÐ !-‡" [start next beg end args texinfo-command-end nil skip-chars-forward " " re-search-forward "[
  193. ,]" forward-char -1 skip-chars-backward buffer-substring 1 nreverse] 9))
  194.  
  195. (defun texinfo-format-parse-args nil (byte-code "`SÇÇÇÇÈÉ!ˆŠÊ`ŠËÌ!ˆ`S)\")ˆÍhÎ\"…nÏÐ!ˆ`‰ˆÑÒ!ˆ`‰ˆÓÔ!ˆÕÐ!ˆ`‰ˆ
  196. W…X
  197. bˆÈÖ Å#…X×Ø!ˆ‚Iˆ
  198. V…cÙ
  199. \" B‰ˆ    bˆ‚ˆl…vÓÌ!ˆ`‰ˆÚ !-‡" [start next beg end args t texinfo-command-end nil search-forward "{" texinfo-format-expand-region up-list 1 /= 125 skip-chars-forward "     
  200. " re-search-forward "[},]" forward-char -1 skip-chars-backward "
  201. " replace-match " " buffer-substring nreverse] 14))
  202.  
  203. (defun texinfo-format-parse-defun-args nil (byte-code "bˆ`È ˆ`T‰ˆÉÊ \"Ë    `\"ˆÌ
  204. !‰ˆÉ
  205. Ã\")ˆ    bˆÃÃÃÍÎ!ˆl?…pÏÐ!ƒN`T‰ˆÑÒ!ˆ`S‰‚^`‰ˆÓÔ!ˆÕÖ!ˆ`‰ˆ×\" B‰ˆÍÎ!ˆ‚2ˆÕÒ!ˆØ !+)‡" [texinfo-command-end start marker nil args beg end t end-of-line move-marker make-marker texinfo-format-expand-region marker-position skip-chars-forward " " looking-at "{" forward-list 1 re-search-forward "[
  206.  ]" forward-char -1 buffer-substring nreverse] 16))
  207.  
  208. (defun texinfo-discard-line nil (byte-code "bˆÂÃ!ˆl†ÄÅ!ˆ    bˆn†ÄÆ!ˆÇ`ÈÉ!ˆ`\"‡" [texinfo-command-end texinfo-command-start skip-chars-forward "     " error "Extraneous text at end of command line." "Extraneous text at beginning of command line." delete-region forward-line 1] 7))
  209.  
  210. (defun texinfo-discard-line-with-args nil (byte-code "bˆÁ`ÂÃ!ˆ`\"‡" [texinfo-command-start delete-region forward-line 1] 4))
  211.  
  212. (put (quote setfilename) (quote texinfo-format) (quote texinfo-format-setfilename))
  213.  
  214. (defun texinfo-format-setfilename nil (byte-code "Ä ÅÆ\"ˆÇÈ!!‰ˆÉÊ    ËÌÍÎ
  215. !ƒ)ÏÐÇÎ
  216. !!!ÑQ‚/ÒÓ
  217. !ÑQÔ Õ&    )‡" [arg texinfo-format-filename input-buffer texinfmt-version texinfo-parse-arg-discard message "Formatting Info file: %s" file-name-nondirectory expand-file-name insert "Info file: " ",    -*-Text-*-
  218. " "produced by `texinfo-format-buffer'
  219. " "from file" buffer-file-name " `" file-name-sans-versions "'" "buffer `" buffer-name "
  220. using `texinfmt.el' version " ".
  221.  
  222. "] 19))
  223.  
  224. (put (quote node) (quote texinfo-format) (quote texinfo-format-node))
  225.  
  226. (put (quote nwnode) (quote texinfo-format) (quote texinfo-format-node))
  227.  
  228. (defun texinfo-format-node nil (byte-code "Ë Ì8Í8Î8Ï8Рˆ    ‰ˆÑ    !Ò\"ƒ/ÓÔ    \"‚8CB‰)ˆÌ‰ˆÕÖ    ×    $ˆ
  229. …OÕØ
  230. \"ˆ …XÕÙ \"ˆ …aÕÚ \"ˆÛcˆ`‰
  231. -‡" [args name next prev up texinfo-last-node tem texinfo-node-names texinfo-footnote-number texinfo-format-filename texinfo-last-node-pos texinfo-format-parse-line-args 0 1 2 3 texinfo-discard-command downcase assoc error "Duplicate node name: %s" insert "
  232. 
  233. File: " ", Node: " ", Next: " ", Prev: " ", Up: " 10] 11))
  234.  
  235. (put (quote menu) (quote texinfo-format) (quote texinfo-format-menu))
  236.  
  237. (defun texinfo-format-menu nil (byte-code "À ˆÁc‡" [texinfo-discard-line "* Menu:
  238.  
  239. "] 2))
  240.  
  241. (put (quote menu) (quote texinfo-end) (quote texinfo-discard-command))
  242.  
  243. (put (quote ref) (quote texinfo-format) (quote texinfo-format-xref))
  244.  
  245. (put (quote xref) (quote texinfo-format) (quote texinfo-format-xref))
  246.  
  247. (defun texinfo-format-xref nil (byte-code " àˆÄcˆÅ8†Æ8    †Ç8?ƒ&È@É\"‚AÈ    †-@Ê\"ˆÇ8…=ÈËÇ8Ì#ˆ@c))‡" [args fname texinfo-format-parse-args texinfo-discard-command "*Note " 1 2 3 insert "::" ": " "(" ")"] 8))
  248.  
  249. (put (quote pxref) (quote texinfo-format) (quote texinfo-format-pxref))
  250.  
  251. (defun texinfo-format-pxref nil (byte-code "À ˆŠÁÂ!ˆÃÄ!)†Åc‡" [texinfo-format-xref forward-char -2 looking-at "::" "."] 4))
  252.  
  253. (put (quote inforef) (quote texinfo-format) (quote texinfo-format-inforef))
  254.  
  255. (defun texinfo-format-inforef nil (byte-code "Á  ˆÃ8ƒÄÅÃ8ÆÇ8È@&‚)ÄÅÉÇ8È@Ê&)‡" [args texinfo-format-parse-args texinfo-discard-command 1 insert "*Note " ": (" 2 ")" "(" "::"] 10))
  256.  
  257. (put (quote majorheading) (quote texinfo-format) (quote texinfo-format-chapter))
  258.  
  259. (put (quote chapheading) (quote texinfo-format) (quote texinfo-format-chapter))
  260.  
  261. (put (quote ichapter) (quote texinfo-format) (quote texinfo-format-chapter))
  262.  
  263. (put (quote chapter) (quote texinfo-format) (quote texinfo-format-chapter))
  264.  
  265. (put (quote iappendix) (quote texinfo-format) (quote texinfo-format-chapter))
  266.  
  267. (put (quote appendix) (quote texinfo-format) (quote texinfo-format-chapter))
  268.  
  269. (put (quote iunnumbered) (quote texinfo-format) (quote texinfo-format-chapter))
  270.  
  271. (put (quote top) (quote texinfo-format) (quote texinfo-format-chapter))
  272.  
  273. (put (quote unnumbered) (quote texinfo-format) (quote texinfo-format-chapter))
  274.  
  275. (defun texinfo-format-chapter nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 42] 2))
  276.  
  277. (put (quote heading) (quote texinfo-format) (quote texinfo-format-section))
  278.  
  279. (put (quote isection) (quote texinfo-format) (quote texinfo-format-section))
  280.  
  281. (put (quote section) (quote texinfo-format) (quote texinfo-format-section))
  282.  
  283. (put (quote iappendixsection) (quote texinfo-format) (quote texinfo-format-section))
  284.  
  285. (put (quote appendixsection) (quote texinfo-format) (quote texinfo-format-section))
  286.  
  287. (put (quote iappendixsec) (quote texinfo-format) (quote texinfo-format-section))
  288.  
  289. (put (quote appendixsec) (quote texinfo-format) (quote texinfo-format-section))
  290.  
  291. (put (quote iunnumberedsec) (quote texinfo-format) (quote texinfo-format-section))
  292.  
  293. (put (quote unnumberedsec) (quote texinfo-format) (quote texinfo-format-section))
  294.  
  295. (defun texinfo-format-section nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 61] 2))
  296.  
  297. (put (quote subheading) (quote texinfo-format) (quote texinfo-format-subsection))
  298.  
  299. (put (quote isubsection) (quote texinfo-format) (quote texinfo-format-subsection))
  300.  
  301. (put (quote subsection) (quote texinfo-format) (quote texinfo-format-subsection))
  302.  
  303. (put (quote iappendixsubsec) (quote texinfo-format) (quote texinfo-format-subsection))
  304.  
  305. (put (quote appendixsubsec) (quote texinfo-format) (quote texinfo-format-subsection))
  306.  
  307. (put (quote iunnumberedsubsec) (quote texinfo-format) (quote texinfo-format-subsection))
  308.  
  309. (put (quote unnumberedsubsec) (quote texinfo-format) (quote texinfo-format-subsection))
  310.  
  311. (defun texinfo-format-subsection nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 45] 2))
  312.  
  313. (put (quote subsubheading) (quote texinfo-format) (quote texinfo-format-subsubsection))
  314.  
  315. (put (quote isubsubsection) (quote texinfo-format) (quote texinfo-format-subsubsection))
  316.  
  317. (put (quote subsubsection) (quote texinfo-format) (quote texinfo-format-subsubsection))
  318.  
  319. (put (quote iappendixsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))
  320.  
  321. (put (quote appendixsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))
  322.  
  323. (put (quote iunnumberedsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))
  324.  
  325. (put (quote unnumberedsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))
  326.  
  327. (defun texinfo-format-subsubsection nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 46] 2))
  328.  
  329. (defun texinfo-format-chapter-1 (belowchar) (byte-code " ÃÄ\"ˆÅÆÆÇ    Æ&ˆÈÉ!)‡" [arg belowchar texinfo-parse-arg-discard message "Formatting: %s ... " insert 10 "@SectionPAD " forward-line -2] 9))
  330.  
  331. (put (quote SectionPAD) (quote texinfo-format) (quote texinfo-format-sectionpad))
  332.  
  333. (defun texinfo-format-sectionpad nil (byte-code " ÃÄ!ˆiÃÅ!ˆ    ÆV…cˆ    S‰ˆ‚)ˆÇc)‡" [str column texinfo-parse-arg-discard forward-char -1 1 0 10] 6))
  334.  
  335. (put (quote \.) (quote texinfo-format) (quote texinfo-format-\.))
  336.  
  337. (defun texinfo-format-\. nil (byte-code "À ˆÁc‡" [texinfo-discard-command "."] 2))
  338.  
  339. (put (quote :) (quote texinfo-format) (quote texinfo-format-:))
  340.  
  341. (defun texinfo-format-: nil (byte-code "À ‡" [texinfo-discard-command] 2))
  342.  
  343. (put (quote -) (quote texinfo-format) (quote texinfo-format-soft-hyphen))
  344.  
  345. (defun texinfo-format-soft-hyphen nil (byte-code "À ‡" [texinfo-discard-command] 2))
  346.  
  347. (put (quote center) (quote texinfo-format) (quote texinfo-format-center))
  348.  
  349. (defun texinfo-format-center nil (byte-code "àÄ ˆcˆÅcˆŒ`SbˆÂÆ )))‡" [arg indent-tabs-mode nil texinfo-parse-expanded-arg texinfo-discard-command 10 center-line] 4))
  350.  
  351. (put (quote sp) (quote texinfo-format) (quote texinfo-format-sp))
  352.  
  353. (defun texinfo-format-sp nil (byte-code " Ã!ÄÅ    \"*‡" [arg num texinfo-parse-arg-discard read insert-char 10] 5))
  354.  
  355. (put (quote br) (quote texinfo-format) (quote texinfo-format-paragraph-break))
  356.  
  357. (defun texinfo-format-paragraph-break nil "\
  358. Force a paragraph break.
  359. If used within a line, follow `@br' with braces." (byte-code "À ˆgÁUƒÁc‚ÂÁÃ\"‡" [texinfo-optional-braces-discard 10 insert-char 2] 4))
  360.  
  361. (defvar texinfo-footnote-style "separate" "\
  362. Footnote style, either separate or end.")
  363.  
  364. (put (quote footnotestyle) (quote texinfo-format) (quote texinfo-footnotestyle))
  365.  
  366. (defun texinfo-footnotestyle nil "\
  367. Specify whether footnotes are at end of node or in separate nodes.
  368. Argument is either end or separate." (byte-code "Á ‰‡" [texinfo-footnote-style texinfo-parse-arg-discard] 3))
  369.  
  370. (defvar texinfo-footnote-number)
  371.  
  372. (put (quote footnote) (quote texinfo-format) (quote texinfo-format-footnote))
  373.  
  374. (defun texinfo-format-footnote nil "\
  375. Format a footnote in either end of node or separate node style.
  376. The   texinfo-footnote-style  variable controls which style is used." (byte-code "T‰ˆÂ    Ã\"ƒÄ ‚    Å\"…Æ ‡" [texinfo-footnote-number texinfo-footnote-style string= "end" texinfo-format-end-node "separate" texinfo-format-separate-node] 5))
  377.  
  378. (defun texinfo-format-separate-node nil "\
  379. Format footnote in Separate node style, with notes in own node.
  380. The node is constructed automatically." (byte-code "ÆÈ ŠÉÊ!ˆËÌ!)ŠÍ
  381. bˆÎÏ!ˆ`ÐъҠˆ`)Ä#ƒ+`S‚/Ò ˆ`\")Ó ˆÔŠÕÖ!ˆ`)`\"ˆ×Ø #cˆÙÆ!ˆŠÚÛÆÜ#…WÝÞ!ˆŠÉ ßP
  382. Ä#)ƒv`‰ˆ×à    #cˆá`\"‚‘âãä ß å&ˆ`‰ˆ×à    #cˆá`\"),‡" [start arg node-name-beginning node-name t texinfo-footnote-number nil texinfo-format-filename texinfo-parse-line-arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[     ]+Node:" match-end 0 buffer-substring skip-chars-forward "     " search-forward "," end-of-line texinfo-discard-command delete-region skip-chars-backward "     
  383. " format " (%d) (*Note %s-Footnotes::)" fill-paragraph re-search-forward "^@node" move forward-line -1 "-Footnotes, Up: " "
  384. (%d)  %s
  385. " fill-region insert "
  386. 
  387. File: " "  Node: " "
  388. "] 26))
  389.  
  390. (defun texinfo-format-end-node nil "\
  391. Format footnote in the End of node style, with notes at end of node." (byte-code "ÃÅ Æ ˆÇŠÈÉ!ˆ`)`\"ˆÊË
  392. \"cˆÌÃ!ˆŠÍÎÃÄ#ƒDÏÐÃÑ#…1ÒÓ!ˆ`‰ˆÊÔ
  393.     #cˆÕ`\"‚]ÏÐÃÑ#…OÒÓ!ˆÎcˆ`‰ˆÊÔ
  394.     #c)*‡" [start arg texinfo-footnote-number nil t texinfo-parse-line-arg texinfo-discard-command delete-region skip-chars-backward "     
  395. " format " (%d) " fill-paragraph search-forward "
  396. --------- Footnotes ---------
  397. " re-search-forward "^@node" move forward-line -1 "
  398. (%d)  %s
  399. " fill-region] 17))
  400.  
  401. (defvar texinfo-stack-depth 0 "\
  402. Count of number of unpopped texinfo-push-stack calls.
  403. Used by @refill indenting command to avoid indenting within lists, etc.")
  404.  
  405. (defun texinfo-push-stack (check arg) (byte-code "T‰ˆ
  406. E    B‰‡" [texinfo-stack-depth texinfo-stack check arg texinfo-command-start] 3))
  407.  
  408. (defun texinfo-pop-stack (check) (byte-code "S‰ˆ    ?…ÃÄ
  409. \"ˆ    @@
  410. =?…ÃÅ
  411.     @@#ˆ    @A    A‰ˆ‡" [texinfo-stack-depth texinfo-stack check error "Unmatched @end %s" "@end %s matches @%s"] 5))
  412.  
  413. (put (quote itemize) (quote texinfo-format) (quote texinfo-itemize))
  414.  
  415. (defun texinfo-itemize nil (byte-code "ÁÂÃÄ!ˆlƒłÆ \"ˆÇ ˆÈZ‰‡" [fill-column texinfo-push-stack itemize skip-chars-forward "     " "@bullet" texinfo-parse-line-arg texinfo-discard-line-with-args 5] 6))
  416.  
  417. (put (quote itemize) (quote texinfo-end) (quote texinfo-end-itemize))
  418.  
  419. (defun texinfo-end-itemize nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack itemize texinfo-do-itemize 1] 5))
  420.  
  421. (put (quote enumerate) (quote texinfo-format) (quote texinfo-enumerate))
  422.  
  423. (defun texinfo-enumerate nil (byte-code "ÂÃÄÅ!ˆlƒƂÇp!\"ˆ@A@9…$ÆÈ@A@!GV…*ÉÊ!ˆË ˆ    ÌZ‰‡" [texinfo-stack fill-column texinfo-push-stack enumerate skip-chars-forward "     " 1 read symbol-name error "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." texinfo-discard-line-with-args 5] 8))
  424.  
  425. (put (quote enumerate) (quote texinfo-end) (quote texinfo-end-enumerate))
  426.  
  427. (defun texinfo-end-enumerate nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack enumerate texinfo-do-itemize 1] 5))
  428.  
  429. (put (quote alphaenumerate) (quote texinfo-format) (quote texinfo-alphaenumerate))
  430.  
  431. (defun texinfo-alphaenumerate nil (byte-code "ÁÂÃS\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack alphaenumerate 97 5 texinfo-discard-line] 3))
  432.  
  433. (put (quote alphaenumerate) (quote texinfo-end) (quote texinfo-end-alphaenumerate))
  434.  
  435. (defun texinfo-end-alphaenumerate nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack alphaenumerate texinfo-do-itemize 1] 5))
  436.  
  437. (put (quote capsenumerate) (quote texinfo-format) (quote texinfo-capsenumerate))
  438.  
  439. (defun texinfo-capsenumerate nil (byte-code "ÁÂÃS\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack capsenumerate 65 5 texinfo-discard-line] 3))
  440.  
  441. (put (quote capsenumerate) (quote texinfo-end) (quote texinfo-end-capsenumerate))
  442.  
  443. (defun texinfo-end-capsenumerate nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack capsenumerate texinfo-do-itemize 1] 5))
  444.  
  445. (defun texinfo-do-itemize (from) (byte-code "ŠÁÂ!ˆ`Y…/gÃUƒ ŠÄÅ!ˆÆ ˆÄÇ!)‚+ÈÉ!?…+ŠÊc)ˆ‚)‡" [from forward-line -1 8 delete-char 1 end-of-line 6 looking-at "[     ]*$" "     "] 7))
  446.  
  447. (put (quote item) (quote texinfo-format) (quote texinfo-item))
  448.  
  449. (put (quote itemx) (quote texinfo-format) (quote texinfo-item))
  450.  
  451. (defun texinfo-item nil (byte-code "Á@@ÂN!‡" [texinfo-stack funcall texinfo-item] 3))
  452.  
  453. (put (quote itemize) (quote texinfo-item) (quote texinfo-itemize-item))
  454.  
  455. (defun texinfo-itemize-item nil (byte-code "Á`TŠÂ ˆ`)\"ˆÃÄ!ƒÅÆÇ@8È#‚$ÅÆÇ@8É#ˆÊË!‡" [texinfo-stack delete-region beginning-of-line looking-at "[     ]*[^     
  456. ]+" insert "   " 1 " 
  457. " " " forward-line -1] 8))
  458.  
  459. (put (quote enumerate) (quote texinfo-item) (quote texinfo-enumerate-item))
  460.  
  461. (defun texinfo-enumerate-item nil (byte-code "àˆÄÅ    @A@!ƒ(    @A@‰ˆÆÇÈÉ\"Ê#ˆË    @AT\"‚k    @A@9ƒhÌ    @A@!‰ˆÍÎÏ!\"†HÍÐÏ!\"…NÑÒ!ˆÆÇÈÓ\"Ê#ˆË    @AÔÕÏ!T!!\"‚kÑÖ!ˆ×Ø!)‡" [enumerating-symbol texinfo-stack t texinfo-discard-line nil integerp insert 8 format "%3d. " 10 setcar symbol-name equal 91 string-to-char 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." forward-line -1] 20))
  462.  
  463. (put (quote alphaenumerate) (quote texinfo-item) (quote texinfo-alphaenumerate-item))
  464.  
  465. (defun texinfo-alphaenumerate-item nil (byte-code " ˆ    @A@TÃV…ÄÅ!ˆÆ    @A\"ˆÇÈÉ#)ˆÊË!‡" [next texinfo-stack texinfo-discard-line 122 error "More than 26 items in @alphaenumerate; get a bigger alphabet." setcar insert "  " ". 
  466. " forward-line -1] 7))
  467.  
  468. (put (quote capsenumerate) (quote texinfo-item) (quote texinfo-capsenumerate-item))
  469.  
  470. (defun texinfo-capsenumerate-item nil (byte-code " ˆ    @A@TÃV…ÄÅ!ˆÆ    @A\"ˆÇÈÉ#)ˆÊË!‡" [next texinfo-stack texinfo-discard-line 90 error "More than 26 items in @capsenumerate; get a bigger alphabet." setcar insert "  " ". 
  471. " forward-line -1] 7))
  472.  
  473. (put (quote table) (quote texinfo-format) (quote texinfo-table))
  474.  
  475. (defun texinfo-table nil (byte-code "ÁÂÃÄ!ˆlƒłÆ \"ˆÇ ˆÈZ‰‡" [fill-column texinfo-push-stack table skip-chars-forward "     " "@asis" texinfo-parse-line-arg texinfo-discard-line-with-args 5] 6))
  476.  
  477. (put (quote table) (quote texinfo-item) (quote texinfo-table-item))
  478.  
  479. (defun texinfo-table-item nil (byte-code "à
  480. @A@ÄÅ    ÆÇ%*ˆÈÉ!‡" [arg itemfont texinfo-stack texinfo-parse-arg-discard insert 8 123 "}
  481.      
  482. " forward-line -2] 7))
  483.  
  484. (put (quote table) (quote texinfo-end) (quote texinfo-end-table))
  485.  
  486. (defun texinfo-end-table nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack table texinfo-do-itemize 1] 5))
  487.  
  488. (put (quote description) (quote texinfo-end) (quote texinfo-end-table))
  489.  
  490. (put (quote description) (quote texinfo-format) (quote texinfo-description))
  491.  
  492. (defun texinfo-description nil (byte-code "ÁÂÃ\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack table "@asis" 5 texinfo-discard-line] 3))
  493.  
  494. (put (quote ftable) (quote texinfo-format) (quote texinfo-ftable))
  495.  
  496. (put (quote vtable) (quote texinfo-format) (quote texinfo-vtable))
  497.  
  498. (defun texinfo-ftable nil (byte-code "ÀÁ!‡" [texinfo-indextable ftable] 2))
  499.  
  500. (defun texinfo-vtable nil (byte-code "ÀÁ!‡" [texinfo-indextable vtable] 2))
  501.  
  502. (defun texinfo-indextable (table-type) (byte-code "Âà\"ˆ    ÄZ‰‡" [table-type fill-column texinfo-push-stack texinfo-parse-arg-discard 5] 4))
  503.  
  504. (put (quote ftable) (quote texinfo-item) (quote texinfo-ftable-item))
  505.  
  506. (put (quote vtable) (quote texinfo-item) (quote texinfo-vtable-item))
  507.  
  508. (defun texinfo-ftable-item nil (byte-code "ÀÁ!‡" [texinfo-indextable-item texinfo-findex] 2))
  509.  
  510. (defun texinfo-vtable-item nil (byte-code "ÀÁ!‡" [texinfo-indextable-item texinfo-vindex] 2))
  511.  
  512. (defun texinfo-indextable-item (index-type) (byte-code "Æ 
  513. @A@ ÇÈ    ÉÊ%ˆ D JBLˆËÌ!+‡" [item itemfont texinfo-stack indexvar index-type texinfo-last-node texinfo-parse-arg-discard insert 8 123 "}
  514.      
  515. " forward-line -2] 7))
  516.  
  517. (put (quote ftable) (quote texinfo-end) (quote texinfo-end-ftable))
  518.  
  519. (put (quote vtable) (quote texinfo-end) (quote texinfo-end-vtable))
  520.  
  521. (defun texinfo-end-ftable nil (byte-code "ÀÁ!‡" [texinfo-end-indextable ftable] 2))
  522.  
  523. (defun texinfo-end-vtable nil (byte-code "ÀÁ!‡" [texinfo-end-indextable vtable] 2))
  524.  
  525. (defun texinfo-end-indextable (table-type) (byte-code "Ã\\‰ˆÄ ˆÅ
  526. !ÆÇ    8!)‡" [fill-column stacktop table-type 5 texinfo-discard-command texinfo-pop-stack texinfo-do-itemize 1] 5))
  527.  
  528. (put (quote ifinfo) (quote texinfo-format) (quote texinfo-discard-line))
  529.  
  530. (put (quote ifinfo) (quote texinfo-end) (quote texinfo-discard-command))
  531.  
  532. (put (quote iftex) (quote texinfo-format) (quote texinfo-format-iftex))
  533.  
  534. (defun texinfo-format-iftex nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end iftex[     ]*
  535. "] 4))
  536.  
  537. (put (quote ifhtml) (quote texinfo-format) (quote texinfo-format-ifhtml))
  538.  
  539. (defun texinfo-format-ifhtml nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end ifhtml[     ]*
  540. "] 4))
  541.  
  542. (put (quote tex) (quote texinfo-format) (quote texinfo-format-tex))
  543.  
  544. (defun texinfo-format-tex nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end tex[     ]*
  545. "] 4))
  546.  
  547. (put (quote html) (quote texinfo-format) (quote texinfo-format-html))
  548.  
  549. (defun texinfo-format-html nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end html[     ]*
  550. "] 4))
  551.  
  552. (put (quote titlepage) (quote texinfo-format) (quote texinfo-format-titlepage))
  553.  
  554. (defun texinfo-format-titlepage nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end titlepage[     ]*
  555. "] 4))
  556.  
  557. (put (quote endtitlepage) (quote texinfo-format) (quote texinfo-discard-line))
  558.  
  559. (put (quote titlespec) (quote texinfo-format) (quote texinfo-format-titlespec))
  560.  
  561. (defun texinfo-format-titlespec nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end titlespec[     ]*
  562. "] 4))
  563.  
  564. (put (quote endtitlespec) (quote texinfo-format) (quote texinfo-discard-line))
  565.  
  566. (put (quote today) (quote texinfo-format) (quote texinfo-format-today))
  567.  
  568. (defun texinfo-format-today nil (byte-code "À ˆÁÂàÄÅOàÆÇOàÈÉO$c‡" [texinfo-parse-arg-discard format "%s %s %s" current-time-string 8 10 4 7 -4 nil] 11))
  569.  
  570. (put (quote ignore) (quote texinfo-format) (quote texinfo-format-ignore))
  571.  
  572. (defun texinfo-format-ignore nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end ignore[     ]*
  573. "] 4))
  574.  
  575. (put (quote endignore) (quote texinfo-format) (quote texinfo-discard-line))
  576.  
  577. (put (quote definfoenclose) (quote texinfo-format) (quote texinfo-define-info-enclosure))
  578.  
  579. (defun texinfo-define-info-enclosure nil (byte-code "Å Æ8Ç8†ÈÉ8†ÈÊ ˆ    
  580. DD B‰,‡" [args command-name beginning-delimiter end-delimiter texinfo-enclosure-list texinfo-format-parse-line-args 0 1 "" 2 texinfo-discard-command] 5))
  581.  
  582. (put (quote var) (quote texinfo-format) (quote texinfo-format-var))
  583.  
  584. (put (quote sc) (quote texinfo-format) (quote texinfo-format-var))
  585.  
  586. (defun texinfo-format-var nil (byte-code "Á !cˆb‡" [texinfo-command-start upcase texinfo-parse-arg-discard] 3))
  587.  
  588. (put (quote b) (quote texinfo-format) (quote texinfo-format-noop))
  589.  
  590. (put (quote i) (quote texinfo-format) (quote texinfo-format-noop))
  591.  
  592. (put (quote r) (quote texinfo-format) (quote texinfo-format-noop))
  593.  
  594. (put (quote t) (quote texinfo-format) (quote texinfo-format-noop))
  595.  
  596. (put (quote w) (quote texinfo-format) (quote texinfo-format-noop))
  597.  
  598. (put (quote asis) (quote texinfo-format) (quote texinfo-format-noop))
  599.  
  600. (put (quote dmn) (quote texinfo-format) (quote texinfo-format-noop))
  601.  
  602. (put (quote key) (quote texinfo-format) (quote texinfo-format-noop))
  603.  
  604. (put (quote math) (quote texinfo-format) (quote texinfo-format-noop))
  605.  
  606. (put (quote titlefont) (quote texinfo-format) (quote texinfo-format-noop))
  607.  
  608. (defun texinfo-format-noop nil (byte-code "Á cˆb‡" [texinfo-command-start texinfo-parse-arg-discard] 2))
  609.  
  610. (put (quote cite) (quote texinfo-format) (quote texinfo-format-code))
  611.  
  612. (put (quote code) (quote texinfo-format) (quote texinfo-format-code))
  613.  
  614. (put (quote file) (quote texinfo-format) (quote texinfo-format-code))
  615.  
  616. (put (quote kbd) (quote texinfo-format) (quote texinfo-format-code))
  617.  
  618. (put (quote samp) (quote texinfo-format) (quote texinfo-format-code))
  619.  
  620. (defun texinfo-format-code nil (byte-code "ÁÂàÄ#ˆb‡" [texinfo-command-start insert "`" texinfo-parse-arg-discard "'"] 5))
  621.  
  622. (put (quote emph) (quote texinfo-format) (quote texinfo-format-emph))
  623.  
  624. (put (quote strong) (quote texinfo-format) (quote texinfo-format-emph))
  625.  
  626. (defun texinfo-format-emph nil (byte-code "ÁÂàÂ#ˆb‡" [texinfo-command-start insert "*" texinfo-parse-arg-discard] 5))
  627.  
  628. (put (quote dfn) (quote texinfo-format) (quote texinfo-format-defn))
  629.  
  630. (put (quote defn) (quote texinfo-format) (quote texinfo-format-defn))
  631.  
  632. (defun texinfo-format-defn nil (byte-code "ÁÂàÂ#ˆb‡" [texinfo-command-start insert "\"" texinfo-parse-arg-discard] 5))
  633.  
  634. (put (quote bullet) (quote texinfo-format) (quote texinfo-format-bullet))
  635.  
  636. (defun texinfo-format-bullet nil "\
  637. Insert an asterisk.
  638. If used within a line, follow `@bullet' with braces." (byte-code "À ˆÁc‡" [texinfo-optional-braces-discard "*"] 2))
  639.  
  640. (put (quote display) (quote texinfo-format) (quote texinfo-format-example))
  641.  
  642. (put (quote example) (quote texinfo-format) (quote texinfo-format-example))
  643.  
  644. (put (quote lisp) (quote texinfo-format) (quote texinfo-format-example))
  645.  
  646. (put (quote quotation) (quote texinfo-format) (quote texinfo-format-example))
  647.  
  648. (put (quote smallexample) (quote texinfo-format) (quote texinfo-format-example))
  649.  
  650. (put (quote smalllisp) (quote texinfo-format) (quote texinfo-format-example))
  651.  
  652. (defun texinfo-format-example nil (byte-code "ÂÃÀ\"ˆ    ÄZ‰ˆÅ ‡" [nil fill-column texinfo-push-stack example 5 texinfo-discard-line] 3))
  653.  
  654. (put (quote example) (quote texinfo-end) (quote texinfo-end-example))
  655.  
  656. (put (quote display) (quote texinfo-end) (quote texinfo-end-example))
  657.  
  658. (put (quote lisp) (quote texinfo-end) (quote texinfo-end-example))
  659.  
  660. (put (quote quotation) (quote texinfo-end) (quote texinfo-end-example))
  661.  
  662. (put (quote smallexample) (quote texinfo-end) (quote texinfo-end-example))
  663.  
  664. (put (quote smalllisp) (quote texinfo-end) (quote texinfo-end-example))
  665.  
  666. (defun texinfo-end-example nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ    8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack example texinfo-do-itemize 1] 5))
  667.  
  668. (put (quote exdent) (quote texinfo-format) (quote texinfo-format-exdent))
  669.  
  670. (defun texinfo-format-exdent nil (byte-code "À ˆÁ`ÂÃ!ˆ`\"ˆÄcˆŠÅ ˆÆc)‡" [texinfo-discard-command delete-region skip-chars-forward " " 8 end-of-line "
  671.      "] 5))
  672.  
  673. (put (quote cartouche) (quote texinfo-format) (quote texinfo-discard-line))
  674.  
  675. (put (quote cartouche) (quote texinfo-end) (quote texinfo-discard-command))
  676.  
  677. (put (quote format) (quote texinfo-format) (quote texinfo-format-flushleft))
  678.  
  679. (put (quote flushleft) (quote texinfo-format) (quote texinfo-format-flushleft))
  680.  
  681. (defun texinfo-format-flushleft nil (byte-code "À ‡" [texinfo-discard-line] 2))
  682.  
  683. (put (quote format) (quote texinfo-end) (quote texinfo-end-flushleft))
  684.  
  685. (put (quote flushleft) (quote texinfo-end) (quote texinfo-end-flushleft))
  686.  
  687. (defun texinfo-end-flushleft nil (byte-code "À ‡" [texinfo-discard-command] 2))
  688.  
  689. (put (quote flushright) (quote texinfo-format) (quote texinfo-format-flushright))
  690.  
  691. (defun texinfo-format-flushright nil (byte-code "ÁÂÀ\"ˆÃ ‡" [nil texinfo-push-stack flushright texinfo-discard-line] 3))
  692.  
  693. (put (quote flushright) (quote texinfo-end) (quote texinfo-end-flushright))
  694.  
  695. (defun texinfo-end-flushright nil (byte-code "Á ˆÂÃ!ÄÅ8!)‡" [stacktop texinfo-discard-command texinfo-pop-stack flushright texinfo-do-flushright 1] 5))
  696.  
  697. (defun texinfo-do-flushright (from) (byte-code "ŠÂÃ!ˆ`Y…*Ä ˆÅ    ŠÆ ˆÇÈ!ˆÉ`Æ ˆ`\"ˆi)ZÊ\"cˆ‚)‡" [from fill-column forward-line -1 beginning-of-line make-string end-of-line skip-chars-backward "     " delete-region 32] 11))
  698.  
  699. (put (quote ctrl) (quote texinfo-format) (quote texinfo-format-ctrl))
  700.  
  701. (defun texinfo-format-ctrl nil (byte-code "Á ÂÃÄH\"c)‡" [str texinfo-parse-arg-discard logand 31 0] 5))
  702.  
  703. (put (quote TeX) (quote texinfo-format) (quote texinfo-format-TeX))
  704.  
  705. (defun texinfo-format-TeX nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "TeX"] 2))
  706.  
  707. (put (quote copyright) (quote texinfo-format) (quote texinfo-format-copyright))
  708.  
  709. (defun texinfo-format-copyright nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "(C)"] 2))
  710.  
  711. (put (quote minus) (quote texinfo-format) (quote texinfo-format-minus))
  712.  
  713. (defun texinfo-format-minus nil "\
  714. Insert a minus sign.
  715. If used within a line, follow `@minus' with braces." (byte-code "À ˆÁc‡" [texinfo-optional-braces-discard "-"] 2))
  716.  
  717. (put (quote dots) (quote texinfo-format) (quote texinfo-format-dots))
  718.  
  719. (defun texinfo-format-dots nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "..."] 2))
  720.  
  721. (put (quote enddots) (quote texinfo-format) (quote texinfo-format-enddots))
  722.  
  723. (defun texinfo-format-enddots nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "...."] 2))
  724.  
  725. (defvar texinfo-paragraph-indent "asis" "\
  726. Number of spaces for @refill to indent a paragraph; else to leave as is.")
  727.  
  728. (put (quote paragraphindent) (quote texinfo-format) (quote texinfo-paragraphindent))
  729.  
  730. (defun texinfo-paragraphindent nil "\
  731. Specify the number of spaces for @refill to indent a paragraph.
  732. Default is to leave the number of spaces as is." (byte-code " ÃÄ\"ƒĉ‚Å!‰)‡" [arg texinfo-paragraph-indent texinfo-parse-arg-discard string= "asis" string-to-int] 5))
  733.  
  734. (put (quote refill) (quote texinfo-format) (quote texinfo-format-refill))
  735.  
  736. (defun texinfo-format-refill nil "\
  737. Refill paragraph. Also, indent first line as set by @paragraphindent.
  738. Default is to leave paragraph indentation as is." (byte-code "È ˆÉÊ!ˆËÌ!…ÍÎ!ˆŠÍÊ!ˆËÏ!)ƒ,ÍÊ!ˆÐ`ÍÎ!ˆ`\"‚GÑÒ\"†G    ÓV†GÐ`ÔÕ!ˆ`\"ˆÖ×\"cˆÉÎ!ˆÍÊ!ˆØ ˆ ÙPÙPڎÛÇ!),‡" [texinfo-paragraph-indent texinfo-stack-depth t previous-paragraph-separate paragraph-separate previous-paragraph-start paragraph-start nil texinfo-discard-command forward-paragraph -1 looking-at "[     
  739. ]*$" forward-line 1 "^@noindent" delete-region equal "asis" 0 skip-chars-forward "     " make-string 32 end-of-line "\\|[-=*.]+" ((byte-code "    ‰ˆ ‰‡" [paragraph-separate previous-paragraph-separate paragraph-start previous-paragraph-start] 2)) fill-paragraph] 18))
  740.  
  741. (put (quote noindent) (quote texinfo-format) (quote texinfo-noindent))
  742.  
  743. (defun texinfo-noindent nil (byte-code "ŠÂÃ!ˆÄŊÆÇ!ˆ`)À#ƒÁ‚È )‡" [t nil forward-paragraph 1 search-backward "@refill" forward-line -1 texinfo-discard-line] 6))
  744.  
  745. (put (quote vindex) (quote texinfo-format) (quote texinfo-format-vindex))
  746.  
  747. (defun texinfo-format-vindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-vindex] 2))
  748.  
  749. (put (quote cindex) (quote texinfo-format) (quote texinfo-format-cindex))
  750.  
  751. (defun texinfo-format-cindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-cindex] 2))
  752.  
  753. (put (quote findex) (quote texinfo-format) (quote texinfo-format-findex))
  754.  
  755. (defun texinfo-format-findex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-findex] 2))
  756.  
  757. (put (quote pindex) (quote texinfo-format) (quote texinfo-format-pindex))
  758.  
  759. (defun texinfo-format-pindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-pindex] 2))
  760.  
  761. (put (quote tindex) (quote texinfo-format) (quote texinfo-format-tindex))
  762.  
  763. (defun texinfo-format-tindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-tindex] 2))
  764.  
  765. (put (quote kindex) (quote texinfo-format) (quote texinfo-format-kindex))
  766.  
  767. (defun texinfo-format-kindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-kindex] 2))
  768.  
  769. (defun texinfo-index (indexvar) (byte-code "Ä Å ˆ    
  770. ƒÆ `\"T‚ÇE    JBL)‡" [arg indexvar texinfo-last-node texinfo-last-node-pos texinfo-parse-expanded-arg texinfo-discard-command count-lines 1] 8))
  771.  
  772. (defconst texinfo-indexvar-alist (quote (("cp" . texinfo-cindex) ("fn" . texinfo-findex) ("vr" . texinfo-vindex) ("tp" . texinfo-tindex) ("pg" . texinfo-pindex) ("ky" . texinfo-kindex))))
  773.  
  774. (put (quote defindex) (quote texinfo-format) (quote texinfo-format-defindex))
  775.  
  776. (put (quote defcodeindex) (quote texinfo-format) (quote texinfo-format-defindex))
  777.  
  778. (defun texinfo-format-defindex nil (byte-code "Æ ÇÈP!ÇÉÈQ!ÇÊÈQ! ÄLˆË    Ì
  779. #ˆÍ\"†/ BB‰ˆ
  780. ÎÄÏÐ DDEM,‡" [index-name indexing-command index-formatting-command index-alist-name nil texinfo-indexvar-alist texinfo-parse-arg-discard intern "index" "texinfo-format-" "texinfo-" put texinfo-format assoc lambda texinfo-index quote] 12))
  781.  
  782. (put (quote synindex) (quote texinfo-format) (quote texinfo-format-synindex))
  783.  
  784. (put (quote syncodeindex) (quote texinfo-format) (quote texinfo-format-synindex))
  785.  
  786. (defun texinfo-format-synindex nil (byte-code "Æ Ç!AÈÇ!@!ÈÇ    \"@!É
  787. \"ƒ7ÊÉ
  788. \"AËÉ \"A†3ÌÍ ÎQ!#‚MÊÌ
  789. ÎP!ËÉ \"A†LÌÍ ÎQ!#,‡" [args second joiner joined texinfo-short-index-cmds-alist texinfo-short-index-format-cmds-alist texinfo-parse-arg-discard read-from-string symbol-name assoc put texinfo-format intern "texinfo-format-" "index"] 20))
  790.  
  791. (defconst texinfo-short-index-cmds-alist (quote (("cp" . cindex) ("fn" . findex) ("vr" . vindex) ("tp" . tindex) ("pg" . pindex) ("ky" . kindex))))
  792.  
  793. (defconst texinfo-short-index-format-cmds-alist (quote (("cp" . texinfo-format-cindex) ("fn" . texinfo-format-findex) ("vr" . texinfo-format-vindex) ("tp" . texinfo-format-tindex) ("pg" . texinfo-format-pindex) ("ky" . texinfo-format-kindex))))
  794.  
  795. (defun texinfo-sort-region (start end) (byte-code "ÃÄ!ˆŒÅ    \"ˆÆÂÇÈÉ$)‡" [start end nil require sort narrow-to-region sort-subr forward-line end-of-line texinfo-sort-startkeyfun] 7))
  796.  
  797. (defun texinfo-sort-startkeyfun nil (byte-code "Á`ŠÂ ˆ`)\"ÃÄ\"…&ÅÆÅ!OÇÈÅ!GOQ‰ˆ‚
  798. ˆ)‡" [line buffer-substring end-of-line string-match "[     ][     ]+\\|[^a-z0-9 ]+" 0 match-beginning " " match-end] 11))
  799.  
  800. (put (quote printindex) (quote texinfo-format) (quote texinfo-format-printindex))
  801.  
  802. (defun texinfo-format-printindex nil (byte-code "ÅÆ     \"AJÃÇcˆ`‰ˆÈÃ\"ˆ É=ƒ#Ê
  803. `\"‚)Ë
  804. `ÌÍ$*‡" [indexelts texinfo-indexvar-alist opoint nil system-type assoc texinfo-parse-arg-discard "
  805. * Menu:
  806.  
  807. " texinfo-print-index vax-vms texinfo-sort-region shell-command-on-region "sort -fd" 1] 9))
  808.  
  809. (defun texinfo-print-index (file indexelts) (byte-code "…X@@;ƒEÂÃ@@Ä#ˆÅjˆÂ    ƒ\"Æ    ÇQ‚#ÈÉ@8Ê#ˆËjˆÂÌ@8ƒ?ÍÎÌ@8\"‚@ÈÏ\"‚OÐÉ@8Ì@8\"ˆA‰ˆ‚‡" [indexelts file insert "* " ": " 32 "(" ")" "" 1 "." 54 2 format "  %d." "
  810. " texinfo-print-index] 9))
  811.  
  812. (put (quote equiv) (quote texinfo-format) (quote texinfo-format-equiv))
  813.  
  814. (defun texinfo-format-equiv nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "=="] 2))
  815.  
  816. (put (quote error) (quote texinfo-format) (quote texinfo-format-error))
  817.  
  818. (defun texinfo-format-error nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "error-->"] 2))
  819.  
  820. (put (quote expansion) (quote texinfo-format) (quote texinfo-format-expansion))
  821.  
  822. (defun texinfo-format-expansion nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "==>"] 2))
  823.  
  824. (put (quote point) (quote texinfo-format) (quote texinfo-format-point))
  825.  
  826. (defun texinfo-format-point nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "-!-"] 2))
  827.  
  828. (put (quote print) (quote texinfo-format) (quote texinfo-format-print))
  829.  
  830. (defun texinfo-format-print nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "-|"] 2))
  831.  
  832. (put (quote result) (quote texinfo-format) (quote texinfo-format-result))
  833.  
  834. (defun texinfo-format-result nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "=>"] 2))
  835.  
  836. (defun texinfo-format-defun nil (byte-code "ÃÄÀ\"ˆ    ÅZ‰ˆÆÂ!‡" [nil fill-column t texinfo-push-stack defun 5 texinfo-format-defun-1] 3))
  837.  
  838. (defun texinfo-end-defun nil (byte-code "Â\\‰ˆÃ ˆÄÅÆ!8Ç    !ˆŠ    bˆÈÉ!))‡" [fill-column start 5 texinfo-discard-command 1 texinfo-pop-stack defun texinfo-do-itemize delete-char -1] 5))
  839.  
  840. (defun texinfo-format-defunx nil (byte-code "ÁÀ!‡" [nil texinfo-format-defun-1] 2))
  841.  
  842. (defun texinfo-format-defun-1 (first-p) (byte-code "Å 
  843. ÁNÆ ˆ ?…ÇÈ!ˆÉ
  844. ÊN\"ˆËcˆÌ @AA`\"ˆÉ
  845. ÍN\"*‡" [parse-args texinfo-defun-type texinfo-command-name first-p texinfo-stack texinfo-format-parse-defun-args texinfo-discard-command delete-char -1 funcall texinfo-deffn-formatting-property "
  846.  
  847. " rplaca texinfo-defun-indexing-property] 8))
  848.  
  849. (put (quote deffn) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  850.  
  851. (put (quote deffnx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  852.  
  853. (put (quote defvr) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  854.  
  855. (put (quote defvrx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  856.  
  857. (put (quote deftp) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  858.  
  859. (put (quote deftpx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deffn))
  860.  
  861. (defun texinfo-format-deffn (parsed-args) (byte-code "    @    A@    AAÅÆÇ
  862. $ˆ …=ÅÈÉ @ÊHU†'Ë @!Ì=ƒ/ @‚3Í @!\"ˆ A‰ˆ‚+‡" [category parsed-args name args texinfo-defun-type insert " -- " ": " " " 38 0 eval deftp-type upcase] 7))
  863.  
  864. (put (quote defun) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  865.  
  866. (put (quote defunx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  867.  
  868. (put (quote defmac) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  869.  
  870. (put (quote defmacx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  871.  
  872. (put (quote defspec) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  873.  
  874. (put (quote defspecx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  875.  
  876. (put (quote defvar) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  877.  
  878. (put (quote defvarx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  879.  
  880. (put (quote defopt) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  881.  
  882. (put (quote defoptx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-specialized-defun))
  883.  
  884. (defun texinfo-format-specialized-defun (parsed-args) (byte-code "    A@ @ AÅÆÇ
  885. $ˆ …3ÅÈÉ @ÊHUƒ% @‚)Ë @!\"ˆ A‰ˆ‚+‡" [category texinfo-defun-type name parsed-args args insert " -- " ": " " " 38 0 upcase] 7))
  886.  
  887. (put (quote deftypefn) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefn))
  888.  
  889. (put (quote deftypefnx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefn))
  890.  
  891. (put (quote deftypevr) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefn))
  892.  
  893. (put (quote deftypevrx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefn))
  894.  
  895. (defun texinfo-format-deftypefn (parsed-args) (byte-code "    @    A@    AA@    AAAÅÆÇ
  896. È &ˆ …-ÅÈ @\"ˆ A‰ˆ‚,‡" [category parsed-args data-type name args insert " -- " ": " " "] 7))
  897.  
  898. (put (quote deftypefun) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefun))
  899.  
  900. (put (quote deftypefunx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefun))
  901.  
  902. (put (quote deftypevar) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefun))
  903.  
  904. (put (quote deftypevarx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-deftypefun))
  905.  
  906. (defun texinfo-format-deftypefun (parsed-args) (byte-code "    A@ @ A@ AAÆÇÈ
  907. É &ˆ…+ÆÉ@\"ˆA‰ˆ‚,‡" [category texinfo-defun-type data-type parsed-args name args insert " -- " ": " " "] 7))
  908.  
  909. (put (quote defop) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defop))
  910.  
  911. (put (quote defopx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defop))
  912.  
  913. (defun texinfo-format-defop (parsed-args) (byte-code "    @    A@    AA@    AAAÅÆÇ
  914. È &ˆ …/ÅÉÊ @!\"ˆ A‰ˆ‚,‡" [category parsed-args class name args insert " -- " " on " ": " " " upcase] 7))
  915.  
  916. (put (quote defcv) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defcv))
  917.  
  918. (put (quote defcvx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defcv))
  919.  
  920. (defun texinfo-format-defcv (parsed-args) (byte-code "    @    A@    AA@    AAAÅÆÇ
  921. È &ˆ …/ÅÉÊ @!\"ˆ A‰ˆ‚,‡" [category parsed-args class name args insert " -- " " of " ": " " " upcase] 7))
  922.  
  923. (put (quote defmethod) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defmethod))
  924.  
  925. (put (quote defmethodx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defmethod))
  926.  
  927. (defun texinfo-format-defmethod (parsed-args) (byte-code "    A@ @ A@ AAÆÇÈ
  928. É &ˆ…-ÆÊË@!\"ˆA‰ˆ‚,‡" [category texinfo-defun-type class parsed-args name args insert " -- " " on " ": " " " upcase] 7))
  929.  
  930. (put (quote defivar) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defivar))
  931.  
  932. (put (quote defivarx) (quote texinfo-deffn-formatting-property) (quote texinfo-format-defivar))
  933.  
  934. (defun texinfo-format-defivar (parsed-args) (byte-code "    A@ @ A@ AAÆÇÈ
  935. É &ˆ…-ÆÊË@!\"ˆA‰ˆ‚,‡" [category texinfo-defun-type class parsed-args name args insert " -- " " of " ": " " " upcase] 7))
  936.  
  937. (put (quote defun) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  938.  
  939. (put (quote defunx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  940.  
  941. (put (quote defmac) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  942.  
  943. (put (quote defmacx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  944.  
  945. (put (quote defspec) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  946.  
  947. (put (quote defspecx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  948.  
  949. (put (quote defvar) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  950.  
  951. (put (quote defvarx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  952.  
  953. (put (quote defopt) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  954.  
  955. (put (quote defoptx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defun))
  956.  
  957. (defun texinfo-index-defun (parsed-args) (byte-code "    ÅN
  958. @ ƒÆ `\"T‚ÇEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 6))
  959.  
  960. (put (quote deffn) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  961.  
  962. (put (quote deffnx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  963.  
  964. (put (quote defvr) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  965.  
  966. (put (quote defvrx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  967.  
  968. (put (quote deftp) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  969.  
  970. (put (quote deftpx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  971.  
  972. (put (quote deftypefun) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  973.  
  974. (put (quote deftypefunx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  975.  
  976. (put (quote deftypevar) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  977.  
  978. (put (quote deftypevarx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deffn))
  979.  
  980. (defun texinfo-index-deffn (parsed-args) (byte-code "    ÅN
  981. A@ ƒÆ `\"T‚ÇEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 6))
  982.  
  983. (put (quote deftypefn) (quote texinfo-defun-indexing-property) (quote texinfo-index-deftypefn))
  984.  
  985. (put (quote deftypefnx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deftypefn))
  986.  
  987. (put (quote deftypevr) (quote texinfo-defun-indexing-property) (quote texinfo-index-deftypefn))
  988.  
  989. (put (quote deftypevrx) (quote texinfo-defun-indexing-property) (quote texinfo-index-deftypefn))
  990.  
  991. (defun texinfo-index-deftypefn (parsed-args) (byte-code "    ÅN
  992. AA@ ƒÆ `\"T‚ÇEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index count-lines 1] 6))
  993.  
  994. (put (quote defmethod) (quote texinfo-defun-indexing-property) (quote texinfo-index-defmethod))
  995.  
  996. (put (quote defmethodx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defmethod))
  997.  
  998. (defun texinfo-index-defmethod (parsed-args) (byte-code "    ÅNÆÇ
  999. A@
  1000. @# ƒÈ `\"T‚ÉEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 7))
  1001.  
  1002. (put (quote defop) (quote texinfo-defun-indexing-property) (quote texinfo-index-defop))
  1003.  
  1004. (put (quote defopx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defop))
  1005.  
  1006. (defun texinfo-index-defop (parsed-args) (byte-code "    ÅNÆÇ
  1007. AA@
  1008. A@# ƒÈ `\"T‚ÉEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s on %s" count-lines 1] 7))
  1009.  
  1010. (put (quote defivar) (quote texinfo-defun-indexing-property) (quote texinfo-index-defivar))
  1011.  
  1012. (put (quote defivarx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defivar))
  1013.  
  1014. (defun texinfo-index-defivar (parsed-args) (byte-code "    ÅNÆÇ
  1015. A@
  1016. @# ƒÈ `\"T‚ÉEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 7))
  1017.  
  1018. (put (quote defcv) (quote texinfo-defun-indexing-property) (quote texinfo-index-defcv))
  1019.  
  1020. (put (quote defcvx) (quote texinfo-defun-indexing-property) (quote texinfo-index-defcv))
  1021.  
  1022. (defun texinfo-index-defcv (parsed-args) (byte-code "    ÅNÆÇ
  1023. AA@
  1024. A@# ƒÈ `\"T‚ÉEJBL)‡" [index-list texinfo-command-name parsed-args texinfo-last-node texinfo-last-node-pos texinfo-defun-index format "%s of %s" count-lines 1] 7))
  1025.  
  1026. (put (quote deffn) (quote texinfo-format) (quote texinfo-format-defun))
  1027.  
  1028. (put (quote deffnx) (quote texinfo-format) (quote texinfo-format-defunx))
  1029.  
  1030. (put (quote deffn) (quote texinfo-end) (quote texinfo-end-defun))
  1031.  
  1032. (put (quote deffn) (quote texinfo-defun-type) (quote ((quote deffn-type) nil)))
  1033.  
  1034. (put (quote deffnx) (quote texinfo-defun-type) (quote ((quote deffn-type) nil)))
  1035.  
  1036. (put (quote deffn) (quote texinfo-defun-index) (quote texinfo-findex))
  1037.  
  1038. (put (quote deffnx) (quote texinfo-defun-index) (quote texinfo-findex))
  1039.  
  1040. (put (quote defun) (quote texinfo-format) (quote texinfo-format-defun))
  1041.  
  1042. (put (quote defunx) (quote texinfo-format) (quote texinfo-format-defunx))
  1043.  
  1044. (put (quote defun) (quote texinfo-end) (quote texinfo-end-defun))
  1045.  
  1046. (put (quote defun) (quote texinfo-defun-type) (quote ((quote defun-type) "Function")))
  1047.  
  1048. (put (quote defunx) (quote texinfo-defun-type) (quote ((quote defun-type) "Function")))
  1049.  
  1050. (put (quote defun) (quote texinfo-defun-index) (quote texinfo-findex))
  1051.  
  1052. (put (quote defunx) (quote texinfo-defun-index) (quote texinfo-findex))
  1053.  
  1054. (put (quote defmac) (quote texinfo-format) (quote texinfo-format-defun))
  1055.  
  1056. (put (quote defmacx) (quote texinfo-format) (quote texinfo-format-defunx))
  1057.  
  1058. (put (quote defmac) (quote texinfo-end) (quote texinfo-end-defun))
  1059.  
  1060. (put (quote defmac) (quote texinfo-defun-type) (quote ((quote defun-type) "Macro")))
  1061.  
  1062. (put (quote defmacx) (quote texinfo-defun-type) (quote ((quote defun-type) "Macro")))
  1063.  
  1064. (put (quote defmac) (quote texinfo-defun-index) (quote texinfo-findex))
  1065.  
  1066. (put (quote defmacx) (quote texinfo-defun-index) (quote texinfo-findex))
  1067.  
  1068. (put (quote defspec) (quote texinfo-format) (quote texinfo-format-defun))
  1069.  
  1070. (put (quote defspecx) (quote texinfo-format) (quote texinfo-format-defunx))
  1071.  
  1072. (put (quote defspec) (quote texinfo-end) (quote texinfo-end-defun))
  1073.  
  1074. (put (quote defspec) (quote texinfo-defun-type) (quote ((quote defun-type) "Special form")))
  1075.  
  1076. (put (quote defspecx) (quote texinfo-defun-type) (quote ((quote defun-type) "Special form")))
  1077.  
  1078. (put (quote defspec) (quote texinfo-defun-index) (quote texinfo-findex))
  1079.  
  1080. (put (quote defspecx) (quote texinfo-defun-index) (quote texinfo-findex))
  1081.  
  1082. (put (quote defvr) (quote texinfo-format) (quote texinfo-format-defun))
  1083.  
  1084. (put (quote defvrx) (quote texinfo-format) (quote texinfo-format-defunx))
  1085.  
  1086. (put (quote defvr) (quote texinfo-end) (quote texinfo-end-defun))
  1087.  
  1088. (put (quote defvr) (quote texinfo-defun-type) (quote ((quote deffn-type) nil)))
  1089.  
  1090. (put (quote defvrx) (quote texinfo-defun-type) (quote ((quote deffn-type) nil)))
  1091.  
  1092. (put (quote defvr) (quote texinfo-defun-index) (quote texinfo-vindex))
  1093.  
  1094. (put (quote defvrx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1095.  
  1096. (put (quote defvar) (quote texinfo-format) (quote texinfo-format-defun))
  1097.  
  1098. (put (quote defvarx) (quote texinfo-format) (quote texinfo-format-defunx))
  1099.  
  1100. (put (quote defvar) (quote texinfo-end) (quote texinfo-end-defun))
  1101.  
  1102. (put (quote defvar) (quote texinfo-defun-type) (quote ((quote defun-type) "Variable")))
  1103.  
  1104. (put (quote defvarx) (quote texinfo-defun-type) (quote ((quote defun-type) "Variable")))
  1105.  
  1106. (put (quote defvar) (quote texinfo-defun-index) (quote texinfo-vindex))
  1107.  
  1108. (put (quote defvarx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1109.  
  1110. (put (quote defconst) (quote texinfo-format) (quote texinfo-format-defun))
  1111.  
  1112. (put (quote defconstx) (quote texinfo-format) (quote texinfo-format-defunx))
  1113.  
  1114. (put (quote defconst) (quote texinfo-end) (quote texinfo-end-defun))
  1115.  
  1116. (put (quote defconst) (quote texinfo-defun-type) (quote ((quote defun-type) "Constant")))
  1117.  
  1118. (put (quote defconstx) (quote texinfo-defun-type) (quote ((quote defun-type) "Constant")))
  1119.  
  1120. (put (quote defconst) (quote texinfo-defun-index) (quote texinfo-vindex))
  1121.  
  1122. (put (quote defconstx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1123.  
  1124. (put (quote defcmd) (quote texinfo-format) (quote texinfo-format-defun))
  1125.  
  1126. (put (quote defcmdx) (quote texinfo-format) (quote texinfo-format-defunx))
  1127.  
  1128. (put (quote defcmd) (quote texinfo-end) (quote texinfo-end-defun))
  1129.  
  1130. (put (quote defcmd) (quote texinfo-defun-type) (quote ((quote defun-type) "Command")))
  1131.  
  1132. (put (quote defcmdx) (quote texinfo-defun-type) (quote ((quote defun-type) "Command")))
  1133.  
  1134. (put (quote defcmd) (quote texinfo-defun-index) (quote texinfo-findex))
  1135.  
  1136. (put (quote defcmdx) (quote texinfo-defun-index) (quote texinfo-findex))
  1137.  
  1138. (put (quote defopt) (quote texinfo-format) (quote texinfo-format-defun))
  1139.  
  1140. (put (quote defoptx) (quote texinfo-format) (quote texinfo-format-defunx))
  1141.  
  1142. (put (quote defopt) (quote texinfo-end) (quote texinfo-end-defun))
  1143.  
  1144. (put (quote defopt) (quote texinfo-defun-type) (quote ((quote defun-type) "User Option")))
  1145.  
  1146. (put (quote defoptx) (quote texinfo-defun-type) (quote ((quote defun-type) "User Option")))
  1147.  
  1148. (put (quote defopt) (quote texinfo-defun-index) (quote texinfo-vindex))
  1149.  
  1150. (put (quote defoptx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1151.  
  1152. (put (quote deftp) (quote texinfo-format) (quote texinfo-format-defun))
  1153.  
  1154. (put (quote deftpx) (quote texinfo-format) (quote texinfo-format-defunx))
  1155.  
  1156. (put (quote deftp) (quote texinfo-end) (quote texinfo-end-defun))
  1157.  
  1158. (put (quote deftp) (quote texinfo-defun-type) (quote ((quote deftp-type) nil)))
  1159.  
  1160. (put (quote deftpx) (quote texinfo-defun-type) (quote ((quote deftp-type) nil)))
  1161.  
  1162. (put (quote deftp) (quote texinfo-defun-index) (quote texinfo-tindex))
  1163.  
  1164. (put (quote deftpx) (quote texinfo-defun-index) (quote texinfo-tindex))
  1165.  
  1166. (put (quote defop) (quote texinfo-format) (quote texinfo-format-defun))
  1167.  
  1168. (put (quote defopx) (quote texinfo-format) (quote texinfo-format-defunx))
  1169.  
  1170. (put (quote defop) (quote texinfo-end) (quote texinfo-end-defun))
  1171.  
  1172. (put (quote defop) (quote texinfo-defun-type) (quote ((quote defop-type) nil)))
  1173.  
  1174. (put (quote defopx) (quote texinfo-defun-type) (quote ((quote defop-type) nil)))
  1175.  
  1176. (put (quote defop) (quote texinfo-defun-index) (quote texinfo-findex))
  1177.  
  1178. (put (quote defopx) (quote texinfo-defun-index) (quote texinfo-findex))
  1179.  
  1180. (put (quote defmethod) (quote texinfo-format) (quote texinfo-format-defun))
  1181.  
  1182. (put (quote defmethodx) (quote texinfo-format) (quote texinfo-format-defunx))
  1183.  
  1184. (put (quote defmethod) (quote texinfo-end) (quote texinfo-end-defun))
  1185.  
  1186. (put (quote defmethod) (quote texinfo-defun-type) (quote ((quote defmethod-type) "Method")))
  1187.  
  1188. (put (quote defmethodx) (quote texinfo-defun-type) (quote ((quote defmethod-type) "Method")))
  1189.  
  1190. (put (quote defmethod) (quote texinfo-defun-index) (quote texinfo-findex))
  1191.  
  1192. (put (quote defmethodx) (quote texinfo-defun-index) (quote texinfo-findex))
  1193.  
  1194. (put (quote defcv) (quote texinfo-format) (quote texinfo-format-defun))
  1195.  
  1196. (put (quote defcvx) (quote texinfo-format) (quote texinfo-format-defunx))
  1197.  
  1198. (put (quote defcv) (quote texinfo-end) (quote texinfo-end-defun))
  1199.  
  1200. (put (quote defcv) (quote texinfo-defun-type) (quote ((quote defop-type) nil)))
  1201.  
  1202. (put (quote defcvx) (quote texinfo-defun-type) (quote ((quote defop-type) nil)))
  1203.  
  1204. (put (quote defcv) (quote texinfo-defun-index) (quote texinfo-vindex))
  1205.  
  1206. (put (quote defcvx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1207.  
  1208. (put (quote defivar) (quote texinfo-format) (quote texinfo-format-defun))
  1209.  
  1210. (put (quote defivarx) (quote texinfo-format) (quote texinfo-format-defunx))
  1211.  
  1212. (put (quote defivar) (quote texinfo-end) (quote texinfo-end-defun))
  1213.  
  1214. (put (quote defivar) (quote texinfo-defun-type) (quote ((quote defmethod-type) "Instance variable")))
  1215.  
  1216. (put (quote defivarx) (quote texinfo-defun-type) (quote ((quote defmethod-type) "Instance variable")))
  1217.  
  1218. (put (quote defivar) (quote texinfo-defun-index) (quote texinfo-vindex))
  1219.  
  1220. (put (quote defivarx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1221.  
  1222. (put (quote deftypefn) (quote texinfo-format) (quote texinfo-format-defun))
  1223.  
  1224. (put (quote deftypefnx) (quote texinfo-format) (quote texinfo-format-defunx))
  1225.  
  1226. (put (quote deftypefn) (quote texinfo-end) (quote texinfo-end-defun))
  1227.  
  1228. (put (quote deftypefn) (quote texinfo-defun-type) (quote ((quote deftypefn-type) nil)))
  1229.  
  1230. (put (quote deftypefnx) (quote texinfo-defun-type) (quote ((quote deftypefn-type) nil)))
  1231.  
  1232. (put (quote deftypefn) (quote texinfo-defun-index) (quote texinfo-findex))
  1233.  
  1234. (put (quote deftypefnx) (quote texinfo-defun-index) (quote texinfo-findex))
  1235.  
  1236. (put (quote deftypefun) (quote texinfo-format) (quote texinfo-format-defun))
  1237.  
  1238. (put (quote deftypefunx) (quote texinfo-format) (quote texinfo-format-defunx))
  1239.  
  1240. (put (quote deftypefun) (quote texinfo-end) (quote texinfo-end-defun))
  1241.  
  1242. (put (quote deftypefun) (quote texinfo-defun-type) (quote ((quote deftypefun-type) "Function")))
  1243.  
  1244. (put (quote deftypefunx) (quote texinfo-defun-type) (quote ((quote deftypefun-type) "Function")))
  1245.  
  1246. (put (quote deftypefun) (quote texinfo-defun-index) (quote texinfo-findex))
  1247.  
  1248. (put (quote deftypefunx) (quote texinfo-defun-index) (quote texinfo-findex))
  1249.  
  1250. (put (quote deftypevr) (quote texinfo-format) (quote texinfo-format-defun))
  1251.  
  1252. (put (quote deftypevrx) (quote texinfo-format) (quote texinfo-format-defunx))
  1253.  
  1254. (put (quote deftypevr) (quote texinfo-end) (quote texinfo-end-defun))
  1255.  
  1256. (put (quote deftypevr) (quote texinfo-defun-type) (quote ((quote deftypefn-type) nil)))
  1257.  
  1258. (put (quote deftypevrx) (quote texinfo-defun-type) (quote ((quote deftypefn-type) nil)))
  1259.  
  1260. (put (quote deftypevr) (quote texinfo-defun-index) (quote texinfo-vindex))
  1261.  
  1262. (put (quote deftypevrx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1263.  
  1264. (put (quote deftypevar) (quote texinfo-format) (quote texinfo-format-defun))
  1265.  
  1266. (put (quote deftypevarx) (quote texinfo-format) (quote texinfo-format-defunx))
  1267.  
  1268. (put (quote deftypevar) (quote texinfo-end) (quote texinfo-end-defun))
  1269.  
  1270. (put (quote deftypevar) (quote texinfo-defun-type) (quote ((quote deftypevar-type) "Variable")))
  1271.  
  1272. (put (quote deftypevarx) (quote texinfo-defun-type) (quote ((quote deftypevar-type) "Variable")))
  1273.  
  1274. (put (quote deftypevar) (quote texinfo-defun-index) (quote texinfo-vindex))
  1275.  
  1276. (put (quote deftypevarx) (quote texinfo-defun-index) (quote texinfo-vindex))
  1277.  
  1278. (put (quote clear) (quote texinfo-format) (quote texinfo-clear))
  1279.  
  1280. (defun texinfo-clear nil "\
  1281. Clear the value of the flag." (byte-code "àÄ!@Ä!AÅOÆ    ÇÈ#ˆÆ    ÉÊ#+‡" [arg flag value texinfo-parse-arg-discard read-from-string nil put texinfo-whether-setp flag-cleared texinfo-set-value ""] 8))
  1282.  
  1283. (put (quote set) (quote texinfo-format) (quote texinfo-set))
  1284.  
  1285. (defun texinfo-set nil "\
  1286. Set the value of the flag, optionally to a string.
  1287. The command  `@set foo This is a string.'
  1288. sets flag foo to the value: `This is a string.'
  1289. The command  `@value{foo}'  expands to the value." (byte-code "àÄ!@Ä!AÅOÆ    ÇÈ#ˆÆ    É
  1290. #+‡" [arg flag value texinfo-parse-arg-discard read-from-string nil put texinfo-whether-setp flag-set texinfo-set-value] 8))
  1291.  
  1292. (put (quote value) (quote texinfo-format) (quote texinfo-value))
  1293.  
  1294. (defun texinfo-value nil "\
  1295. Insert the string to which the flag is set.
  1296. The command  `@set foo This is a string.'
  1297. sets flag foo to the value: `This is a string.'
  1298. The command  `@value{foo}'  expands to the value." (byte-code " Ã!@ÄNÅ=…Ã!@ÆNƒ!Ã!@ÆNc‚DÃ!@ÄNÇ=ƒ4ÈÉ\"c‚DÃ!@ÄNÁ=…DÈÉ\"c)‡" [arg nil texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set texinfo-set-value flag-cleared format "{No value for \"%s\"}"] 10))
  1299.  
  1300. (put (quote ifset) (quote texinfo-end) (quote texinfo-discard-command))
  1301.  
  1302. (put (quote ifset) (quote texinfo-format) (quote texinfo-if-set))
  1303.  
  1304. (defun texinfo-if-set nil "\
  1305. If set, continue formatting; else do not format region up to @end ifset" (byte-code "àÄ!@ÅNÆ=ƒÁ‚4Ä!@ÅNÇ=ƒ(È
  1306. ÉÊ!ˆ`\"‚4Ä!@ÅNÁ=…4Á)‡" [arg nil texinfo-command-start texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set flag-cleared delete-region re-search-forward "@end ifset[     ]*
  1307. "] 8))
  1308.  
  1309. (put (quote ifclear) (quote texinfo-end) (quote texinfo-discard-command))
  1310.  
  1311. (put (quote ifclear) (quote texinfo-format) (quote texinfo-if-clear))
  1312.  
  1313. (defun texinfo-if-clear nil "\
  1314. If clear, continue formatting; if set, do not format up to @end ifset" (byte-code "àÄ!@ÅNÆ=ƒÇ    ÈÉ!ˆ`\"‚4Ä!@ÅNÊ=ƒ(‚4Ä!@ÅNÂ=…4Â)‡" [arg texinfo-command-start nil texinfo-parse-arg-discard read-from-string texinfo-whether-setp flag-set delete-region re-search-forward "@end ifclear[     ]*
  1315. " flag-cleared] 8))
  1316.  
  1317. (put (quote include) (quote texinfo-format) (quote texinfo-format-noop))
  1318.  
  1319. (put (quote bye) (quote texinfo-format) (quote texinfo-discard-line))
  1320.  
  1321. (put (quote c) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1322.  
  1323. (put (quote comment) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1324.  
  1325. (put (quote contents) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1326.  
  1327. (put (quote finalout) (quote texinfo-format) (quote texinfo-discard-line))
  1328.  
  1329. (put (quote group) (quote texinfo-end) (quote texinfo-discard-line-with-args))
  1330.  
  1331. (put (quote group) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1332.  
  1333. (put (quote headings) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1334.  
  1335. (put (quote hsize) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1336.  
  1337. (put (quote itemindent) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1338.  
  1339. (put (quote lispnarrowing) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1340.  
  1341. (put (quote need) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1342.  
  1343. (put (quote nopara) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1344.  
  1345. (put (quote page) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1346.  
  1347. (put (quote parindent) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1348.  
  1349. (put (quote setchapternewpage) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1350.  
  1351. (put (quote setq) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1352.  
  1353. (put (quote settitle) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1354.  
  1355. (put (quote setx) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1356.  
  1357. (put (quote shortcontents) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1358.  
  1359. (put (quote smallbook) (quote texinfo-format) (quote texinfo-discard-line))
  1360.  
  1361. (put (quote summarycontents) (quote texinfo-format) (quote texinfo-discard-line-with-args))
  1362.  
  1363. (defun texinfo-unsupported nil (byte-code "ÂÃÄ    \"\"‡" [texinfo-command-start texinfo-command-end error "%s is not handled by texinfo" buffer-substring] 5))
  1364.  
  1365. (defun batch-texinfo-format nil "\
  1366. Runs  texinfo-format-buffer  on the files remaining on the command line.
  1367. Must be used only with -batch, and kills emacs on completion.
  1368. Each file will be processed even if an error occurred previously.
  1369. For example, invoke
  1370.   \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." (byte-code "?…ÈÌ!ˆÂÄÄÍÍÎÄÄ
  1371.      …mÏ @!‰    ˆÐ    !?ƒFÑÒ    \"ˆÓ A‰ ‚iÔ    !ƒ\\ÕÖ    ! A\"‰ ‚i    
  1372. B
  1373.  A‰ ˆ‚ˆ
  1374. …‡
  1375. @    
  1376. A‰
  1377. ˆ×Øُˆ‚nˆÚ!+-‡" [noninteractive version-control t auto-save-default nil find-file-run-dired kept-old-versions kept-new-versions error file files command-line-args-left "batch-texinfo-format may only be used -batch." 259259 0 expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p nconc directory-files err (byte-code "…Ãp!ˆÄ    !ˆÅp!ˆÆÂ!ˆÇ ˆÈÉ    \"ˆÊÂ!ˆË …-ÈÌÀ \"ˆÍ ‡" [buffer-file-name file nil kill-buffer find-file buffer-disable-undo set-buffer-modified-p texinfo-mode message "texinfo formatting %s..." texinfo-format-buffer buffer-modified-p "Saving modified %s" save-buffer] 12) ((error (byte-code "ÄÅÆ!\"ˆÄÇ!ˆÈ``É\\d^\"ÊËÌ    
  1378. #‰…7    ÊÍÊ!OΠ   ÏÊ!ÐOQ
  1379. T‰ˆ‚ˆÄÑ    \"*ˆÒ‰‡" [err s tem error message ">> Error: %s" prin1-to-string ">>  point at" buffer-substring 100 0 string-match "
  1380. +" match-beginning "
  1381. >>  " match-end nil ">>  %s" 1] 13))) kill-emacs] 11))
  1382.  
  1383. (provide (quote texinfmt))
  1384.