4.3BSD/usr/contrib/emacs/lisp/texinfo.elc


(defvar texinfo-mode-syntax-table nil)

(defvar texinfo-format-syntax-table nil)

(defvar texinfo-vindex)

(defvar texinfo-findex)

(defvar texinfo-cindex)

(defvar texinfo-pindex)

(defvar texinfo-tindex)

(defvar texinfo-kindex)

(let ((st (syntax-table))) (unwind-protect (progn (setq texinfo-mode-syntax-table (make-syntax-table)) (set-syntax-table texinfo-mode-syntax-table) (modify-syntax-entry 34 " ") (modify-syntax-entry 92 " ") (modify-syntax-entry 64 "\\") (modify-syntax-entry 17 "\\") (modify-syntax-entry 91 "(]") (modify-syntax-entry 93 ")[") (modify-syntax-entry 123 "(}") (modify-syntax-entry 125 "){") (modify-syntax-entry 39 "w") (setq texinfo-format-syntax-table (copy-sequence texinfo-mode-syntax-table)) (set-syntax-table texinfo-format-syntax-table) (modify-syntax-entry 39 ".") (modify-syntax-entry 91 ".") (modify-syntax-entry 93 ".") (modify-syntax-entry 40 ".") (modify-syntax-entry 41 ".")) (set-syntax-table st)))

(defun texinfo-mode nil "\
Major mode for editing texinfo files.
These are files that are input for TEX and also to be turned
into Info files by M-x texinfo-format-buffer.
These files must be written in a very restricted and
modified version of TEX input format.

As for editing commands, like text-mode except for syntax table,
which is set up so expression commands skip texinfo bracket groups." (interactive) (byte-code "ÈˆÉ ˆÊ‰ˆË‰ˆÌ
!ˆÍÃ!ˆ‰ˆÍÅ!ˆÎ
P‰ˆÍÆ!ˆÎP‰ˆÍÇ!ˆÏ‰ˆÐÑÒ\"‡" [mode-name major-mode texinfo-mode-syntax-table require-final-newline t paragraph-separate paragraph-start fill-column nil text-mode "Texinfo" texinfo-mode set-syntax-table make-local-variable "^\\|^@[a-z]*[ 
]\\|" 75 run-hooks text-mode-hook texinfo-mode-hook] 9))

(defun texinfo-format-buffer nil "\
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." (interactive) (byte-code "шÑÑÑÑÑÑÑÑÑÑÑÑÑÑp

	ŠebˆÕÖ!ˆ`‰ˆ× ‰
)ˆØ
!ˆÙÚ!ˆÛ ˆÜ!ˆÝ ˆÞ!ˆebˆÕÖ!ˆß ˆàe`\"ˆÕá#…yâã!ˆ‚hˆebˆÕä#…Žâã!ˆ‚}ˆebˆÕå#… `æZfç=…¼Šèé!ˆ`êë!ˆìí`Z\"íU))ƒÄ‚îï!ƒãgðUƒÙà`S`T\"‚àñé!ˆèí!‚`S‰ˆòg!óUƒöôí!‚ùèí!ˆ`‰ˆõö
T\"!‰ˆ÷Nƒø!‚ù )ˆ‚’ˆ…4æ@8bˆúû@@\"ˆebˆÕë#…Mñé!ˆèí!ˆ‚8ˆ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 outfile fill-column input-buffer texinfo-format-syntax-table nil t opoint cmd search-forward "@setfilename" texinfo-parse-line-arg find-file message "Formatting Info file..." texinfo-mode set-syntax-table erase-buffer insert-buffer-substring beginning-of-line delete-region "``" 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" "Formatting Info file...done.  Now save it."] 36))

(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‰‚=ÃÇ!ƒ6`T‰ˆÈÉ!ˆ`‰ˆÊË!‚=
…=ÌÍ!ˆÎ	`\"lƒLÊÉ!‚Mψ)‡" [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 nil] 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?…V`‰ˆÉÊ!ˆ`‰ˆnƒ+	S‰‚,ƈËÌ!ˆÍÈ!ˆ`‰ˆ
VƒFÎ
\"‚GÆB‰ˆ	bˆÇÈ!ˆ‚ˆlƒaËÏ!‚bƈ`‰ˆÐ!-‡" [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Ë\"…dÌÍ!ˆ`‰ˆÎÏ!ˆ`‰ˆÐÑ!ˆÒÍ!ˆ`‰ˆ
W…J
bˆÈÓ
#…JÔÕ!ˆ‚;ˆ
VƒXÖ
\"‚YÇB‰ˆ	bˆ‚ˆlƒoÐ×!‚pLj`‰ˆØ!-‡" [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Ì ˆ	‰ˆn† ÍcˆÎÏÐ	$ˆƒ4ÎÑ\"‚5ÒˆƒAÎÓ\"‚BÒˆ
ƒNÎÔ
\"‚OÒˆÍc-‡" [args name next prev up texinfo-last-node texinfo-format-filename texinfo-format-parse-line-args 0 1 2 3 texinfo-discard-command 10 insert "
File: " "  Node: " ", Prev: " nil ", Up: " ", Next: "] 8))

(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 error "Extraneous text at end of command line." "Extraneous text at beginning of command line." delete-region forward-line 1] 6))

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

(defun texinfo-format-xref nil (byte-code " à ˆÄcˆÅ8†Æ8	†Ç8?ƒ&È@É\"‚EÈ	†-@Ê\"ˆÇ8ƒ@ÈËÇ8Ì#‚A͈@c))‡" [args fname texinfo-format-parse-args texinfo-discard-command "*Note " 1 2 3 insert "::" ": " "(" ")" nil] 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 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 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 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 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))

(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" nil "@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 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))

(put (quote heading) (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 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))

(defun texinfo-format-code nil (byte-code "ÁÂÃ Ä#ˆb‡" [texinfo-command-start 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 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ˆ`‰ˆ…*ÇÈ@@ÉÊ@8Ë%ˆA‰ˆ‚ˆÌ
`ÍÊ$*‡" [indexelts texinfo-indexvar-alist opoint assoc texinfo-parse-arg-discard nil "
* Menu:

" insert "* " ": " 1 ".
" shell-command-on-region "sort -f"] 9))

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

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