;ELC ;;; compiled by kwzh@hill.gnu.ai.mit.edu on Fri Jun 16 04:30:40 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/texinfmt.el ;;; emacs version 19.28.94.4. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`texinfmt.el' was compiled for Emacs 19.29 or later")) (byte-code "! B!!! B B B B B B B B B B B B B B B B B B B B B B B B B ###########ȇ" [boundp texinfmt-version "2.34 of 7 June 1995" current-load-list require texinfo texnfo-upd texinfo-format-syntax-table nil texinfo-vindex texinfo-findex texinfo-cindex texinfo-pindex texinfo-tindex texinfo-kindex texinfo-last-node texinfo-node-names texinfo-enclosure-list texinfo-alias-list texinfo-command-start texinfo-command-end texinfo-command-name texinfo-defun-type texinfo-last-node-pos texinfo-stack texinfo-short-index-cmds-alist texinfo-short-index-format-cmds-alist texinfo-format-filename texinfo-footnote-number texinfo-start-of-header texinfo-end-of-header texinfo-raisesections-alist texinfo-lowersections-alist make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "." 93 40 41 123 "(}" 125 "){" 39] 4) #@345 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. (defalias 'texinfo-format-buffer #[(&optional notagify) " ! \f- Vlj! V-ʉ! t7̂8P!)" ["Formatting Info file..." lastmessage message texinfo-format-buffer-1 notagify buffer-size 30000 "Making tags table for Info file..." Info-tagify 100000 "Splitting Info file..." Info-split "done. Now save it." "done."] 3 (#$ . 1441) "P"]) #@65 *Name of the temporary buffer used by \[texinfo-format-region]. (defvar texinfo-region-buffer-name "*Info Region*" (#$ . -2152)) #@252 Convert the current region of the Texinfo file to Info format. This lets you see what that part of the file will look like in Info. The command is bound to \[texinfo-format-region]. The text that is converted to Info is stored in a temporary buffer. (defalias 'texinfo-format-region #[(region-beginning region-end) "!‰‰ plj \n \f ~eby`) \" #y` x$#y`eb #y` y` &^{\n+)!! \nc\f&],#hUceb ! 1!#\"` P5!`y`)|5\"``5!A@\\}eby`)#y`y`)|+eb eb db#=`d|hUFc=>eb@!``y`)|eby`)#`y`A BC)DEFB!!cGc)C)HIJK\f!LMEK\f!!!NQOP\f!NQQRSebT ebU!." [message "Converting region to Info format..." nil "" 0 fill-column default-directory 1 header-end header-beginning header-text input-directory input-buffer fill-column-for-info last-input-buffer texinfo-footnote-number texinfo-node-names texinfo-last-node texinfo-last-node-pos texinfo-example-start texinfo-format-filename texinfo-stack texinfo-kindex texinfo-tindex texinfo-pindex texinfo-cindex texinfo-findex texinfo-vindex texinfo-command-name texinfo-command-end texinfo-command-start 100 search-end search-forward tex-start-of-header t tex-end-of-header "@setfilename" region-beginning switch-to-buffer get-buffer-create texinfo-region-buffer-name erase-buffer insert-buffer-substring region-end 10 "\n" texinfo-mode set-syntax-table texinfo-format-syntax-table re-search-forward "^@include" texinfo-parse-line-arg filename re-search-backward "Reading included file: %s" insert-file-contents "^@setfilename" texinfo-raise-lower-sections texinfo-append-refill "^@bye" texinfo-enclosure-list texinfo-alias-list looking-at "\\\\input[ ]+texinfo" texinfo-parse-arg-discard arg " " " buffer for: `" file-name-nondirectory expand-file-name "', -*-Text-*-\n" " buffer -*-Text-*-\n" "produced by `texinfo-format-region'\n" "from a region in: " buffer-file-name "`" file-name-sans-versions "'" "buffer `" buffer-name "\nusing `texinfmt.el' version " texinfmt-version ".\n\n" texinfo-format-scan "Done."] 23 (#$ . 2288) "r"]) (defalias 'texinfo-format-buffer-1 #[nil "\np  \n \f eb#S!` )! $! ! !\"eb#`\f P,!`y`)|,\"``,!A@\\}eby`)#y`y`)|+|eb eb eb!ye`|db#`d|hUc eb \f." [nil 0 fill-column default-directory input-directory input-buffer fill-column-for-info outfile last-input-buffer texinfo-footnote-number texinfo-node-names texinfo-stack texinfo-kindex texinfo-tindex texinfo-pindex texinfo-cindex texinfo-findex texinfo-vindex texinfo-last-node-pos texinfo-last-node texinfo-command-name texinfo-command-end texinfo-command-start texinfo-example-start texinfo-format-filename texinfo-enclosure-list texinfo-alias-list search-forward "@setfilename" t error "Texinfo file needs an `@setfilename FILENAME' line." texinfo-parse-line-arg find-file texinfo-mode set-syntax-table texinfo-format-syntax-table erase-buffer insert-buffer-substring message "Converting %s to Info format..." buffer-name re-search-forward "^@include" filename re-search-backward 1 "Reading included file: %s" insert-file-contents "^@setfilename" 100 texinfo-raise-lower-sections texinfo-append-refill search-backward "@bye" 10 "\n" texinfo-format-scan] 21]) (defalias 'texinfo-format-convert #[(min max) "b #!b #$!b #;ʔTʔ\\|'" [min search-forward "``" max t replace-match "\"" "''" re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" 2] 4]) #@68 Regexp specifying environments in which paragraphs are not filled. (defvar texinfo-no-refill-regexp "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|ifhtml\\|tex\\|html\\)" (#$ . 6110)) #@55 Regexp specifying @-commands found within paragraphs. (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{\\)" (#$ . 6374)) #@207 Append @refill at end of each paragraph that should be filled. Do not append @refill to paragraphs within @example and similar environments. Do not append @refill to paragraphs containing @w{TEXT} or @*. (defalias 'texinfo-append-refill #[nil "`dWy P!/\n˰!/`dW/y !M̔̕{  P#y)`dY`ъ `)#f y`x`)|֊y`)#cy*" ["^[ \n]*$" nil case-fold-search refill-blank-lines 0 looking-at "^@\\|^\\\\\\|" "\\(" texinfo-no-refill-regexp "\\|" texinfo-part-of-para-regexp "\\)" 1 environment re-search-forward "^@end " t "@w{\\|@\\*" forward-paragraph -1 " " re-search-backward "@refill\\|@bye" "@refill"] 6 (#$ . 6721)]) #@1279 Raise or lower the hierarchical level of chapters, sections, etc. This function acts according to `@raisesections' and `@lowersections' commands in the Texinfo file. For example, an `@lowersections' command is useful if you wish to include what is written as an outer or standalone Texinfo file in another Texinfo file as an inner, included file. The `@lowersections' command changes chapters to sections, sections to subsections and so on. @raisesections changes @subsection to @section, @section to @chapter, @heading to @chapheading, etc. @lowersections changes @chapter to @section, @subsection to @subsubsection, @heading to @subheading, etc. An `@raisesections' or `@lowersections' command changes only those structuring commands that follow the `@raisesections' or `@lowersections' command. An `@lowersections' command cancels an `@raisesections' command, and vice versa. Repeated use of the commands continue to raise or lower the hierarchical level a step at a time. An attempt to raise above `chapters' reproduces chapter commands; an attempt to lower below subsubsections reproduces subsubsection commands. (defalias 'texinfo-raise-lower-sections #[nil "Q#yp!) =.\nT`y`)| =C\nS`y`)|\nVt\n  Vf A SP! !c*\nUy\nW\n  W A T! !c**" [nil 0 level type re-search-forward "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\(" texinfo-section-types-regexp "\\)\\)" t read @raisesections 1 @lowersections new-level count texinfo-raisesections-alist kill-word symbol-name texinfo-lowersections-alist] 5 (#$ . 7421)]) #@241 *An alist of next higher levels for chapters, sections. etc. For example, section to chapter, subsection to section. Used by `texinfo-raise-lower-sections'. The keys specify types of section; the values correspond to the next higher types. (defvar texinfo-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))) (#$ . -9212)) #@239 *An alist of next lower levels for chapters, sections. etc. For example, chapter to section, section to subsection. Used by `texinfo-raise-lower-sections'. The keys specify types of section; the values correspond to the next lower types. (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))) (#$ . -10025)) (defalias 'texinfo-format-scan #[nil "ed\"eb#!8gU.`S`T|gUc!u`S\fgzUIvLu`\fT{\"nAZ!*!\"A@@ A@A@\fbN ))@8b@@\"" [texinfo-format-convert search-forward "@" nil t looking-at "[@{}^'` *\"?!]" 42 10 delete-char -1 1 texinfo-command-start 119 texinfo-command-end cmdname trial assoc texinfo-alias-list intern texinfo-command-name symbol-name texinfo-enclosure-list enclosure-type texinfo-parse-arg-discard texinfo-format cmd texinfo-unsupported texinfo-stack 2 error "Unterminated @%s"] 5]) (put (quote begin) (quote texinfo-format) (quote texinfo-format-begin)) (defalias 'texinfo-format-begin #[nil "!" [texinfo-format-begin-end texinfo-format] 2]) (put (quote end) (quote texinfo-format) (quote texinfo-format-end)) (defalias 'texinfo-format-end #[nil "!" [texinfo-format-begin-end texinfo-end] 2]) (defalias 'texinfo-format-begin-end #[(prop) " ! N\f  )" [intern texinfo-parse-line-arg texinfo-command-name prop cmd texinfo-unsupported] 3]) (defalias 'texinfo-parse-line-arg #[nil "b`!%w`x``|`T>!:`T!`u>! `{lHu)" [texinfo-command-end start looking-at " " nil "{" forward-list 1 -1 error "Invalid texinfo command arg format"] 2]) (defalias 'texinfo-parse-expanded-arg #[nil "b`!w``T5!1`T!`u5!  `\"\n!\n `{lSu*" [texinfo-command-end nil marker start looking-at " " "{" forward-list 1 -1 error "Invalid texinfo command arg format" make-marker texinfo-format-expand-region marker-position] 3]) (defalias 'texinfo-format-expand-region #[(start end) " }‰ ,db)" [start end nil texinfo-stack texinfo-command-name texinfo-command-end texinfo-command-start texinfo-format-scan] 4]) (defalias 'texinfo-parse-arg-discard #[nil " " [texinfo-parse-line-arg texinfo-discard-command] 2]) (defalias 'texinfo-discard-command #[nil " |" [texinfo-command-start texinfo-command-end] 2]) #@43 Discard braces following command, if any. (defalias 'texinfo-optional-braces-discard #[nil "b`!!!`! |)" [texinfo-command-end start looking-at "[ ]*\n" "{" forward-list 1 error "Invalid `texinfo-optional-braces-discard' format (need braces?)" texinfo-command-start] 2 (#$ . 12922)]) (defalias 'texinfo-format-parse-line-args #[nil "`SwlA`!`n\"\fSux` V4 \n{ B\fbwlHu` -" [nil args end beg next start " " re-search-forward "[\n,]" -1 1 texinfo-command-end] 6]) (defalias 'texinfo-format-parse-args #[nil "`S!`!`S)\")hUbw`!`ux` \nWP b\n#P!A\n VY \n{ B\fbliu` -" [nil args end beg next start search-forward "{" texinfo-format-expand-region up-list 1 125 " \n" re-search-forward "[},]" -1 "\n" t replace-match " " texinfo-command-end] 5]) (defalias 'texinfo-format-parse-defun-args #[nil "b``T “ `\"\f!\f‰) b‰ wlg!I`T!`SV`!u`{ B w0u ," [texinfo-command-end start nil make-marker marker texinfo-format-expand-region marker-position end beg args " " looking-at "{" forward-list 1 re-search-forward "[\n ]" -1] 3]) (defalias 'texinfo-discard-line #[nil "bwl! bn!`y`|" [texinfo-command-end " " nil error "Extraneous text at end of command line." texinfo-command-start "Extraneous text at beginning of command line." 1] 2]) (defalias 'texinfo-discard-line-with-args #[nil "b`y`|" [texinfo-command-start 1] 2]) (put (quote setfilename) (quote texinfo-format) (quote texinfo-format-setfilename)) (defalias 'texinfo-format-setfilename #[nil "  \" !!\f!*\f!!!Q1\f!QԱ )" [texinfo-parse-arg-discard arg message "Formatting Info file: %s" file-name-nondirectory expand-file-name texinfo-format-filename "Info file: " ", -*-Text-*-\n" "produced by `texinfo-format-buffer'\n" "from file" buffer-file-name input-buffer " `" file-name-sans-versions "'" "buffer `" buffer-name "\nusing `texinfmt.el' version " texinfmt-version ".\n\n"] 10]) (byte-code "##" [put node texinfo-format texinfo-format-node nwnode] 4) (defalias 'texinfo-format-node #[nil " @ A@ 8 8 \n \n\n\n\f\".\n\"6\nC\fB\f)\n K  T _c`-" [texinfo-format-parse-line-args args name next 2 prev 3 up texinfo-discard-command texinfo-last-node tem assoc texinfo-node-names error "Duplicate node name: %s" 0 texinfo-footnote-number "\n\nFile: " texinfo-format-filename ", Node: " ", Next: " ", Prev: " ", Up: " 10 texinfo-last-node-pos] 5]) (put (quote menu) (quote texinfo-format) (quote texinfo-format-menu)) (defalias 'texinfo-format-menu #[nil " c" [texinfo-discard-line "* Menu:\n\n"] 1]) (byte-code "###" [put menu texinfo-end texinfo-discard-command ref texinfo-format texinfo-format-xref xref] 4) (defalias 'texinfo-format-xref #[nil "  c A@ 8% 8% @DZ@ + @ȱ 8= 8ʱ @c*" [texinfo-format-parse-args args texinfo-discard-command "*Note " 2 fname 3 "::" ": " "(" ")"] 4]) (put (quote pxref) (quote texinfo-format) (quote texinfo-format-pxref)) (defalias 'texinfo-format-pxref #[nil " u!)c" [texinfo-format-xref -2 looking-at "::" "."] 2]) (put (quote inforef) (quote texinfo-format) (quote texinfo-format-inforef)) (defalias 'texinfo-format-inforef #[nil "  A@ A@ 8 @' 8 @ȱ)" [texinfo-format-parse-args args texinfo-discard-command "*Note " ": (" 2 ")" "(" "::"] 6]) (byte-code "#########" [put majorheading texinfo-format texinfo-format-chapter chapheading ichapter chapter iappendix appendix iunnumbered top unnumbered] 4) (defalias 'texinfo-format-chapter #[nil "!" [texinfo-format-chapter-1 42] 2]) (byte-code "#########" [put heading texinfo-format texinfo-format-section isection section iappendixsection appendixsection iappendixsec appendixsec iunnumberedsec unnumberedsec] 4) (defalias 'texinfo-format-section #[nil "!" [texinfo-format-chapter-1 61] 2]) (byte-code "#######" [put subheading texinfo-format texinfo-format-subsection isubsection subsection iappendixsubsec appendixsubsec iunnumberedsubsec unnumberedsubsec] 4) (defalias 'texinfo-format-subsection #[nil "!" [texinfo-format-chapter-1 45] 2]) (byte-code "#######" [put subsubheading texinfo-format texinfo-format-subsubsection isubsubsection subsubsection iappendixsubsubsec appendixsubsubsec iunnumberedsubsubsec unnumberedsubsubsec] 4) (defalias 'texinfo-format-subsubsection #[nil "!" [texinfo-format-chapter-1 46] 2]) (defalias 'texinfo-format-chapter-1 #[(belowchar) "  \" ıy)" [texinfo-parse-arg-discard arg message "Formatting: %s ... " 10 "@SectionPAD " belowchar -2] 6]) (put (quote SectionPAD) (quote texinfo-format) (quote texinfo-format-sectionpad)) (defalias 'texinfo-format-sectionpad #[nil " uiu V c S\f)c)" [texinfo-parse-arg-discard str -1 column 1 0 10] 3]) (put (quote \.) (quote texinfo-format) (quote texinfo-format-\.)) (defalias 'texinfo-format-\. #[nil " c" [texinfo-discard-command "."] 1]) (put (quote :) (quote texinfo-format) (quote texinfo-format-:)) (defalias 'texinfo-format-: #[nil " " [texinfo-discard-command] 1]) (put (quote -) (quote texinfo-format) (quote texinfo-format-soft-hyphen)) (defalias 'texinfo-format-soft-hyphen #[nil " " [texinfo-discard-command] 1]) (put (quote center) (quote texinfo-format) (quote texinfo-format-center)) (defalias 'texinfo-format-center #[nil "  cc`Sb +" [texinfo-parse-expanded-arg arg texinfo-discard-command 10 nil indent-tabs-mode center-line] 1]) (put (quote sp) (quote texinfo-format) (quote texinfo-format-sp)) (defalias 'texinfo-format-sp #[nil "  ! \"*" [texinfo-parse-arg-discard arg read num insert-char 10] 3]) (put (quote br) (quote texinfo-format) (quote texinfo-format-paragraph-break)) #@75 Force a paragraph break. If used within a line, follow `@br' with braces. (defalias 'texinfo-format-paragraph-break #[nil " gU\fc\"" [texinfo-optional-braces-discard 10 insert-char 2] 3 (#$ . 18984)]) #@41 Footnote style, either separate or end. (defvar texinfo-footnote-style "separate" (#$ . 19202)) (put (quote footnotestyle) (quote texinfo-format) (quote texinfo-footnotestyle)) #@104 Specify whether footnotes are at end of node or in separate nodes. Argument is either end or separate. (defalias 'texinfo-footnotestyle #[nil " " [texinfo-parse-arg-discard texinfo-footnote-style] 2 (#$ . 19386)]) (byte-code " B#" [texinfo-footnote-number current-load-list put footnote texinfo-format texinfo-format-footnote] 4) #@134 Format a footnote in either end of node or separate node style. The texinfo-footnote-style variable controls which style is used. (defalias 'texinfo-format-footnote #[nil "T ˜\f Ę " [texinfo-footnote-number texinfo-footnote-style "end" texinfo-format-end-node "separate" texinfo-format-separate-node] 2 (#$ . 19734)]) #@104 Format footnote in Separate node style, with notes in own node. The node is constructed automatically. (defalias 'texinfo-format-separate-node #[nil " !ƕ)bw`ʊ`)#+`S/`{)\f x`)`|\f#c!#Yy\fP#)x` #c `\"\f\fݱ` #c `\"-" [nil start texinfo-parse-line-arg arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ ]+Node:" 0 node-name-beginning " " search-forward "," t node-name texinfo-discard-command " \n" format " (%d) (*Note %s-Footnotes::)" texinfo-footnote-number fill-paragraph re-search-forward "^@node" move -1 "-Footnotes, Up: " "\n(%d) %s\n" fill-region "\n\nFile: " texinfo-format-filename " Node: " "\n"] 7 (#$ . 20076)]) #@70 Format footnote in the End of node style, with notes at end of node. (defalias 'texinfo-format-end-node #[nil "  x`)`|\"c!#B#1y`\n#c `\"Y#Myc`\n#c+" [nil texinfo-parse-line-arg arg start texinfo-discard-command " \n" format " (%d) " texinfo-footnote-number fill-paragraph search-forward "\n--------- Footnotes ---------\n" t re-search-forward "^@node" move -1 "\n(%d) %s\n" fill-region] 4 (#$ . 20817)]) #@127 Count of number of unpopped texinfo-push-stack calls. Used by @refill indenting command to avoid indenting within lists, etc. (defvar texinfo-stack-depth 0 (#$ . 21289)) (defalias 'texinfo-push-stack #[(check arg) "T \n E\fB" [texinfo-stack-depth check arg texinfo-command-start texinfo-stack] 3]) (defalias 'texinfo-pop-stack #[(check) "S \f\f\" @@\f=\f @@# @A A" [texinfo-stack-depth texinfo-stack error "Unmatched @end %s" check "@end %s matches @%s"] 4]) (put (quote itemize) (quote texinfo-format) (quote texinfo-itemize)) (defalias 'texinfo-itemize #[nil "wlĂ \" Z" [texinfo-push-stack itemize " " nil "@bullet" texinfo-parse-line-arg texinfo-discard-line-with-args fill-column 5] 4]) (put (quote itemize) (quote texinfo-end) (quote texinfo-end-itemize)) (defalias 'texinfo-end-itemize #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack itemize stacktop texinfo-do-itemize] 2]) (put (quote enumerate) (quote texinfo-format) (quote texinfo-enumerate)) (defalias 'texinfo-enumerate #[nil "wlĂp!\"@A@9-@A@!GV-!  Z " [texinfo-push-stack enumerate " " nil 1 read texinfo-stack symbol-name error "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." texinfo-discard-line-with-args fill-column 5] 4]) (put (quote enumerate) (quote texinfo-end) (quote texinfo-end-enumerate)) (defalias 'texinfo-end-enumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack enumerate stacktop texinfo-do-itemize] 2]) (put (quote alphaenumerate) (quote texinfo-format) (quote texinfo-alphaenumerate)) (defalias 'texinfo-alphaenumerate #[nil "\" Z " [texinfo-push-stack alphaenumerate 96 fill-column 5 texinfo-discard-line] 3]) (put (quote alphaenumerate) (quote texinfo-end) (quote texinfo-end-alphaenumerate)) (defalias 'texinfo-end-alphaenumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack alphaenumerate stacktop texinfo-do-itemize] 2]) (put (quote capsenumerate) (quote texinfo-format) (quote texinfo-capsenumerate)) (defalias 'texinfo-capsenumerate #[nil "\" Z " [texinfo-push-stack capsenumerate 64 fill-column 5 texinfo-discard-line] 3]) (put (quote capsenumerate) (quote texinfo-end) (quote texinfo-end-capsenumerate)) (defalias 'texinfo-end-capsenumerate #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack capsenumerate stacktop texinfo-do-itemize] 2]) (defalias 'texinfo-do-itemize #[(from) "y` Y.gU !!)!c))" [-1 from 8 delete-char 1 nil 6 looking-at "[ ]*$" " "] 2]) (byte-code "##" [put item texinfo-format texinfo-item itemx] 4) (defalias 'texinfo-item #[nil "@@N " [texinfo-stack texinfo-item] 2]) (put (quote itemize) (quote texinfo-item) (quote texinfo-itemize-item)) (defalias 'texinfo-itemize-item #[nil "`Ty`)|!\f@A@ű%\f@A@Ʊy" [0 looking-at "[ ]*[^ \n]+" " " texinfo-stack " \n" " " -1] 3]) (put (quote enumerate) (quote texinfo-item) (quote texinfo-enumerate-item)) (defalias 'texinfo-enumerate-item #[nil "  @A@% @A@\n\"DZ @A\nTe @A@9a @A@!\n!ʚD\n!˚H!\n\"DZ @A\n!T!!e!y)" [texinfo-discard-line nil enumerating-symbol texinfo-stack 8 format "%3d. " 10 symbol-name string-to-char 91 123 error "Too many items in enumerated list; alphabet ends at Z." "%3s. " make-symbol char-to-string "@enumerate: Use a number or letter, eg: 1, A, a, 3, B or d." -1] 5]) (put (quote alphaenumerate) (quote texinfo-item) (quote texinfo-alphaenumerate-item)) (defalias 'texinfo-alphaenumerate-item #[nil " @A@TV! @A\n\nDZ)y" [texinfo-discard-line texinfo-stack next 122 error "More than 26 items in @alphaenumerate; get a bigger alphabet." " " ". \n" -1] 4]) (put (quote capsenumerate) (quote texinfo-item) (quote texinfo-capsenumerate-item)) (defalias 'texinfo-capsenumerate-item #[nil " @A@TV! @A\n\nDZ)y" [texinfo-discard-line texinfo-stack next 90 error "More than 26 items in @capsenumerate; get a bigger alphabet." " " ". \n" -1] 4]) (put (quote table) (quote texinfo-format) (quote texinfo-table)) (defalias 'texinfo-table #[nil "wlĂ \" Z" [texinfo-push-stack table " " nil "@asis" texinfo-parse-line-arg texinfo-discard-line-with-args fill-column 5] 4]) (put (quote table) (quote texinfo-item) (quote texinfo-table-item)) (defalias 'texinfo-table-item #[nil " @A@\n Ʊ*y" [texinfo-parse-arg-discard texinfo-stack itemfont arg 8 123 "}\n \n" -2] 5]) (put (quote table) (quote texinfo-end) (quote texinfo-end-table)) (defalias 'texinfo-end-table #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack table stacktop texinfo-do-itemize] 2]) (byte-code "##" [put description texinfo-end texinfo-end-table texinfo-format texinfo-description] 4) (defalias 'texinfo-description #[nil "\" Z " [texinfo-push-stack table "@asis" fill-column 5 texinfo-discard-line] 3]) (byte-code "##" [put ftable texinfo-format texinfo-ftable vtable texinfo-vtable] 4) (defalias 'texinfo-ftable #[nil "!" [texinfo-indextable ftable] 2]) (defalias 'texinfo-vtable #[nil "!" [texinfo-indextable vtable] 2]) (defalias 'texinfo-indextable #[(table-type) " \" Z" [texinfo-push-stack table-type texinfo-parse-arg-discard fill-column 5] 3]) (byte-code "##" [put ftable texinfo-item texinfo-ftable-item vtable texinfo-vtable-item] 4) (defalias 'texinfo-ftable-item #[nil "!" [texinfo-indextable-item texinfo-findex] 2]) (defalias 'texinfo-vtable-item #[nil "!" [texinfo-indextable-item texinfo-vindex] 2]) (defalias 'texinfo-indextable-item #[(index-type) " @A@\n\f ȱ  D JBLy+" [texinfo-parse-arg-discard texinfo-stack index-type indexvar itemfont item 8 123 "}\n \n" texinfo-last-node -2] 5]) (byte-code "##" [put ftable texinfo-end texinfo-end-ftable vtable texinfo-end-vtable] 4) (defalias 'texinfo-end-ftable #[nil "!" [texinfo-end-indextable ftable] 2]) (defalias 'texinfo-end-vtable #[nil "!" [texinfo-end-indextable vtable] 2]) (defalias 'texinfo-end-indextable #[(table-type) "\\ \f! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack table-type stacktop texinfo-do-itemize] 2]) (byte-code "###" [put ifinfo texinfo-format texinfo-discard-line texinfo-end texinfo-discard-command iftex texinfo-format-iftex] 4) (defalias 'texinfo-format-iftex #[nil "!`|" [texinfo-command-start re-search-forward "@end iftex[ ]*\n"] 3]) (put (quote ifhtml) (quote texinfo-format) (quote texinfo-format-ifhtml)) (defalias 'texinfo-format-ifhtml #[nil "!`|" [texinfo-command-start re-search-forward "@end ifhtml[ ]*\n"] 3]) (put (quote tex) (quote texinfo-format) (quote texinfo-format-tex)) (defalias 'texinfo-format-tex #[nil "!`|" [texinfo-command-start re-search-forward "@end tex[ ]*\n"] 3]) (put (quote html) (quote texinfo-format) (quote texinfo-format-html)) (defalias 'texinfo-format-html #[nil "!`|" [texinfo-command-start re-search-forward "@end html[ ]*\n"] 3]) (put (quote titlepage) (quote texinfo-format) (quote texinfo-format-titlepage)) (defalias 'texinfo-format-titlepage #[nil "!`|" [texinfo-command-start re-search-forward "@end titlepage[ ]*\n"] 3]) (byte-code "##" [put endtitlepage texinfo-format texinfo-discard-line titlespec texinfo-format-titlespec] 4) (defalias 'texinfo-format-titlespec #[nil "!`|" [texinfo-command-start re-search-forward "@end titlespec[ ]*\n"] 3]) (byte-code "##" [put endtitlespec texinfo-format texinfo-discard-line today texinfo-format-today] 4) (defalias 'texinfo-format-today #[nil " O O O$c" [texinfo-parse-arg-discard format "%s %s %s" current-time-string 8 10 4 7 -4 nil] 7]) (put (quote ignore) (quote texinfo-format) (quote texinfo-format-ignore)) (defalias 'texinfo-format-ignore #[nil "!`|" [texinfo-command-start re-search-forward "@end ignore[ ]*\n"] 3]) (byte-code "##" [put endignore texinfo-format texinfo-discard-line definfoenclose texinfo-define-info-enclosure] 4) (defalias 'texinfo-define-info-enclosure #[nil " @ A@  8 \n\fDDB," [texinfo-format-parse-line-args args command-name "" beginning-delimiter 2 end-delimiter texinfo-discard-command texinfo-enclosure-list] 4]) (byte-code "##" [put var texinfo-format texinfo-format-var sc] 4) (defalias 'texinfo-format-var #[nil " c b" [texinfo-parse-arg-discard texinfo-command-start] 1]) (byte-code "##########" [put b texinfo-format texinfo-format-noop i r t w asis dmn key math titlefont] 4) (defalias 'texinfo-format-noop #[nil " c b" [texinfo-parse-arg-discard texinfo-command-start] 1]) (byte-code "#####" [put cite texinfo-format texinfo-format-code code file kbd samp] 4) (defalias 'texinfo-format-code #[nil " ± b" ["`" texinfo-parse-arg-discard "'" texinfo-command-start] 3]) (byte-code "##" [put emph texinfo-format texinfo-format-emph strong] 4) (defalias 'texinfo-format-emph #[nil " \nb" ["*" texinfo-parse-arg-discard texinfo-command-start] 3]) (byte-code "##" [put dfn texinfo-format texinfo-format-defn defn] 4) (defalias 'texinfo-format-defn #[nil " \nb" ["\"" texinfo-parse-arg-discard texinfo-command-start] 3]) (put (quote bullet) (quote texinfo-format) (quote texinfo-format-bullet)) #@74 Insert an asterisk. If used within a line, follow `@bullet' with braces. (defalias 'texinfo-format-bullet #[nil " c" [texinfo-optional-braces-discard "*"] 1 (#$ . 30818)]) (byte-code "######" [put display texinfo-format texinfo-format-example example lisp quotation smallexample smalllisp] 4) (defalias 'texinfo-format-example #[nil "\" Z " [texinfo-push-stack example nil fill-column 5 texinfo-discard-line] 3]) (byte-code "######" [put example texinfo-end texinfo-end-example display lisp quotation smallexample smalllisp] 4) (defalias 'texinfo-end-example #[nil "\\ ! A@!)" [fill-column 5 texinfo-discard-command texinfo-pop-stack example stacktop texinfo-do-itemize] 2]) (put (quote exdent) (quote texinfo-format) (quote texinfo-format-exdent)) (defalias 'texinfo-format-exdent #[nil " `w`|cc)" [texinfo-discard-command " " nil 8 "\n "] 3]) (byte-code "####" [put cartouche texinfo-format texinfo-discard-line texinfo-end texinfo-discard-command format texinfo-format-flushleft flushleft] 4) (defalias 'texinfo-format-flushleft #[nil " " [texinfo-discard-line] 1]) (byte-code "##" [put format texinfo-end texinfo-end-flushleft flushleft] 4) (defalias 'texinfo-end-flushleft #[nil " " [texinfo-discard-command] 1]) (put (quote flushright) (quote texinfo-format) (quote texinfo-format-flushright)) (defalias 'texinfo-format-flushright #[nil "\" " [texinfo-push-stack flushright nil texinfo-discard-line] 3]) (put (quote flushright) (quote texinfo-end) (quote texinfo-end-flushright)) (defalias 'texinfo-end-flushright #[nil " ! A@!)" [texinfo-discard-command texinfo-pop-stack flushright stacktop texinfo-do-flushright] 2]) (defalias 'texinfo-do-flushright #[(from) "y` Y(y\fx``|i)Z\"c)" [-1 from 0 make-string fill-column nil " " 32] 4]) (put (quote ctrl) (quote texinfo-format) (quote texinfo-format-ctrl)) (defalias 'texinfo-format-ctrl #[nil "  H\"c)" [texinfo-parse-arg-discard str logand 0 31] 3]) (put (quote TeX) (quote texinfo-format) (quote texinfo-format-TeX)) (defalias 'texinfo-format-TeX #[nil " c" [texinfo-parse-arg-discard "TeX"] 1]) (put (quote copyright) (quote texinfo-format) (quote texinfo-format-copyright)) (defalias 'texinfo-format-copyright #[nil " c" [texinfo-parse-arg-discard "(C)"] 1]) (put (quote minus) (quote texinfo-format) (quote texinfo-format-minus)) #@74 Insert a minus sign. If used within a line, follow `@minus' with braces. (defalias 'texinfo-format-minus #[nil " c" [texinfo-optional-braces-discard "-"] 1 (#$ . 33301)]) (put (quote dots) (quote texinfo-format) (quote texinfo-format-dots)) (defalias 'texinfo-format-dots #[nil " c" [texinfo-parse-arg-discard "..."] 1]) (put (quote enddots) (quote texinfo-format) (quote texinfo-format-enddots)) (defalias 'texinfo-format-enddots #[nil " c" [texinfo-parse-arg-discard "...."] 1]) #@74 Number of spaces for @refill to indent a paragraph; else to leave as is. (defvar texinfo-paragraph-indent "asis" (#$ . 33800)) (put (quote paragraphindent) (quote texinfo-format) (quote texinfo-paragraphindent)) #@113 Specify the number of spaces for @refill to indent a paragraph. Default is to leave the number of spaces as is. (defalias 'texinfo-paragraphindent #[nil " ˜‰ !)" [texinfo-parse-arg-discard arg "asis" texinfo-paragraph-indent string-to-int] 3 (#$ . 34019)]) (put (quote refill) (quote texinfo-format) (quote texinfo-format-refill)) #@120 Refill paragraph. Also, indent first line as set by @paragraphindent. Default is to leave paragraph indentation as is. (defalias 'texinfo-format-refill #[nil " !!yy!)(y`y`|EȚE VE`w`|\"c!yPPԎ!-" [texinfo-discard-command forward-paragraph -1 looking-at "[ \n]*$" 1 "^@noindent" texinfo-paragraph-indent "asis" texinfo-stack-depth 0 " " nil make-string 32 paragraph-separate previous-paragraph-separate "\\|[-=.]+\\|\\*\\*+" paragraph-start previous-paragraph-start ((byte-code "\nć" [previous-paragraph-separate paragraph-separate previous-paragraph-start paragraph-start nil] 1)) fill-paragraph] 3 (#$ . 34373)]) (put (quote noindent) (quote texinfo-format) (quote texinfo-noindent)) (defalias 'texinfo-noindent #[nil "!Êy`)#? )" [forward-paragraph 1 search-backward "@refill" -1 t texinfo-discard-line] 4]) (put (quote vindex) (quote texinfo-format) (quote texinfo-format-vindex)) (defalias 'texinfo-format-vindex #[nil "!" [texinfo-index texinfo-vindex] 2]) (put (quote cindex) (quote texinfo-format) (quote texinfo-format-cindex)) (defalias 'texinfo-format-cindex #[nil "!" [texinfo-index texinfo-cindex] 2]) (put (quote findex) (quote texinfo-format) (quote texinfo-format-findex)) (defalias 'texinfo-format-findex #[nil "!" [texinfo-index texinfo-findex] 2]) (put (quote pindex) (quote texinfo-format) (quote texinfo-format-pindex)) (defalias 'texinfo-format-pindex #[nil "!" [texinfo-index texinfo-pindex] 2]) (put (quote tindex) (quote texinfo-format) (quote texinfo-format-tindex)) (defalias 'texinfo-format-tindex #[nil "!" [texinfo-index texinfo-tindex] 2]) (put (quote kindex) (quote texinfo-format) (quote texinfo-format-kindex)) (defalias 'texinfo-format-kindex #[nil "!" [texinfo-index texinfo-kindex] 2]) (defalias 'texinfo-index #[(indexvar) "  \f  `\"TE JBL)" [texinfo-parse-expanded-arg arg texinfo-discard-command indexvar texinfo-last-node texinfo-last-node-pos count-lines 1] 6]) (byte-code "\nB##" [(("cp" . texinfo-cindex) ("fn" . texinfo-findex) ("vr" . texinfo-vindex) ("tp" . texinfo-tindex) ("pg" . texinfo-pindex) ("ky" . texinfo-kindex)) texinfo-indexvar-alist current-load-list put defindex texinfo-format texinfo-format-defindex defcodeindex] 4) (defalias 'texinfo-format-defindex #[nil "  P! Q! Q!L\f#  \"5 B B DDEM," [texinfo-parse-arg-discard index-name intern "index" indexing-command "texinfo-format-" index-formatting-command "texinfo-" index-alist-name nil put texinfo-format assoc texinfo-indexvar-alist lambda texinfo-index quote] 7]) (byte-code "##" [put synindex texinfo-format texinfo-format-synindex syncodeindex] 4) (defalias 'texinfo-format-synindex #[nil "  !A !@! \"@! \"= \"A \"A9Q!#V P! \"AUQ!#," [texinfo-parse-arg-discard args read-from-string second symbol-name joiner joined assoc texinfo-short-index-cmds-alist put texinfo-format texinfo-short-index-format-cmds-alist intern "texinfo-format-" "index"] 7]) (byte-code "\nB\nB" [(("cp" . cindex) ("fn" . findex) ("vr" . vindex) ("tp" . tindex) ("pg" . pindex) ("ky" . kindex)) texinfo-short-index-cmds-alist current-load-list (("cp" . texinfo-format-cindex) ("fn" . texinfo-format-findex) ("vr" . texinfo-format-vindex) ("tp" . texinfo-format-tindex) ("pg" . texinfo-format-pindex) ("ky" . texinfo-format-kindex)) texinfo-short-index-format-cmds-alist] 2) (defalias 'texinfo-sort-region #[(start end) "!\n }$)" [require sort start end sort-subr nil forward-line end-of-line texinfo-sort-startkeyfun] 5]) (defalias 'texinfo-sort-startkeyfun #[nil "``){ \"! ĉO ĕ GOQ )" [nil line string-match "[ ][ ]+\\|[^a-z0-9 ]+" 0 " "] 5]) (put (quote printindex) (quote texinfo-format) (quote texinfo-format-printindex)) (defalias 'texinfo-format-printindex #[nil " \n\"AJc` \"=\"\f`\"(\f`$*" [assoc texinfo-parse-arg-discard texinfo-indexvar-alist nil opoint indexelts "\n* Menu:\n\n" texinfo-print-index system-type vax-vms texinfo-sort-region shell-command-on-region "sort -fd" 1] 5]) (defalias 'texinfo-print-index #[(file indexelts) "Y@@;F@@±j\f!\fQ\"@A@ȱj@8>@8\"?ͱQ@A@@8\"Aχ" [indexelts "* " ": " 32 file "(" ")" "" "." 54 2 format " %d." "\n" texinfo-print-index nil] 5]) (put (quote equiv) (quote texinfo-format) (quote texinfo-format-equiv)) (defalias 'texinfo-format-equiv #[nil " c" [texinfo-parse-arg-discard "=="] 1]) (put (quote error) (quote texinfo-format) (quote texinfo-format-error)) (defalias 'texinfo-format-error #[nil " c" [texinfo-parse-arg-discard "error-->"] 1]) (put (quote expansion) (quote texinfo-format) (quote texinfo-format-expansion)) (defalias 'texinfo-format-expansion #[nil " c" [texinfo-parse-arg-discard "==>"] 1]) (put (quote point) (quote texinfo-format) (quote texinfo-format-point)) (defalias 'texinfo-format-point #[nil " c" [texinfo-parse-arg-discard "-!-"] 1]) (put (quote print) (quote texinfo-format) (quote texinfo-format-print)) (defalias 'texinfo-format-print #[nil " c" [texinfo-parse-arg-discard "-|"] 1]) (put (quote result) (quote texinfo-format) (quote texinfo-format-result)) (defalias 'texinfo-format-result #[nil " c" [texinfo-parse-arg-discard "=>"] 1]) (defalias 'texinfo-format-defun #[nil "\" Z!" [texinfo-push-stack defun nil fill-column 5 texinfo-format-defun-1 t] 3]) (defalias 'texinfo-end-defun #[nil "\\ !A@ ! b!*" [fill-column 5 texinfo-discard-command texinfo-pop-stack defun start texinfo-do-itemize delete-char -1] 2]) (defalias 'texinfo-format-defunx #[nil "!" [texinfo-format-defun-1 nil] 2]) (defalias 'texinfo-format-defun-1 #[(first-p) " N ! N !c\n@AA` N !*" [texinfo-format-parse-defun-args texinfo-command-name texinfo-defun-type parse-args texinfo-discard-command first-p delete-char -1 texinfo-deffn-formatting-property "\n\n" texinfo-stack texinfo-defun-indexing-property] 3]) (byte-code "######" [put deffn texinfo-deffn-formatting-property texinfo-format-deffn deffnx defvr defvrx deftp deftpx] 4) (defalias 'texinfo-format-deffn #[(parsed-args) "@A@AA \n = @HU*\n@!=/ @2 @ A+" [parsed-args args name category " -- " ": " " " 0 38 eval texinfo-defun-type deftp-type nil] 5]) (byte-code "##########" [put defun texinfo-deffn-formatting-property texinfo-format-specialized-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx] 4) (defalias 'texinfo-format-specialized-defun #[(parsed-args) "A@ @ A\f \n2\n@HU$\n@'\n@\nA+" [texinfo-defun-type parsed-args args name category " -- " ": " " " 0 38 nil] 5]) (byte-code "####" [put deftypefn texinfo-deffn-formatting-property texinfo-format-deftypefn deftypefnx deftypevr deftypevrx] 4) (defalias 'texinfo-format-deftypefn #[(parsed-args) "@A@AA@AAA\f \n , @ A," [parsed-args args name data-type category " -- " ": " " " nil] 7]) (byte-code "####" [put deftypefun texinfo-deffn-formatting-property texinfo-format-deftypefun deftypefunx deftypevar deftypevarx] 4) (defalias 'texinfo-format-deftypefun #[(parsed-args) "A@ @ A@ AA \f \n*\n@\nA," [texinfo-defun-type parsed-args args name data-type category " -- " ": " " " nil] 7]) (byte-code "##" [put defop texinfo-deffn-formatting-property texinfo-format-defop defopx] 4) (defalias 'texinfo-format-defop #[(parsed-args) "@A@AA@AAA\f \n - @ A," [parsed-args args name class category " -- " " on " ": " " " nil] 7]) (byte-code "##" [put defcv texinfo-deffn-formatting-property texinfo-format-defcv defcvx] 4) (defalias 'texinfo-format-defcv #[(parsed-args) "@A@AA@AAA\f \n - @ A," [parsed-args args name class category " -- " " of " ": " " " nil] 7]) (byte-code "##" [put defmethod texinfo-deffn-formatting-property texinfo-format-defmethod defmethodx] 4) (defalias 'texinfo-format-defmethod #[(parsed-args) "A@ @ A@ AA \f \n+\n@\nA," [texinfo-defun-type parsed-args args name class category " -- " " on " ": " " " nil] 7]) (byte-code "##" [put defivar texinfo-deffn-formatting-property texinfo-format-defivar defivarx] 4) (defalias 'texinfo-format-defivar #[(parsed-args) "A@ @ A@ AA \f \n+\n@\nA," [texinfo-defun-type parsed-args args name class category " -- " " of " ": " " " nil] 7]) (byte-code "##########" [put defun texinfo-defun-indexing-property texinfo-index-defun defunx defmac defmacx defspec defspecx defvar defvarx defopt defoptx] 4) (defalias 'texinfo-index-defun #[(parsed-args) "N @\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "##########" [put deffn texinfo-defun-indexing-property texinfo-index-deffn deffnx defvr defvrx deftp deftpx deftypefun deftypefunx deftypevar deftypevarx] 4) (defalias 'texinfo-index-deffn #[(parsed-args) "N A@\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "####" [put deftypefn texinfo-defun-indexing-property texinfo-index-deftypefn deftypefnx deftypevr deftypevrx] 4) (defalias 'texinfo-index-deftypefn #[(parsed-args) "N AA@\f  `\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "##" [put defmethod texinfo-defun-indexing-property texinfo-index-defmethod defmethodx] 4) (defalias 'texinfo-index-defmethod #[(parsed-args) "N A@ @#`\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s on %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "##" [put defop texinfo-defun-indexing-property texinfo-index-defop defopx] 4) (defalias 'texinfo-index-defop #[(parsed-args) "N AA@ A@#`\"T E\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s on %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "##" [put defivar texinfo-defun-indexing-property texinfo-index-defivar defivarx] 4) (defalias 'texinfo-index-defivar #[(parsed-args) "N A@ @#`\"TE\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s of %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "##" [put defcv texinfo-defun-indexing-property texinfo-index-defcv defcvx] 4) (defalias 'texinfo-index-defcv #[(parsed-args) "N AA@ A@#`\"T E\nJBL)" [texinfo-command-name texinfo-defun-index index-list format "%s of %s" parsed-args texinfo-last-node texinfo-last-node-pos count-lines 1] 7]) (byte-code "############################################################################################@##ȁA#@ȁB##@#C#D#C#CȁE#DȁF#C#D#G#H#G#GȁI#HȁJ#G#H#K#L#K#KȁM#LȁN#K#L#O#P#O#OȁQ#PȁR#O#P#ST#" [put deffn texinfo-format texinfo-format-defun deffnx texinfo-format-defunx texinfo-end texinfo-end-defun texinfo-defun-type ((quote deffn-type) nil) ((quote deffn-type) nil) texinfo-defun-index texinfo-findex defun defunx ((quote defun-type) "Function") ((quote defun-type) "Function") defmac defmacx ((quote defun-type) "Macro") ((quote defun-type) "Macro") defspec defspecx ((quote defun-type) "Special form") ((quote defun-type) "Special form") defvr defvrx ((quote deffn-type) nil) ((quote deffn-type) nil) texinfo-vindex defvar defvarx ((quote defun-type) "Variable") ((quote defun-type) "Variable") defconst defconstx ((quote defun-type) "Constant") ((quote defun-type) "Constant") defcmd defcmdx ((quote defun-type) "Command") ((quote defun-type) "Command") defopt defoptx ((quote defun-type) "User Option") ((quote defun-type) "User Option") deftp deftpx ((quote deftp-type) nil) ((quote deftp-type) nil) texinfo-tindex defop defopx ((quote defop-type) nil) ((quote defop-type) nil) defmethod defmethodx ((quote defmethod-type) "Method") ((quote defmethod-type) "Method") defcv defcvx ((quote defop-type) nil) ((quote defop-type) nil) defivar defivarx ((quote defmethod-type) "Instance variable") ((quote defmethod-type) "Instance variable") deftypefn deftypefnx ((quote deftypefn-type) nil) ((quote deftypefn-type) nil) deftypefun deftypefunx ((quote deftypefun-type) "Function") ((quote deftypefun-type) "Function") deftypevr deftypevrx ((quote deftypefn-type) nil) ((quote deftypefn-type) nil) deftypevar deftypevarx ((quote deftypevar-type) "Variable") ((quote deftypevar-type) "Variable") clear texinfo-clear] 4) #@30 Clear the value of the flag. (defalias 'texinfo-clear #[nil "  !@ !AO # #+" [texinfo-parse-arg-discard arg read-from-string flag nil value put texinfo-whether-setp flag-cleared texinfo-set-value ""] 4 (#$ . 48109)]) (put (quote set) (quote texinfo-format) (quote texinfo-set)) #@192 Set the value of the flag, optionally to a string. The command `@set foo This is a string.' sets flag foo to the value: `This is a string.' The command `@value{foo}' expands to the value. (defalias 'texinfo-set #[nil "  !@ !AO # #+" [texinfo-parse-arg-discard arg read-from-string flag nil value put texinfo-whether-setp flag-set texinfo-set-value] 4 (#$ . 48409)]) (put (quote value) (quote texinfo-format) (quote texinfo-value)) #@185 Insert the string to which the flag is set. The command `@set foo This is a string.' sets flag foo to the value: `This is a string.' The command `@value{foo}' expands to the value. (defalias 'texinfo-value #[nil "  !@N=! !@N! !@NcD !@N=4 \"cD !@N=D \"c)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set texinfo-set-value flag-cleared format "{No value for \"%s\"}" nil] 3 (#$ . 48866)]) (byte-code "##" [put ifset texinfo-end texinfo-discard-command texinfo-format texinfo-if-set] 4) #@73 If set, continue formatting; else do not format region up to @end ifset (defalias 'texinfo-if-set #[nil "  !@N=ł4 !@N=(!`|4 !@N=4)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set nil flag-cleared texinfo-command-start re-search-forward "@end ifset[ ]*\n"] 3 (#$ . 49431)]) (byte-code "##" [put ifclear texinfo-end texinfo-discard-command texinfo-format texinfo-if-clear] 4) #@71 If clear, continue formatting; if set, do not format up to @end ifset (defalias 'texinfo-if-clear #[nil "  !@N= !`|3 !@N='ɂ3 !@N=3)" [texinfo-parse-arg-discard arg read-from-string texinfo-whether-setp flag-set texinfo-command-start re-search-forward "@end ifclear[ ]*\n" flag-cleared nil] 3 (#$ . 49882)]) (byte-code "########################" [put include texinfo-format texinfo-format-noop bye texinfo-discard-line c texinfo-discard-line-with-args comment contents finalout group texinfo-end headings hsize itemindent lispnarrowing need nopara page parindent setchapternewpage setq settitle setx shortcontents shorttitlepage smallbook summarycontents] 4) (defalias 'texinfo-unsupported #[nil "\n {\"" [error "%s is not handled by texinfo" texinfo-command-start texinfo-command-end] 4]) #@289 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". (defalias 'batch-texinfo-format #[nil "!ĉʼn \nĉ\f h@!  !C \"A! !X !A! \fB\fA$\f\f@ \fA\f؏h !." [noninteractive error "batch-texinfo-format may only be used -batch." t nil 259259 kept-new-versions kept-old-versions find-file-run-dired auto-save-default version-control 0 files file command-line-args-left expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p directory-files err (byte-code "p! !p!! \"! . \" Ƈ" [buffer-file-name kill-buffer find-file file buffer-disable-undo set-buffer-modified-p nil texinfo-mode message "texinfo formatting %s..." texinfo-format-buffer buffer-modified-p "Saving modified %s" save-buffer] 3) ((error (byte-code " !\"!``\\d^{#<ƉOƕOQT\"*̇" [message ">> Error: %s" prin1-to-string err ">> point at" 100 0 tem s string-match "\n+" "\n>> " nil ">> %s" 1 error] 5))) kill-emacs] 6 (#$ . 50829)]) (provide (quote texinfmt))