gnu1987/emacs18.41/lisp/texinfmt.elc

(defvar texinfo-format-syntax-table nil)

(defvar texinfo-vindex)

(defvar texinfo-findex)

(defvar texinfo-cindex)

(defvar texinfo-pindex)

(defvar texinfo-tindex)

(defvar texinfo-kindex)

(defvar texinfo-last-node)

(defvar texinfo-node-names)

(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))

(defun texinfo-format-buffer (&optional notagify) "\
Process the current buffer as texinfo code, into an Info file.
The Info file output is generated in a buffer
visiting the Info file names specified in the @setfilename command.

Non-nil argument (prefix, if interactive) means don't make tag table
and don't split the file if large.  You can use Info-tagify and
Info-split to do these manually." (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))

(defun texinfo-format-buffer-1 nil (byte-code "ÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔp

	ŠebˆØÙ!ˆ`‰ˆÚ ‰)ˆÛ!ˆÜ ˆÝ!ˆÞ ˆß!ˆebˆØÙ!ˆà ˆáe`\"ˆdbˆâãÔÕ#…xá`d\"ˆebˆØäÔÕ#…‹åæ!ˆ‚|ˆebˆØçÔÕ#…žåæ!ˆ‚�ˆebˆØèÔÕ#…-
`éZfê=…ÊŠëì!ˆ`íî!ˆïð`Z\"ðU))ƒÑÔ‚)
ñò!ƒðgóUƒæá`S`T\"‚íôì!ˆëð!‚)
`S‰ˆõg!öUƒ
÷ð!‚
ëð!ˆ`‰ˆøù
T\"!‰ˆúNƒ&
û!‚(
ü )ˆ‚¢ˆ…A
é@8bˆýþ@@\"ˆebˆØîÔÕ#…X
ôì!ˆëð!ˆ‚E
ˆebˆÿ	
&.‡" [texinfo-format-filename texinfo-example-start texinfo-command-start texinfo-command-end texinfo-command-name texinfo-last-node texinfo-vindex texinfo-findex texinfo-cindex texinfo-pindex texinfo-tindex texinfo-kindex texinfo-stack texinfo-node-names outfile fill-column input-buffer input-directory default-directory texinfo-format-syntax-table nil t opoint cmd search-forward "@setfilename" texinfo-parse-line-arg find-file texinfo-mode set-syntax-table erase-buffer insert-buffer-substring beginning-of-line delete-region search-backward "@bye" "``" replace-match "\"" "''" "@" 2 17 forward-char -1 skip-chars-backward "" logand 1 looking-at "[@{}'` *]" 42 delete-char char-syntax 119 forward-word intern buffer-substring texinfo-format funcall texinfo-unsupported error "Unterminated @%s" list] 43))

(put (quote begin) (quote texinfo-format) (quote texinfo-format-begin))

(defun texinfo-format-begin nil (byte-code "ÀÁ!‡" [texinfo-format-begin-end texinfo-format] 2))

(put (quote end) (quote texinfo-format) (quote texinfo-format-end))

(defun texinfo-format-end nil (byte-code "ÀÁ!‡" [texinfo-format-begin-end texinfo-end] 2))

(defun texinfo-format-begin-end (prop) (byte-code "ÃÄ !‰ˆ
N‰ˆ	ƒÅ	!‚Æ ‡" [texinfo-command-name cmd prop intern texinfo-parse-line-arg funcall texinfo-unsupported] 5))

(defun texinfo-parse-line-arg nil (byte-code "bˆ`ÃÄ!ƒÅÄ!ˆ`‰ˆÆ ˆ`T‰‚9ÃÇ!ƒ6`T‰ˆÈÉ!ˆ`‰ˆÊË!‚9ÌÍ!ˆÎ	`\"l…EÊÉ!ˆ)‡" [texinfo-command-end start t looking-at " " skip-chars-forward end-of-line "{" forward-list 1 forward-char -1 error "Invalid texinfo command arg format" buffer-substring] 11))

(defun texinfo-parse-arg-discard nil (byte-code "À Á ˆ‡" [texinfo-parse-line-arg texinfo-discard-command] 4))

(defun texinfo-discard-command nil (byte-code "Â	\"‡" [texinfo-command-start texinfo-command-end delete-region] 3))

(defun texinfo-format-parse-line-args nil (byte-code "`SÆÆÆÆÇÈ!ˆl?…N`‰ˆÉÊ!ˆ`‰ˆn…(	S‰ˆËÌ!ˆÍÈ!ˆ`‰ˆ
V…?Î
\"B‰ˆ	bˆÇÈ!ˆ‚ˆl…VËÏ!ˆ`‰ˆÐ!-‡" [start next beg end args texinfo-command-end nil skip-chars-forward " " re-search-forward "[
,]" forward-char -1 skip-chars-backward buffer-substring 1 nreverse] 9))

(defun texinfo-format-parse-args nil (byte-code "`SÇÇÇÇÈÉ!ˆÊhË\"…`ÌÍ!ˆ`‰ˆÎÏ!ˆ`‰ˆÐÑ!ˆÒÍ!ˆ`‰ˆ
W…J
bˆÈÓÅ#…JÔÕ!ˆ‚;ˆ
V…UÖ
\"B‰ˆ	bˆ‚ˆl…hÐ×!ˆ`‰ˆØ!-‡" [start next beg end args t texinfo-command-end nil search-forward "{" /= 125 skip-chars-forward " 	
" re-search-forward "[},]" forward-char -1 skip-chars-backward "
" replace-match " " buffer-substring 1 nreverse] 12))

(put (quote setfilename) (quote texinfo-format) (quote texinfo-format-setfilename))

(defun texinfo-format-setfilename nil (byte-code "à Ä!‰ˆÅÆ	ÇÈ
!ƒÉÄÈ
!!P‚\"ÊË
!PÌ%)‡" [arg texinfo-format-filename input-buffer texinfo-parse-arg-discard file-name-nondirectory insert "Info file " ", produced by texinfo-format-buffer   -*-Text-*-
from " buffer-file-name "file " "buffer " buffer-name 10] 12))

(put (quote node) (quote texinfo-format) (quote texinfo-format-node))

(defun texinfo-format-node nil (byte-code "É Ê8Ë8Ì8Í8Î ˆ	‰ˆÏ	!Ð\"ƒ/ÑÒ	\"‚7B‰)ˆn†?ÓcˆÔÕÖ	$ˆ…PÔ×\"ˆ…YÔØ\"ˆ
…bÔÙ
\"ˆÓc-‡" [args name next prev up texinfo-last-node tem texinfo-node-names texinfo-format-filename texinfo-format-parse-line-args 0 1 2 3 texinfo-discard-command downcase assoc error "Duplicate node name: %s" 10 insert "
File: " "  Node: " ", Prev: " ", Up: " ", Next: "] 11))

(put (quote menu) (quote texinfo-format) (quote texinfo-format-menu))

(defun texinfo-format-menu nil (byte-code "À ˆÁc‡" [texinfo-discard-line "* Menu:

"] 2))

(put (quote menu) (quote texinfo-end) (quote texinfo-discard-command))

(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))

(put (quote xref) (quote texinfo-format) (quote texinfo-format-xref))

(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))

(put (quote pxref) (quote texinfo-format) (quote texinfo-format-pxref))

(defun texinfo-format-pxref nil (byte-code "À ˆŠÁÂ!ˆÃÄ!)†Åc‡" [texinfo-format-xref forward-char -2 looking-at "::" "."] 4))

(put (quote inforef) (quote texinfo-format) (quote texinfo-format-inforef))

(defun texinfo-format-inforef nil (byte-code "Á  ˆÃÄÅ8ÆÇ8È@&)‡" [args texinfo-format-parse-args texinfo-discard-command insert "*Note " 1 ": (" 2 ")"] 9))

(put (quote chapheading) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote ichapter) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote chapter) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote iappendix) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote appendix) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote iunnumbered) (quote texinfo-format) (quote texinfo-format-chapter))

(put (quote unnumbered) (quote texinfo-format) (quote texinfo-format-chapter))

(defun texinfo-format-chapter nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 42] 2))

(put (quote heading) (quote texinfo-format) (quote texinfo-format-section))

(put (quote isection) (quote texinfo-format) (quote texinfo-format-section))

(put (quote section) (quote texinfo-format) (quote texinfo-format-section))

(put (quote iappendixsection) (quote texinfo-format) (quote texinfo-format-section))

(put (quote appendixsection) (quote texinfo-format) (quote texinfo-format-section))

(put (quote iappendixsec) (quote texinfo-format) (quote texinfo-format-section))

(put (quote appendixsec) (quote texinfo-format) (quote texinfo-format-section))

(put (quote iunnumberedsec) (quote texinfo-format) (quote texinfo-format-section))

(put (quote unnumberedsec) (quote texinfo-format) (quote texinfo-format-section))

(defun texinfo-format-section nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 61] 2))

(put (quote subheading) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote isubsection) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote subsection) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote iappendixsubsec) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote appendixsubsec) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote iunnumberedsubsec) (quote texinfo-format) (quote texinfo-format-subsection))

(put (quote unnumberedsubsec) (quote texinfo-format) (quote texinfo-format-subsection))

(defun texinfo-format-subsection nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 45] 2))

(put (quote subsubheading) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote isubsubsection) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote subsubsection) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote iappendixsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote appendixsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote iunnumberedsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))

(put (quote unnumberedsubsubsec) (quote texinfo-format) (quote texinfo-format-subsubsection))

(defun texinfo-format-subsubsection nil (byte-code "ÀÁ!‡" [texinfo-format-chapter-1 46] 2))

(defun texinfo-format-chapter-1 (belowchar) (byte-code " ÃÄÄÅ	Ä&ˆÆÇ!)‡" [arg belowchar texinfo-parse-arg-discard insert 10 "@SectionPAD " forward-line -2] 8))

(put (quote SectionPAD) (quote texinfo-format) (quote texinfo-format-sectionpad))

(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))

(put (quote \.) (quote texinfo-format) (quote texinfo-format-\.))

(defun texinfo-format-\. nil (byte-code "À ˆÁc‡" [texinfo-discard-command "."] 2))

(put (quote :) (quote texinfo-format) (quote texinfo-format-:))

(defun texinfo-format-: nil (byte-code "À ‡" [texinfo-discard-command] 2))

(put (quote center) (quote texinfo-format) (quote texinfo-format-center))

(defun texinfo-format-center nil (byte-code " ˆÁà )‡" [indent-tabs-mode nil texinfo-discard-command center-line] 3))

(defun texinfo-push-stack (check arg) (byte-code "	
EB‰‡" [texinfo-stack check arg texinfo-command-start] 3))

(defun texinfo-pop-stack (check) (byte-code "?…	ÂÃ	\"ˆ@@	=?…ÂÄ	@@#ˆ@AA‰ˆ‡" [texinfo-stack check error "Unmatched @end %s" "@end %s matches @%s"] 5))

(put (quote itemize) (quote texinfo-format) (quote texinfo-itemize))

(defun texinfo-itemize nil (byte-code "ÁÂà \"ˆÄZ‰‡" [fill-column texinfo-push-stack itemize texinfo-parse-arg-discard 5] 4))

(put (quote itemize) (quote texinfo-end) (quote texinfo-end-itemize))

(defun texinfo-end-itemize nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ	8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack itemize texinfo-do-itemize 1] 5))

(put (quote enumerate) (quote texinfo-format) (quote texinfo-enumerate))

(defun texinfo-enumerate nil (byte-code "ÁÂÃ\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack enumerate 0 5 texinfo-discard-line] 3))

(put (quote enumerate) (quote texinfo-end) (quote texinfo-end-enumerate))

(defun texinfo-end-enumerate nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ	8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack enumerate texinfo-do-itemize 1] 5))

(put (quote table) (quote texinfo-format) (quote texinfo-table))

(defun texinfo-table nil (byte-code "ÁÂà \"ˆÄZ‰‡" [fill-column texinfo-push-stack table texinfo-parse-arg-discard 5] 4))

(put (quote ftable) (quote texinfo-format) (quote texinfo-ftable))

(defun texinfo-ftable nil (byte-code "ÁÂÃ\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack table "@code" 5 texinfo-discard-line] 3))

(put (quote description) (quote texinfo-format) (quote texinfo-description))

(defun texinfo-description nil (byte-code "ÁÂÃ\"ˆÄZ‰ˆÅ ‡" [fill-column texinfo-push-stack table "@asis" 5 texinfo-discard-line] 3))

(put (quote table) (quote texinfo-end) (quote texinfo-end-table))

(put (quote ftable) (quote texinfo-end) (quote texinfo-end-table))

(put (quote description) (quote texinfo-end) (quote texinfo-end-table))

(defun texinfo-end-table nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ	8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack table texinfo-do-itemize 1] 5))

(defun texinfo-do-itemize (from) (byte-code "ŠÁÂ!ˆ`Y…(gÃUƒ ŠÄÅ!ˆÆ ˆÄÇ!)‚$ŠÈc)ˆ‚
)‡" [from forward-line -1 8 delete-char 1 end-of-line 6 "     "] 6))

(put (quote item) (quote texinfo-format) (quote texinfo-item))

(put (quote itemx) (quote texinfo-format) (quote texinfo-item))

(defun texinfo-item nil (byte-code "Á@@ÂN!‡" [texinfo-stack funcall texinfo-item] 3))

(put (quote itemize) (quote texinfo-item) (quote texinfo-itemize-item))

(defun texinfo-itemize-item nil (byte-code "Á ˆÂÃÄ@8Å#ˆÆÇ!‡" [texinfo-stack texinfo-discard-line insert "   " 1 " 
" forward-line -1] 5))

(put (quote enumerate) (quote texinfo-item) (quote texinfo-enumerate-item))

(defun texinfo-enumerate-item nil (byte-code " ˆ	@A@TÃ	@A\"ˆÄÅÆÇ\"È#)ˆÉÊ!‡" [next texinfo-stack texinfo-discard-line setcar insert 8 format "%3d. " 10 forward-line -1] 7))

(put (quote table) (quote texinfo-item) (quote texinfo-table-item))

(defun texinfo-table-item nil (byte-code "Ã 
@A@ÄÅ	ÆÇ%*ˆÈÉ!‡" [arg itemfont texinfo-stack texinfo-parse-arg-discard insert 8 123 "}
     
" forward-line -2] 7))

(put (quote ifinfo) (quote texinfo-format) (quote texinfo-discard-command))

(put (quote ifinfo) (quote texinfo-end) (quote texinfo-discard-command))

(put (quote iftex) (quote texinfo-format) (quote texinfo-format-iftex))

(defun texinfo-format-iftex nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end iftex
"] 4))

(put (quote tex) (quote texinfo-format) (quote texinfo-format-tex))

(defun texinfo-format-tex nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region re-search-forward "@end tex
"] 4))

(put (quote titlepage) (quote texinfo-format) (quote texinfo-format-titlepage))

(defun texinfo-format-titlepage nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region search-forward "@end titlepage
"] 4))

(put (quote endtitlepage) (quote texinfo-format) (quote texinfo-discard-line))

(put (quote ignore) (quote texinfo-format) (quote texinfo-format-ignore))

(defun texinfo-format-ignore nil (byte-code "ÁÂÃ!ˆ`\"‡" [texinfo-command-start delete-region search-forward "@end ignore
"] 4))

(put (quote endignore) (quote texinfo-format) (quote texinfo-discard-line))

(put (quote var) (quote texinfo-format) (quote texinfo-format-var))

(defun texinfo-format-var nil (byte-code "ÁÂ !cˆb‡" [texinfo-command-start upcase texinfo-parse-arg-discard] 3))

(put (quote asis) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote b) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote t) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote i) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote r) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote key) (quote texinfo-format) (quote texinfo-format-noop))

(put (quote w) (quote texinfo-format) (quote texinfo-format-noop))

(defun texinfo-format-noop nil (byte-code "Á cˆb‡" [texinfo-command-start texinfo-parse-arg-discard] 2))

(put (quote code) (quote texinfo-format) (quote texinfo-format-code))

(put (quote samp) (quote texinfo-format) (quote texinfo-format-code))

(put (quote file) (quote texinfo-format) (quote texinfo-format-code))

(put (quote kbd) (quote texinfo-format) (quote texinfo-format-code))

(put (quote cite) (quote texinfo-format) (quote texinfo-format-code))

(defun texinfo-format-code nil (byte-code "ÁÂÃ Ä#ˆb‡" [texinfo-command-start insert "`" texinfo-parse-arg-discard "'"] 5))

(put (quote emph) (quote texinfo-format) (quote texinfo-format-emph))

(put (quote strong) (quote texinfo-format) (quote texinfo-format-emph))

(defun texinfo-format-emph nil (byte-code "ÀÁÂ Á#‡" [insert "*" texinfo-parse-arg-discard] 5))

(put (quote defn) (quote texinfo-format) (quote texinfo-format-defn))

(put (quote dfn) (quote texinfo-format) (quote texinfo-format-defn))

(defun texinfo-format-defn nil (byte-code "ÁÂÃ Â#ˆb‡" [texinfo-command-start insert "\"" texinfo-parse-arg-discard] 5))

(put (quote bullet) (quote texinfo-format) (quote texinfo-format-bullet))

(defun texinfo-format-bullet nil (byte-code "À ˆÁc‡" [texinfo-discard-command "*"] 2))

(put (quote smallexample) (quote texinfo-format) (quote texinfo-format-example))

(put (quote example) (quote texinfo-format) (quote texinfo-format-example))

(put (quote quotation) (quote texinfo-format) (quote texinfo-format-example))

(put (quote lisp) (quote texinfo-format) (quote texinfo-format-example))

(put (quote display) (quote texinfo-format) (quote texinfo-format-example))

(put (quote format) (quote texinfo-format) (quote texinfo-format-example))

(put (quote flushleft) (quote texinfo-format) (quote texinfo-format-example))

(defun texinfo-format-example nil (byte-code "ÂÃÀ\"ˆ	ÄZ‰ˆÅ ‡" [nil fill-column texinfo-push-stack example 5 texinfo-discard-line] 3))

(put (quote smallexample) (quote texinfo-end) (quote texinfo-end-example))

(put (quote example) (quote texinfo-end) (quote texinfo-end-example))

(put (quote quotation) (quote texinfo-end) (quote texinfo-end-example))

(put (quote lisp) (quote texinfo-end) (quote texinfo-end-example))

(put (quote display) (quote texinfo-end) (quote texinfo-end-example))

(put (quote format) (quote texinfo-end) (quote texinfo-end-example))

(put (quote flushleft) (quote texinfo-end) (quote texinfo-end-example))

(defun texinfo-end-example nil (byte-code "Â\\‰ˆÃ ˆÄÅ!ÆÇ	8!)‡" [fill-column stacktop 5 texinfo-discard-command texinfo-pop-stack example texinfo-do-itemize 1] 5))

(put (quote exdent) (quote texinfo-format) (quote texinfo-format-exdent))

(defun texinfo-format-exdent nil (byte-code "À ˆÁ`ÂÃ!ˆ`\"ˆÄcˆŠÅ ˆÆc)‡" [texinfo-discard-command delete-region skip-chars-forward " " 8 end-of-line "
     "] 5))

(put (quote ctrl) (quote texinfo-format) (quote texinfo-format-ctrl))

(defun texinfo-format-ctrl nil (byte-code "Á ÂÃÄH\"c)‡" [str texinfo-parse-arg-discard logand 31 0] 5))

(put (quote TeX) (quote texinfo-format) (quote texinfo-format-TeX))

(defun texinfo-format-TeX nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "TeX"] 2))

(put (quote copyright) (quote texinfo-format) (quote texinfo-format-copyright))

(defun texinfo-format-copyright nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "(C)"] 2))

(put (quote minus) (quote texinfo-format) (quote texinfo-format-minus))

(defun texinfo-format-minus nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "-"] 2))

(put (quote dots) (quote texinfo-format) (quote texinfo-format-dots))

(defun texinfo-format-dots nil (byte-code "À ˆÁc‡" [texinfo-parse-arg-discard "..."] 2))

(put (quote refill) (quote texinfo-format) (quote texinfo-format-refill))

(defun texinfo-format-refill nil (byte-code "Á ˆÂÀ!‡" [nil texinfo-discard-command fill-paragraph] 3))

(put (quote vindex) (quote texinfo-format) (quote texinfo-format-vindex))

(defun texinfo-format-vindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-vindex] 2))

(put (quote cindex) (quote texinfo-format) (quote texinfo-format-cindex))

(defun texinfo-format-cindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-cindex] 2))

(put (quote findex) (quote texinfo-format) (quote texinfo-format-findex))

(defun texinfo-format-findex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-findex] 2))

(put (quote pindex) (quote texinfo-format) (quote texinfo-format-pindex))

(defun texinfo-format-pindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-pindex] 2))

(put (quote tindex) (quote texinfo-format) (quote texinfo-format-tindex))

(defun texinfo-format-tindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-tindex] 2))

(put (quote kindex) (quote texinfo-format) (quote texinfo-format-kindex))

(defun texinfo-format-kindex nil (byte-code "ÀÁ!‡" [texinfo-index texinfo-kindex] 2))

(defun texinfo-index (indexvar) (byte-code "Â 	DJBL‡" [indexvar texinfo-last-node texinfo-parse-arg-discard] 4))

(defconst texinfo-indexvar-alist (quote (("cp" . texinfo-cindex) ("fn" . texinfo-findex) ("vr" . texinfo-vindex) ("tp" . texinfo-tindex) ("pg" . texinfo-pindex) ("ky" . texinfo-kindex))))

(put (quote printindex) (quote texinfo-format) (quote texinfo-format-printindex))

(defun texinfo-format-printindex nil (byte-code "ÄÅ 	\"AJÃÆcˆ`‰ˆÇÃ\"ˆÈ
`ÉÊ$*‡" [indexelts texinfo-indexvar-alist opoint nil assoc texinfo-parse-arg-discard "
* Menu:

" texinfo-print-index shell-command-on-region "sort -f" 1] 8))

(defun texinfo-print-index (file indexelts) (byte-code "…:@@;ƒ'ÂÃ@@Ä	ƒÅ	ÆQ‚ÇÈ@8É&‚1ÊÈ@8Ë@8\"ˆA‰ˆ‚‡" [indexelts file insert "* " ": " "(" ")" "" 1 ".
" texinfo-print-index 2] 8))

(put (quote include) (quote texinfo-format) (quote texinfo-format-include))

(defun texinfo-format-include nil (byte-code "Å 
ÆŠÇÈÉP!ƒÉP‚3ÈÊP!ƒ%ÊP‚3È!ƒ/‚3ËÌ\"!ˆÍ )‰ˆÎÏ@Ð8#ˆÎÑ@Ò8#ˆÎÓ@Ô8#ˆÎÕ@Ö8#ˆÎ×@Ø8#ˆÎÙ@Ú8#+‡" [filename default-directory input-directory subindex t texinfo-parse-arg-discard nil find-file file-readable-p ".texinfo" ".tex" error "@include'd file %s not found" texinfo-format-buffer-1 texinfo-subindex texinfo-vindex 1 texinfo-findex 2 texinfo-cindex 3 texinfo-pindex 4 texinfo-tindex 5 texinfo-kindex 6] 17))

(defun texinfo-subindex (indexvar file content) (byte-code "Ã	
EJBL‡" [indexvar file content recurse] 4))

(put (quote page) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote c) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote comment) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote setchapternewpage) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote contents) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote summarycontents) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote nopara) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote noindent) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote setx) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote setq) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote settitle) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote defindex) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote synindex) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote hsize) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote parindent) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote lispnarrowing) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote itemindent) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote headings) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote group) (quote texinfo-format) (quote texinfo-discard-line-with-args))

(put (quote group) (quote texinfo-end) (quote texinfo-discard-line-with-args))

(put (quote bye) (quote texinfo-format) (quote texinfo-discard-line))

(put (quote smallbook) (quote texinfo-format) (quote texinfo-discard-line))

(defun texinfo-discard-line-with-args nil (byte-code "bˆÁ`ÂÃ!ˆ`\"‡" [texinfo-command-start delete-region forward-line 1] 4))

(defun texinfo-unsupported nil (byte-code "ÂÃÄ	\"\"‡" [texinfo-command-start texinfo-command-end error "%s is not handled by texinfo" buffer-substring] 5))

(defun batch-texinfo-format nil "\
Runs  texinfo-format-buffer  on the files remaining on the command line.
Must be used only with -batch, and kills emacs on completion.
Each file will be processed even if an error occurred previously.
For example, invoke
  \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." (byte-code "?…ÈÌ!ˆÂÄÄÍÍÎÄÄ
	…mÏ@!‰	ˆÐ	!?ƒFÑÒ	\"ˆÓA‰‚iÔ	!ƒ\\ÕÖ	!A\"‰‚i	
B
A‰ˆ‚ˆ
…‡
@	
A‰
ˆ×ØÙ�ˆ‚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-flush-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^\"ÉÊË	
#‰…7	ÉÌÉ!OÍ	ÎÉ!ÏOQ
T‰ˆ‚ˆÃÐ	\"*‡" [err s tem message ">> Error: %s" prin1-to-string ">>  point at" buffer-substring 100 0 string-match "
+" match-beginning "
>>  " match-end nil ">>  %s"] 13)) (setq (byte-code "ˆÁ‡" [error 1] 1))) kill-emacs] 11))