home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / latexinfo / elisp / latexinfo.elc < prev    next >
Encoding:
Text File  |  1992-02-26  |  62.1 KB  |  1,121 lines
  1.  
  2. (defvar latexinfo-formats-directory (file-name-as-directory (or (getenv "LATEXINFO") ".")))
  3.  
  4. (defvar latexinfo-texinputs (let ((texinputs (or (getenv "TEXINPUTS") (concat ".:" latexinfo-formats-directory ":/usr/local/lib/tex/inputs"))) (dirlist) (i 0) (l) (s) (sepchar 58)) (if (eq system-type (quote vax-vms)) (setq sepchar 44)) (setq l (length texinputs)) (while (< i l) (setq s i) (while (and (< i l) (not (char-equal (aref texinputs i) sepchar))) (setq i (1+ i))) (if (> i s) (setq dirlist (append dirlist (list (substring texinputs s i))))) (setq i (1+ i))) dirlist))
  5.  
  6. (defvar latexinfo-always-refill nil)
  7.  
  8. (if (not (memq latexinfo-formats-directory load-path)) (setq load-path (cons latexinfo-formats-directory load-path)))
  9.  
  10. (if (not (memq "." load-path)) (setq load-path (cons "." load-path)))
  11.  
  12. (defvar latexinfo-known-document-styles (quote (latexinfo 11pt 12pt twoside titlepage A4 a4 dina4 psfonts format)))
  13.  
  14. (autoload (quote latexinfo-mode) "latexnfo-mde" "\
  15. Major mode for editing latexinfo files." t)
  16.  
  17. (autoload (quote Info-tagify) "informat" "\
  18. Info Tagify" t)
  19.  
  20. (autoload (quote Info-split) "informat" "\
  21. Info Split" t)
  22.  
  23. (put (quote latexinfoversion) (quote latexinfo-format) (quote latexinfo-format-latexinfoversion))
  24.  
  25. (defun latexinfo-format-latexinfoversion nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "1.7"] 2))
  26.  
  27. (defvar latexinfo-vindex-old nil)
  28.  
  29. (defvar latexinfo-findex-old nil)
  30.  
  31. (defvar latexinfo-cindex-old nil)
  32.  
  33. (defvar latexinfo-cpsubindex-old nil)
  34.  
  35. (defvar latexinfo-pindex-old nil)
  36.  
  37. (defvar latexinfo-tindex-old nil)
  38.  
  39. (defvar latexinfo-kindex-old nil)
  40.  
  41. (defvar latexinfo-refindex-old nil)
  42.  
  43. (defvar latexinfo-format-syntax-table nil)
  44.  
  45. (progn (setq latexinfo-format-syntax-table (make-syntax-table)) (modify-syntax-entry 42 "w" latexinfo-format-syntax-table) (modify-syntax-entry 38 "w" latexinfo-format-syntax-table) (modify-syntax-entry 92 "\\" latexinfo-format-syntax-table) (modify-syntax-entry 17 "\\" latexinfo-format-syntax-table) (modify-syntax-entry 123 "(}" latexinfo-format-syntax-table) (modify-syntax-entry 125 "){" latexinfo-format-syntax-table) (modify-syntax-entry 91 "(]" latexinfo-format-syntax-table) (modify-syntax-entry 93 ")[" latexinfo-format-syntax-table) (modify-syntax-entry 34 " " latexinfo-format-syntax-table) (modify-syntax-entry 40 " " latexinfo-format-syntax-table) (modify-syntax-entry 41 " " latexinfo-format-syntax-table) (modify-syntax-entry 33 "." latexinfo-format-syntax-table) (modify-syntax-entry 46 "." latexinfo-format-syntax-table) (modify-syntax-entry 58 "." latexinfo-format-syntax-table) (modify-syntax-entry 39 "." latexinfo-format-syntax-table))
  46.  
  47. (defun latexinfo-format-buffer (&optional notagify) "\
  48. Process the current buffer as latexinfo code, into an Info file.
  49. The Info file output is generated in a buffer visiting the Info file
  50. names specified in the \\setfilename command.
  51.  
  52. Non-nil argument (prefix, if interactive) means don't make tag table
  53. and don't split the file if large.  You can use Info-tagify and
  54. Info-split to do these manually.
  55.  
  56. Returns a list:
  57.  
  58.     (list outfile
  59.       latexinfo-cindex latexinfo-vindex latexinfo-findex 
  60.       latexinfo-pindex latexinfo-tindex latexinfo-kindex
  61.           latexinfo-refindex)" (interactive "P") (byte-code "╩ê╦╠!ê═ ╬    8ëê╧    8ëê╨    8ëê╤    8ëê╥    8ëê╙    8ëê╘    8ë)ê    âB╩éD╒ êtàO╠╓╫Q!)ç" [lastmessage retval latexinfo-cindex-old latexinfo-vindex-old latexinfo-findex-old latexinfo-pindex-old latexinfo-tindex-old latexinfo-kindex-old latexinfo-refindex-old notagify nil "Formatting Info file..." message latexinfo-format-buffer-1 1 2 3 4 5 6 7 latexinfo-split "done.  Now save it." "done."] 7))
  62.  
  63. (defun latexinfo-split nil (byte-code "┴ ┬Và├─ë!ê┼ ê┴ ╞Và├╟ë!ê╚ ç" [lastmessage buffer-size 30000 message "Making tags table for Info file..." Info-tagify 100000 "Splitting Info file..." Info-split] 7))
  64.  
  65. (defun latexinfo-format-buffer-1 nil (byte-code "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌▌▄Sp
  66.   
  67.     èebê▐▀!ê`ëêα ë)êß!êΓ êπ!êΣ êσ!êebêµ êebê▐▀!êτ ê`ebê▐Φ┌#âÉ┌ëéö▄ëêΘe\")êdbêΩδ▄┌#â«Θ`d\"é▒∞φ!êhεUå║∩cêebê≡ êebê±      
  68. &.ç" [latexinfo-format-filename latexinfo-example-start latexinfo-command-start latexinfo-command-end latexinfo-command-name latexinfo-last-node latexinfo-last-node-pos latexinfo-vindex latexinfo-findex latexinfo-cindex latexinfo-cpsubindex latexinfo-pindex latexinfo-tindex latexinfo-kindex latexinfo-refindex latexinfo-stack latexinfo-node-names latexinfo-table-number latexinfo-footnote-number outfile fill-column input-buffer input-directory default-directory latexinfo-format-syntax-table end t latexinfo-always-refill nil 0 re-search-forward "^\\\\setfilename" latexinfo-parse-line-arg find-file latexinfo-mode set-syntax-table erase-buffer insert-buffer-substring latexinfo-run-documentstyle-hooks beginning-of-line "^\\\\alwaysrefill" delete-region search-backward "\\end{document}" error "Missing \\end{document}" 10 "
  69. " latexinfo-format-scan-noverbatim list] 25))
  70.  
  71. (defvar latexinfo-region-buffer-name "*Info Region*" "\
  72. *Name of the temporary buffer used by \\[latexinfo-format-region].")
  73.  
  74. (defun latexinfo-format-region (region-beginning region-ending) "\
  75. Convert the the current region of the Latexinfo file to Info format.
  76. This lets you see what that part of the file will look like in Info.
  77. The command is bound to \\[latexinfo-format-region].  The text that is
  78. converted to Info is stored in a temporary buffer." (interactive "r") (byte-code "▌ê▐▀!ê▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌ααSp▌▌
  79.   
  80.     ßΓ!!êπ êèqêèîΣ êebêσµèτΦ!ê`)┘#åpΘΩ!êδ ê`ëêτ∞!ê`ë)))êφ^#êφ]#êε ê∩!êdbê≡±▌┘#à┤≥`d\"êh≤Uå╜⌠cêdbêebê⌡ êeb.ç" [latexinfo-command-start latexinfo-command-end latexinfo-command-name latexinfo-vindex latexinfo-findex latexinfo-cindex latexinfo-pindex latexinfo-tindex latexinfo-kindex latexinfo-refindex latexinfo-stack latexinfo-format-filename latexinfo-example-start latexinfo-last-node-pos latexinfo-last-node latexinfo-node-names latexinfo-table-number latexinfo-footnote-number fill-column input-buffer input-directory default-directory filename-beginning filename-ending latexinfo-region-buffer-name t region-beginning region-ending latexinfo-format-syntax-table nil message "Converting region to Info format..." 0 switch-to-buffer get-buffer-create erase-buffer widen re-search-forward "^\\\\setfilename" forward-line 100 error "The latexinfo file needs a line saying: \\setfilename <name>" beginning-of-line 1 insert-buffer-substring latexinfo-mode set-syntax-table search-backward "\\end{document}" delete-region 10 "
  81. " latexinfo-format-scan-noverbatim] 24))
  82.  
  83. (defvar latexinfo-special-regexp "^[     ]*\\\\\\(begin{verbatim}\\|begin{smallverbatim}\\|verb\\|input{\\)")
  84.  
  85. (defun latexinfo-format-scan-noverbatim nil (byte-code "╞┴┬#âóe┴┴ bê╞┴┬#àò╟╚╔!╩╔!\"ëê╦
  86. ╠\"â0═ éæ╦
  87. ╬\"âL`ëê╧ \"ê╞╨┴┴#ê`ëéæ╦
  88. ╤\"âh`ëê╧ \"ê╞╥┴┴#ê`ëéæ╦
  89. ╙\"àæ`ëê╧ \"ê╟``T\"ëê╘╒!ê╓
  90. ┴┴#ê╘╒!ê`ëêéê à₧╧ d\"+éª╧ed\"ê╫ ç" [latexinfo-special-regexp nil t start end str re-search-forward buffer-substring match-beginning 0 match-end string-equal "\\input{" latexinfo-insert-input-files "\\begin{verbatim}" latexinfo-do-global-substitutions "\\\\end{verbatim}" "\\begin{smallverbatim}" "\\\\end{smallverbatim}" "\\verb" forward-char 1 search-forward latexinfo-format-scan] 23))
  91.  
  92. (defun latexinfo-insert-input-files nil (byte-code "è╟`╚╔!ê`\"
  93. ─ ?à    àK    @╩╦
  94. \"!â*╦
  95. \"é?╩╦╠P
  96. \"!â>╦╠P
  97. \"é?─ëê    Aë)êéê ëê═╬!ê╩!âw╧`╨╬!ê`\"ê╤╥\"ê╙╬!ê╘!ê╤╒\"é{╓╫\"+)ç" [file-name dirlist latexinfo-texinputs the-file nil dir t buffer-substring skip-chars-forward "^     }
  98. " file-readable-p expand-file-name ".tex" beginning-of-line 1 delete-region forward-line message "Inserting file %s..." sit-for insert-file "Inserting file %s...done" error "I can't find the file %s"] 19))
  99.  
  100. (defun latexinfo-do-global-substitutions (min max) (byte-code "è╞    \"êebê├╟╚├─#à,╔╩!ê`ëê╟╦├\"ê╠╩!ê═
  101. `\"êé )êebê╬╧╨\"êebê╤╥├─#àH╙╘!êé9êebê╤╒├─#à[╙╘!êéLê
  102. àb╓ ê╫ )ç" [min max start nil t latexinfo-always-refill narrow-to-region re-search-forward "^\\\\begin{ignore}" beginning-of-line 1 "^\\\\end{ignore}" forward-line delete-region quietly-replace-regexp "\\\\\\\\$" "" search-forward "``" replace-match "\"" "''" latexinfo-do-refill widen] 14))
  103.  
  104. (defun latexinfo-do-refill nil (byte-code "e┬bê╞╟┬├#àA╚`\"êebê╔╩╦┬#êebê╔╠═┬#êebê╔╬╧┬#ê╚
  105. \"ê╞╨┬┬#ê`ëêé*ç" [start end nil t min max re-search-forward "^\\\\begin{menu}" narrow-to-region quietly-replace-string ".
  106.  
  107. " ".\\refill
  108.  
  109. " ":
  110.  
  111. " ":\\refill
  112.  
  113. " ".
  114. \\end" ".\\refill
  115. \\end" "\\\\end{menu}"] 11))
  116.  
  117. (defun latexinfo-format-scan nil (byte-code "╔!êebê┬╩╦┬├#àpgëê    ╠>â$═`S`T\"él    ╬>â/╧ él    ╨>â?╤╥!ê╙╘!él`Sëê╒╘!ê`ëê╓╫ T
  118. \"!ëê╪Nâi┘!ék┌ )êé    êàä█@8bê▄▌@@\")ç" [latexinfo-format-syntax-table foochar nil t latexinfo-command-start latexinfo-command-end latexinfo-command-name cmd latexinfo-stack set-syntax-table search-forward "\\" (42 92 45 58) delete-region (94 39 96 34) latexinfo-parse-accent (42 123 125 94 32 9 46 58 37 92) delete-char -1 forward-char 1 forward-word intern buffer-substring latexinfo-format funcall latexinfo-unsupported 2 error "Unterminated \\begin{%s}"] 14))
  119.  
  120. (defun latexinfo-parse-accent nil (byte-code "┴ ê┬├!â─`S┼`\\\"ê╞╟!ê╚╔!é!─`S`T\"ç" [t latexinfo-delete-whitespace looking-at ".{" delete-region 2 skip-chars-forward "^}" delete-char 1] 8))
  121.  
  122. (put (quote begin) (quote latexinfo-format) (quote latexinfo-format-begin))
  123.  
  124. (defun latexinfo-format-begin nil (byte-code "└┴!ç" [latexinfo-format-begin-end latexinfo-format] 2))
  125.  
  126. (put (quote end) (quote latexinfo-format) (quote latexinfo-format-end))
  127.  
  128. (defun latexinfo-format-end nil (byte-code "└┴!ç" [latexinfo-format-begin-end latexinfo-end] 2))
  129.  
  130. (defun latexinfo-format-begin-end (prop) (byte-code "├─ !ëê
  131. Nëê    â┼    !é╞ ç" [latexinfo-command-name cmd prop intern latexinfo-parse-line-arg funcall latexinfo-unsupported] 5))
  132.  
  133. (defvar latexinfo-format-syntax-table-a nil)
  134.  
  135. (progn (setq latexinfo-format-syntax-table-a (copy-syntax-table latexinfo-format-syntax-table)) (modify-syntax-entry 91 "." latexinfo-format-syntax-table-a) (modify-syntax-entry 93 "." latexinfo-format-syntax-table-a))
  136.  
  137. (defun safe-forward-list (arg) (byte-code "─┼\"â╞    !ê╟╚!ê╞
  138. !é%─╔\"â\"╩╚!é%╩╚!ç" [arg latexinfo-format-syntax-table-a latexinfo-format-syntax-table t string-equal "}" set-syntax-table forward-sexp 1 "]" forward-list] 8))
  139.  
  140. (defun latexinfo-parse-line-arg nil "\
  141. Returns the command that takes up the rest of the line." (byte-code "bê`├─!â)┼─!ê`ëê╞ ê╟─!ê╚`╞ ê`\"ê`Tëé^├╔!âB`Tëê╩╦!ê`ëê╠═!é^├╬!â[`Tëê╩╧!ê`ëê╠═!é^╨╤!ê╥    `\"làj╠╙!ê)ç" [latexinfo-command-end start t looking-at " " skip-chars-forward end-of-line skip-chars-backward delete-region "{" safe-forward-list "}" forward-char -1 "\\[" "]" error "Invalid latexinfo command arg format" buffer-substring 1] 17))
  142.  
  143. (defun latexinfo-parse-expanded-arg nil (byte-code "bê`─┼╞!â╟╞!ê`ëê╚ ê`TëéA┼╔!å(┼╩!â>`Tëê╦╠!ê`ëê═╬!éA╧╨!ê╤╥ \"ëê╙    `\"ê╘
  144. !ëê╤
  145. ─\"ê╒    `\"làe═╠!ê*ç" [latexinfo-command-end start marker t nil looking-at " " skip-chars-forward end-of-line "{" "\\[" forward-list 1 forward-char -1 error "Invalid latexinfo command arg format" move-marker make-marker latexinfo-format-expand-region marker-position buffer-substring] 17))
  146.  
  147. (defun latexinfo-parse-arg-discard nil (byte-code "└ ┴ êç" [latexinfo-parse-line-arg latexinfo-discard-command] 4))
  148.  
  149. (defun latexinfo-discard-command nil (byte-code "┬    \"ç" [latexinfo-command-start latexinfo-command-end delete-region] 3))
  150.  
  151. (defun latexinfo-parse-noarg nil (byte-code "bê┬├!â─┼!é(lâ─╞!é(┬╟!à(è╚╔!ê`)ëê╩    \"ç" [latexinfo-command-end latexinfo-command-start looking-at "{}" delete-char 2 1 "[     ]" skip-chars-forward "     " delete-region] 8))
  152.  
  153. (defun latexinfo-parse-required-argument nil (byte-code "bê┬ ê├─!âè┼╞!ê`)ëé╟╚!ê╔`TS\"╩ êç" [latexinfo-command-end t latexinfo-delete-whitespace looking-at "{" forward-sexp 1 error "latexinfo-parse-required-argument: no argument provided" buffer-substring latexinfo-delete-command] 8))
  154.  
  155. (defun latexinfo-delete-whitespace nil (byte-code "└┴!à┬`è├─!ê`)\"ç" [looking-at "[     
  156. ]" delete-region skip-chars-forward "     
  157. "] 5))
  158.  
  159. (defun latexinfo-insert-required-argument nil (byte-code "è└ c)ç" [latexinfo-parse-required-argument] 2))
  160.  
  161. (defun latexinfo-delete-command nil (byte-code "┬    \"ç" [latexinfo-command-start latexinfo-command-end delete-region] 3))
  162.  
  163. (defun latexinfo-format-expand-region (start end) (byte-code "î╞    \"ê╟╟╟╟╚ ,êdb)ç" [start end latexinfo-command-start latexinfo-command-end latexinfo-command-name latexinfo-stack narrow-to-region nil latexinfo-format-scan] 5))
  164.  
  165. (defun latexinfo-format-parse-line-args nil (byte-code "`S╞╞╞╞╟╚!êl?àN`ëê╔╩!ê`ëênà(    Sëê╦╠!ê═╚!ê`ëê
  166. Và?╬
  167. \" Bëê    bê╟╚!êéêlàV╦╧!ê`ëê╨ !-ç" [start next beg end args latexinfo-command-end nil skip-chars-forward " " re-search-forward "[
  168. ,]" forward-char -1 skip-chars-backward buffer-substring 1 nreverse] 9))
  169.  
  170. (defun latexinfo-format-parse-args nil (byte-code "`S╟╟╟╟╚╔!ê╩h╦\"à`╠═!ê`ëê╬╧!ê`ëê╨╤!ê╥═!ê`ëê
  171. WàJ
  172. bê╚╙ ┼#àJ╘╒!êé;ê
  173. VàU╓
  174. \" Bëê    bêéêlàh╨╫!ê`ëê╪ !-ç" [start next beg end args t latexinfo-command-end nil search-forward "{" /= 125 skip-chars-forward "     
  175. " re-search-forward "[},]" forward-char -1 skip-chars-backward "
  176. " replace-match " " buffer-substring 1 nreverse] 12))
  177.  
  178. (put (quote document) (quote latexinfo-format) (quote latexinfo-discard-line))
  179.  
  180. (put (quote document) (quote latexinfo-end) (quote latexinfo-discard-line))
  181.  
  182. (put (quote setfilename) (quote latexinfo-format) (quote latexinfo-format-setfilename))
  183.  
  184. (defun latexinfo-format-setfilename nil (byte-code "├ ─┼!!ëê╞╟    ╚╔╩
  185. !â\"╦╠─╩
  186. !!!Pé'═╬
  187. !P╧&)ç" [arg latexinfo-format-filename input-buffer latexinfo-parse-arg-discard file-name-nondirectory expand-file-name insert "Info file: " ",    -*-Text-*-
  188. " "produced by latexinfo-format-buffer
  189. from " buffer-file-name "file: " file-name-sans-versions "buffer " buffer-name "
  190.  
  191. "] 15))
  192.  
  193. (put (quote node) (quote latexinfo-format) (quote latexinfo-format-node))
  194.  
  195. (defun latexinfo-format-node nil (byte-code "╩ ╦8╠8═8╬8╧ ê    ëê╨    !╤\"â/╥╙    \"é7Bë)ênå?╘cê╒╓╫    $ê àP╒╪ \"ê àY╒┘ \"ê
  196. àb╒┌
  197. \"ê╘cê`ë    -ç" [args name next prev up latexinfo-last-node tem latexinfo-node-names latexinfo-format-filename latexinfo-last-node-pos latexinfo-format-parse-line-args 0 1 2 3 latexinfo-discard-command downcase assoc error "Duplicate node name: %s" 10 insert "
  198. File: " "  Node: " ", Prev: " ", Up: " ", Next: "] 11))
  199.  
  200. (put (quote menu) (quote latexinfo-format) (quote latexinfo-format-menu))
  201.  
  202. (defun latexinfo-format-menu nil (byte-code "└ ê┴cç" [latexinfo-discard-line "* Menu:
  203.  
  204. "] 2))
  205.  
  206. (put (quote menu) (quote latexinfo-end) (quote latexinfo-discard-command))
  207.  
  208. (defun latexinfo-discard-line nil (byte-code "bê┬├!êlå─┼!ê╞    ╟╚!ê`\"ç" [latexinfo-command-end latexinfo-command-start skip-chars-forward "     " error "Extraneous text at end of command line." delete-region forward-line 1] 6))
  209.  
  210. (defun latexinfo-discard-to-eoline nil (byte-code "bê┬├!êlå─┼!ê╞    `\"ç" [latexinfo-command-end latexinfo-command-start skip-chars-forward "     " error "Extraneous text at end of command line." delete-region] 5))
  211.  
  212. (put (quote nxref) (quote latexinfo-format) (quote latexinfo-format-xref))
  213.  
  214. (put (quote xref) (quote latexinfo-format) (quote latexinfo-format-xref))
  215.  
  216. (defun latexinfo-format-xref nil (byte-code "┬ ├ ê─cê┼8å╞8    å╟8?â&╚@╔\"éA╚    å-@╩\"ê╟8à=╚╦╟8╠#ê@c))ç" [args fname latexinfo-format-parse-args latexinfo-discard-command "*Note " 1 2 3 insert "::" ": " "(" ")"] 8))
  217.  
  218. (put (quote pxref) (quote latexinfo-format) (quote latexinfo-format-pxref))
  219.  
  220. (defun latexinfo-format-pxref nil (byte-code "└ êè┴┬!ê├─!)å┼cç" [latexinfo-format-xref forward-char -2 looking-at "::" "."] 4))
  221.  
  222. (put (quote inforef) (quote latexinfo-format) (quote latexinfo-format-inforef))
  223.  
  224. (defun latexinfo-format-inforef nil (byte-code "┴ ┬ ê├8â─┼├8╞╟8╚@&é)─┼╔╟8╚@╩&)ç" [args latexinfo-format-parse-args latexinfo-discard-command 1 insert "*Note " ": (" 2 ")" "(" "::"] 10))
  225.  
  226. (put (quote appendix) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  227.  
  228. (put (quote onecolumn) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  229.  
  230. (put (quote twocolumn) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  231.  
  232. (put (quote chapter) (quote latexinfo-format) (quote latexinfo-format-chapter))
  233.  
  234. (put (quote chapter*) (quote latexinfo-format) (quote latexinfo-format-chapter))
  235.  
  236. (put (quote unnumbered) (quote latexinfo-format) (quote latexinfo-format-chapter))
  237.  
  238. (defun latexinfo-format-chapter nil (byte-code "└┴!ç" [latexinfo-format-chapter-1 42] 2))
  239.  
  240. (put (quote section) (quote latexinfo-format) (quote latexinfo-format-section))
  241.  
  242. (put (quote section*) (quote latexinfo-format) (quote latexinfo-format-section))
  243.  
  244. (put (quote unnumberedsec) (quote latexinfo-format) (quote latexinfo-format-section))
  245.  
  246. (defun latexinfo-format-section nil (byte-code "└┴!ç" [latexinfo-format-chapter-1 61] 2))
  247.  
  248. (put (quote subsection) (quote latexinfo-format) (quote latexinfo-format-subsection))
  249.  
  250. (put (quote subsection*) (quote latexinfo-format) (quote latexinfo-format-subsection))
  251.  
  252. (put (quote unnumberedsubsec) (quote latexinfo-format) (quote latexinfo-format-subsection))
  253.  
  254. (defun latexinfo-format-subsection nil (byte-code "└┴!ç" [latexinfo-format-chapter-1 45] 2))
  255.  
  256. (put (quote subsubsection) (quote latexinfo-format) (quote latexinfo-format-subsubsection))
  257.  
  258. (put (quote subsubsection*) (quote latexinfo-format) (quote latexinfo-format-subsubsection))
  259.  
  260. (put (quote unnumberedsubsubsec) (quote latexinfo-format) (quote latexinfo-format-subsubsection))
  261.  
  262. (defun latexinfo-format-subsubsection nil (byte-code "└┴!ç" [latexinfo-format-chapter-1 46] 2))
  263.  
  264. (defun latexinfo-format-chapter-1 (belowchar) (byte-code "├ ─┼\"ê╞╟╟╚    ╟&ê╔╩!?à╩cê
  265. b)ç" [arg belowchar latexinfo-command-start latexinfo-parse-arg-discard message "Formatting: %s ... " insert 10 "\\SectionPAD " looking-at "
  266. "] 9))
  267.  
  268. (put (quote SectionPAD) (quote latexinfo-format) (quote latexinfo-format-sectionpad))
  269.  
  270. (defun latexinfo-format-sectionpad nil (byte-code "┬ ├─!êi├┼!ê    ╞Vàcê    Sëêé
  271. )ê╟cê╚╔!?à,╔c)ç" [str column latexinfo-parse-arg-discard forward-char -1 1 0 10 looking-at "
  272. "] 6))
  273.  
  274. (put (quote paragraph) (quote latexinfo-format) (quote latexinfo-format-var))
  275.  
  276. (put (quote subparagraph) (quote latexinfo-format) (quote latexinfo-format-noop))
  277.  
  278. (put (quote paragraph*) (quote latexinfo-format) (quote latexinfo-format-var))
  279.  
  280. (put (quote subparagraph*) (quote latexinfo-format) (quote latexinfo-format-noop))
  281.  
  282. (put (quote \.) (quote latexinfo-format) (quote latexinfo-format-\.))
  283.  
  284. (defun latexinfo-format-\. nil (byte-code "└ ê┴cç" [latexinfo-discard-command "."] 2))
  285.  
  286. (put (quote \\) (quote latexinfo-format) (quote latexinfo-format-\\))
  287.  
  288. (defun latexinfo-format-\\ nil (byte-code "└ ê┴cç" [latexinfo-discard-command "
  289. "] 2))
  290.  
  291. (put (quote :) (quote latexinfo-format) (quote latexinfo-format-:))
  292.  
  293. (defun latexinfo-format-: nil (byte-code "└ ç" [latexinfo-discard-command] 2))
  294.  
  295. (put (quote _) (quote latexinfo-format) (quote latexinfo-format-_))
  296.  
  297. (defun latexinfo-format-_ nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "_"] 2))
  298.  
  299. (put (quote $) (quote latexinfo-format) (quote latexinfo-format-$))
  300.  
  301. (defun latexinfo-format-$ nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "$"] 2))
  302.  
  303. (put (quote @) (quote latexinfo-format) (quote latexinfo-format-@))
  304.  
  305. (defun latexinfo-format-@ nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "@"] 2))
  306.  
  307. (put (quote ~) (quote latexinfo-format) (quote latexinfo-format-~))
  308.  
  309. (defun latexinfo-format-~ nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "~"] 2))
  310.  
  311. (put (quote ^) (quote latexinfo-format) (quote latexinfo-format-^))
  312.  
  313. (defun latexinfo-format-^ nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "^"] 2))
  314.  
  315. (put (quote /) (quote latexinfo-format) (quote latexinfo-format-/))
  316.  
  317. (defun latexinfo-format-/ nil (byte-code "└ ç" [latexinfo-parse-noarg] 2))
  318.  
  319. (put (quote \ ) (quote latexinfo-format) (quote latexinfo-format-space))
  320.  
  321. (defun latexinfo-format-space nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "    "] 2))
  322.  
  323. (put (quote tie) (quote latexinfo-format) (quote latexinfo-format-tie))
  324.  
  325. (defun latexinfo-format-tie nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg " "] 2))
  326.  
  327. (put (quote sp) (quote latexinfo-format) (quote latexinfo-format-sp))
  328.  
  329. (defun latexinfo-format-sp nil (byte-code "┴┬ !├ êlànàm?à─┼!ê╞Và*╟cêSëêé)ç" [arg read latexinfo-parse-expanded-arg latexinfo-discard-command delete-char 1 0 "
  330. "] 7))
  331.  
  332. (defvar latexinfo-footnote-style "separate" "\
  333. Footnote style, either separate or end.")
  334.  
  335. (put (quote footnotestyle) (quote latexinfo-format) (quote latexinfo-footnotestyle))
  336.  
  337. (defun latexinfo-footnotestyle nil "\
  338. Specify whether footnotes are at end of node or in separate nodes.
  339. Argument is either end or separate." (byte-code "┴ ëç" [latexinfo-footnote-style latexinfo-parse-arg-discard] 3))
  340.  
  341. (defvar latexinfo-footnote-number)
  342.  
  343. (put (quote footnote) (quote latexinfo-format) (quote latexinfo-format-footnote))
  344.  
  345. (defun latexinfo-format-footnote nil "\
  346. Format a footnote in either end of node or separate node style.
  347. The   latexinfo-footnote-style  variable controls which style is used." (byte-code "Tëê┬    ├\"â─ é┬    ┼\"à╞ ç" [latexinfo-footnote-number latexinfo-footnote-style string= "end" latexinfo-format-end-node "separate" latexinfo-format-separate-node] 5))
  348.  
  349. (defun latexinfo-format-separate-node nil "\
  350. Format footnote in Separate node style, with notes in own node.
  351. The node is constructed automatically." (byte-code "╞╚ è╔╩!ê╦╠!)è═
  352. bê╬╧!ê`╨╤è╥ ê`)─#â+`Sé/╥ ê`\")╙ ê╘è╒╓!ê`)`\"ê╫╪
  353. #cê┘╞!êè┌█╞▄#àW▌▐!êè╔ ▀P
  354. ─#)âv`ëê╫α
  355.     #cêß`\"éæΓπΣ ▀ σ&ê`ëê╫α
  356.     #cêß`\"),ç" [start arg node-name-beginning node-name t latexinfo-footnote-number nil latexinfo-format-filename latexinfo-parse-line-arg re-search-backward "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[     ]+Node:" match-end 0 buffer-substring skip-chars-forward "     " search-forward "," end-of-line latexinfo-discard-command delete-region skip-chars-backward "     
  357. " format " (%d) (*Note %s-Footnotes::)" fill-paragraph re-search-forward "^\\\\node" move forward-line -1 "-Footnotes, Up: " "
  358. (%d)  %s
  359. " fill-region insert "
  360. 
  361. File: " "  Node: " "
  362. "] 26))
  363.  
  364. (defun latexinfo-format-end-node nil "\
  365. Format footnote in the End of node style, with notes at end of node." (byte-code "├┼ ╞ ê╟è╚╔!ê`)`\"ê╩╦
  366. \"cê╠├!êè═╬├─#âD╧╨├╤#à1╥╙!ê`ëê╩╘
  367.     #cê╒`\"é]╧╨├╤#àO╥╙!ê╬cê`ëê╩╘
  368.     #c)*ç" [start arg latexinfo-footnote-number nil t latexinfo-parse-line-arg latexinfo-discard-command delete-region skip-chars-backward "     
  369. " format " (%d) " fill-paragraph search-forward "
  370. --------- Footnotes ---------
  371. " re-search-forward "^\\\\node" move forward-line -1 "
  372. (%d)  %s
  373. " fill-region] 17))
  374.  
  375. (defvar latexinfo-stack-depth 0 "\
  376. Count of number of unpopped latexinfo-push-stack calls.
  377. Used by \\refill indenting command to avoid indenting within lists, etc.")
  378.  
  379. (defun latexinfo-push-stack (check arg) (byte-code "Tëê
  380. E    Bëç" [latexinfo-stack-depth latexinfo-stack check arg latexinfo-command-start] 3))
  381.  
  382. (defun latexinfo-pop-stack (check) (byte-code "Sëê    ?à├─
  383. \"ê    @@
  384. =?à├┼
  385.     @@#ê    @A    Aëêç" [latexinfo-stack-depth latexinfo-stack check error "Unmatched \\end{%s}" "\\end{%s} matches \\begin{%s}"] 5))
  386.  
  387. (put (quote itemize) (quote latexinfo-format) (quote latexinfo-itemize))
  388.  
  389. (defun latexinfo-itemize nil (byte-code "┴┬├\"ê─Zëê┼ ç" [fill-column latexinfo-push-stack itemize "*" 5 latexinfo-discard-line] 3))
  390.  
  391. (put (quote itemize) (quote latexinfo-end) (quote latexinfo-end-itemize))
  392.  
  393. (defun latexinfo-end-itemize nil (byte-code "┬\\ëê├ ê─┼!╞╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack itemize latexinfo-do-itemize 1] 5))
  394.  
  395. (put (quote enumerate) (quote latexinfo-format) (quote latexinfo-enumerate))
  396.  
  397. (defun latexinfo-enumerate nil (byte-code "┴┬├\"ê─Zëê┼ ç" [fill-column latexinfo-push-stack enumerate 0 5 latexinfo-discard-line] 3))
  398.  
  399. (put (quote enumerate) (quote latexinfo-end) (quote latexinfo-end-enumerate))
  400.  
  401. (defun latexinfo-end-enumerate nil (byte-code "┬\\ëê├ ê─┼!╞╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack enumerate latexinfo-do-itemize 1] 5))
  402.  
  403. (put (quote center) (quote latexinfo-format) (quote latexinfo-format-center))
  404.  
  405. (defun latexinfo-format-center nil (byte-code "└┴┬\"ê├ ç" [latexinfo-push-stack center 0 latexinfo-discard-line] 3))
  406.  
  407. (put (quote center) (quote latexinfo-end) (quote latexinfo-end-center))
  408.  
  409. (defun latexinfo-end-center nil (byte-code "┴ ê┬├!─┼8!)ç" [stacktop latexinfo-discard-command latexinfo-pop-stack center latexinfo-do-center 1] 5))
  410.  
  411. (defun latexinfo-do-center (from) (byte-code "┴mån?à├─!ê├┼!ê`
  412. Yà\"┴╞ )êé)ç" [indent-tabs-mode nil from forward-line 1 -1 center-line] 5))
  413.  
  414. (put (quote caption) (quote latexinfo-format) (quote latexinfo-caption))
  415.  
  416. (defun latexinfo-caption nil (byte-code "┬├─ #cê┼ ê    bç" [latexinfo-table-number latexinfo-command-start format "Table %d : %s" latexinfo-parse-arg-discard center-line] 5))
  417.  
  418. (put (quote &) (quote latexinfo-format) (quote latexinfo-format-&))
  419.  
  420. (defun latexinfo-format-& nil (byte-code "┴┬\"?à
  421. ├ ê─cç" [latexinfo-stack assoc tabular latexinfo-parse-noarg "&"] 3))
  422.  
  423. (put (quote displaymath) (quote latexinfo-format) (quote latexinfo-format-displaymath))
  424.  
  425. (put (quote displaymath) (quote latexinfo-end) (quote latexinfo-discard-command))
  426.  
  427. (defun latexinfo-format-displaymath nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]displaymath[ }
  428. ]"] 4))
  429.  
  430. (put (quote equation) (quote latexinfo-format) (quote latexinfo-format-equation))
  431.  
  432. (put (quote equation) (quote latexinfo-end) (quote latexinfo-discard-command))
  433.  
  434. (defun latexinfo-format-equation nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]equation[ }
  435. ]"] 4))
  436.  
  437. (put (quote eqnarray) (quote latexinfo-format) (quote latexinfo-format-eqnarray))
  438.  
  439. (put (quote eqnarray) (quote latexinfo-end) (quote latexinfo-discard-command))
  440.  
  441. (defun latexinfo-format-eqnarray nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]eqnarray[ }
  442. ]"] 4))
  443.  
  444. (put (quote array) (quote latexinfo-format) (quote latexinfo-format-array))
  445.  
  446. (put (quote array) (quote latexinfo-end) (quote latexinfo-discard-command))
  447.  
  448. (defun latexinfo-format-array nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]array[ }
  449. ]"] 4))
  450.  
  451. (put (quote tabular) (quote latexinfo-format) (quote latexinfo-format-tabular))
  452.  
  453. (put (quote tabular) (quote latexinfo-end) (quote latexinfo-end-tabular))
  454.  
  455. (defun latexinfo-format-tabular nil (byte-code "┴┬└\"ê├ ç" [nil latexinfo-push-stack tabular latexinfo-discard-line-with-args] 3))
  456.  
  457. (defun latexinfo-end-tabular nil (byte-code "┴ ê┬├!─┼8!)ç" [stacktop latexinfo-discard-command latexinfo-pop-stack tabular latexinfo-do-tabular 1] 5))
  458.  
  459. (put (quote hline) (quote latexinfo-format) (quote latexinfo-format-hline))
  460.  
  461. (put (quote rule) (quote latexinfo-format) (quote latexinfo-format-hline))
  462.  
  463. (defun latexinfo-format-hline nil (byte-code "┬    ├\"─ ên?à┼cê╞┼\")ç" [dashes fill-column make-string 45 latexinfo-discard-line-with-args "
  464. " insert] 5))
  465.  
  466. (defun latexinfo-do-tabular (from) (byte-code "`è├    \"ê    bê─┼┬#à3è╞╟!ê╚╔!?)â)╩╦!ê╠cé/╩╟!ê┼cêé ê    bê═╬╧\"ê╨    \"ê╤ ))ç" [end from t narrow-to-region search-forward "&" forward-char -2 looking-at "\\\\" delete-char -1 " " quietly-replace-regexp "\\\\\\\\$" "" untabify widen] 10))
  467.  
  468. (put (quote table) (quote latexinfo-format) (quote latexinfo-format-table))
  469.  
  470. (put (quote table*) (quote latexinfo-format) (quote latexinfo-format-table))
  471.  
  472. (put (quote table) (quote latexinfo-end) (quote latexinfo-discard-command))
  473.  
  474. (defun latexinfo-format-table nil (byte-code "┴ êTëç" [latexinfo-table-number latexinfo-discard-line-with-args] 3))
  475.  
  476. (put (quote figure) (quote latexinfo-format) (quote latexinfo-format-figure))
  477.  
  478. (put (quote figure*) (quote latexinfo-format) (quote latexinfo-format-figure))
  479.  
  480. (put (quote figure) (quote latexinfo-end) (quote latexinfo-discard-command))
  481.  
  482. (defun latexinfo-format-figure nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]figure[ }]*
  483. "] 4))
  484.  
  485. (put (quote description) (quote latexinfo-format) (quote latexinfo-description))
  486.  
  487. (defun latexinfo-description nil (byte-code "┴┬├\"ê─Zëê┼ ç" [fill-column latexinfo-push-stack description "" 5 latexinfo-discard-line] 3))
  488.  
  489. (put (quote description) (quote latexinfo-end) (quote latexinfo-end-description))
  490.  
  491. (defun latexinfo-end-description nil (byte-code "┬\\ëê├ ê─┼!╞╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack description latexinfo-do-itemize 1] 5))
  492.  
  493. (put (quote description) (quote latexinfo-item) (quote latexinfo-description-item))
  494.  
  495. (defun latexinfo-description-item nil (byte-code "┴ ┬├─#)ê┼╞!ç" [arg latexinfo-parse-arg-discard insert 8 "
  496.      
  497. " forward-line -2] 5))
  498.  
  499. (defun latexinfo-do-itemize (from) (byte-code "è┬├!ê`Yà;g─Uâ è┼╞!ê╟ ê┼╚!)é7è┴à3╔╩!à3╦`╠═!ê`\"ê╬c)êé)ç" [from nil forward-line -1 8 delete-char 1 end-of-line 6 looking-at "[     ]" delete-region skip-chars-forward "     " "     "] 10))
  500.  
  501. (put (quote item) (quote latexinfo-format) (quote latexinfo-item))
  502.  
  503. (defun latexinfo-item nil (byte-code "┴@@┬N!ç" [latexinfo-stack funcall latexinfo-item] 3))
  504.  
  505. (put (quote itemize) (quote latexinfo-item) (quote latexinfo-itemize-item))
  506.  
  507. (defun latexinfo-itemize-item nil (byte-code "┴ ê┬├─@8┼#ê╞╟!ç" [latexinfo-stack latexinfo-parse-noarg insert "   " 1 " 
  508. " forward-line -1] 5))
  509.  
  510. (put (quote enumerate) (quote latexinfo-item) (quote latexinfo-enumerate-item))
  511.  
  512. (defun latexinfo-enumerate-item nil (byte-code "┬ ê    @A@T├    @A\"ê─┼╞╟\"╚#)ê╔╩!ç" [next latexinfo-stack latexinfo-parse-noarg setcar insert 8 format "%3d. " 10 forward-line -1] 7))
  513.  
  514. (put (quote ifinfo) (quote latexinfo-format) (quote latexinfo-discard-line))
  515.  
  516. (put (quote ifinfo) (quote latexinfo-end) (quote latexinfo-discard-command))
  517.  
  518. (put (quote iftex) (quote latexinfo-format) (quote latexinfo-format-iftex))
  519.  
  520. (defun latexinfo-format-iftex nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]iftex[ }
  521. ]"] 4))
  522.  
  523. (put (quote tex) (quote latexinfo-format) (quote latexinfo-format-tex))
  524.  
  525. (defun latexinfo-format-tex nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\end[ {]tex[     }
  526. ]"] 4))
  527.  
  528. (put (quote ignore) (quote latexinfo-format) (quote latexinfo-format-ignore))
  529.  
  530. (defun latexinfo-format-ignore nil (byte-code "┴┬├!ê`\"ç" [latexinfo-command-start delete-region re-search-forward "\\\\end[ {]ignore[     }
  531. ]"] 4))
  532.  
  533. (put (quote endignore) (quote latexinfo-format) (quote latexinfo-discard-line))
  534.  
  535. (put (quote VAR) (quote latexinfo-format) (quote latexinfo-format-var))
  536.  
  537. (put (quote var) (quote latexinfo-format) (quote latexinfo-format-var))
  538.  
  539. (defun latexinfo-format-var nil (byte-code "┴┬ !cêbç" [latexinfo-command-start upcase latexinfo-parse-arg-discard] 3))
  540.  
  541. (put (quote b) (quote latexinfo-format) (quote latexinfo-format-noop))
  542.  
  543. (put (quote r) (quote latexinfo-format) (quote latexinfo-format-noop))
  544.  
  545. (put (quote scap) (quote latexinfo-format) (quote latexinfo-format-noop))
  546.  
  547. (put (quote n) (quote latexinfo-format) (quote latexinfo-format-noop))
  548.  
  549. (put (quote t) (quote latexinfo-format) (quote latexinfo-format-noop))
  550.  
  551. (put (quote i) (quote latexinfo-format) (quote latexinfo-format-noop))
  552.  
  553. (put (quote key) (quote latexinfo-format) (quote latexinfo-format-noop))
  554.  
  555. (put (quote dmn) (quote latexinfo-format) (quote latexinfo-format-noop))
  556.  
  557. (put (quote w) (quote latexinfo-format) (quote latexinfo-format-noop))
  558.  
  559. (defun latexinfo-format-noop nil (byte-code "┴ cêbç" [latexinfo-command-start latexinfo-parse-arg-discard] 2))
  560.  
  561. (put (quote CODE) (quote latexinfo-format) (quote latexinfo-format-code))
  562.  
  563. (put (quote code) (quote latexinfo-format) (quote latexinfo-format-code))
  564.  
  565. (put (quote samp) (quote latexinfo-format) (quote latexinfo-format-code))
  566.  
  567. (put (quote file) (quote latexinfo-format) (quote latexinfo-format-code))
  568.  
  569. (put (quote kbd) (quote latexinfo-format) (quote latexinfo-format-code))
  570.  
  571. (defun latexinfo-format-code nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "`" latexinfo-parse-arg-discard "'"] 5))
  572.  
  573. (put (quote emph) (quote latexinfo-format) (quote latexinfo-format-emph))
  574.  
  575. (put (quote strong) (quote latexinfo-format) (quote latexinfo-format-emph))
  576.  
  577. (defun latexinfo-format-emph nil (byte-code "┴┬├ ┬#êbç" [latexinfo-command-start insert "*" latexinfo-parse-arg-discard] 5))
  578.  
  579. (put (quote defn) (quote latexinfo-format) (quote latexinfo-format-defn))
  580.  
  581. (put (quote dfn) (quote latexinfo-format) (quote latexinfo-format-defn))
  582.  
  583. (defun latexinfo-format-defn nil (byte-code "┴┬├ ┬#êbç" [latexinfo-command-start insert "\"" latexinfo-parse-arg-discard] 5))
  584.  
  585. (put (quote bullet) (quote latexinfo-format) (quote latexinfo-format-bullet))
  586.  
  587. (defun latexinfo-format-bullet nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "*"] 2))
  588.  
  589. (put (quote smallexample) (quote latexinfo-format) (quote latexinfo-format-example))
  590.  
  591. (put (quote example) (quote latexinfo-format) (quote latexinfo-format-example))
  592.  
  593. (put (quote quotation) (quote latexinfo-format) (quote latexinfo-format-example))
  594.  
  595. (put (quote quote) (quote latexinfo-format) (quote latexinfo-format-example))
  596.  
  597. (put (quote abstract) (quote latexinfo-format) (quote latexinfo-format-example))
  598.  
  599. (put (quote display) (quote latexinfo-format) (quote latexinfo-format-example))
  600.  
  601. (defun latexinfo-format-example nil (byte-code "┬├└\"ê    ─Zëê┼ ç" [nil fill-column latexinfo-push-stack example 5 latexinfo-discard-to-eoline] 3))
  602.  
  603. (put (quote smallexample) (quote latexinfo-end) (quote latexinfo-end-example))
  604.  
  605. (put (quote example) (quote latexinfo-end) (quote latexinfo-end-example))
  606.  
  607. (put (quote quotation) (quote latexinfo-end) (quote latexinfo-end-example))
  608.  
  609. (put (quote quote) (quote latexinfo-end) (quote latexinfo-end-example))
  610.  
  611. (put (quote abstract) (quote latexinfo-end) (quote latexinfo-end-example))
  612.  
  613. (put (quote display) (quote latexinfo-end) (quote latexinfo-end-example))
  614.  
  615. (defun latexinfo-end-example nil (byte-code "┬\\ëê├ ê─┼!╞╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack example latexinfo-do-itemize 1] 5))
  616.  
  617. (put (quote smalllisp) (quote latexinfo-format) (quote latexinfo-format-lisp))
  618.  
  619. (put (quote lisp) (quote latexinfo-format) (quote latexinfo-format-lisp))
  620.  
  621. (defun latexinfo-format-lisp nil (byte-code "┬├└\"ê    ─Zëê┼ ç" [nil fill-column latexinfo-push-stack lisp 5 latexinfo-discard-to-eoline] 3))
  622.  
  623. (put (quote smalllisp) (quote latexinfo-end) (quote latexinfo-end-lisp))
  624.  
  625. (put (quote lisp) (quote latexinfo-end) (quote latexinfo-end-lisp))
  626.  
  627. (defun latexinfo-end-lisp nil (byte-code "┬\\ëê├ ê─┼!╞╟    8`\"ê╚╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack lisp untabify 1 latexinfo-do-itemize] 6))
  628.  
  629. (put (quote exdent) (quote latexinfo-format) (quote latexinfo-format-exdent))
  630.  
  631. (defun latexinfo-format-exdent nil (byte-code "└ ê┴`┬├!ê`\"ê─cêè┼ ê╞c)ç" [latexinfo-discard-command delete-region skip-chars-forward " " 8 end-of-line "
  632.      "] 5))
  633.  
  634. (put (quote smallverbatim) (quote latexinfo-format) (quote latexinfo-format-smallverbatim))
  635.  
  636. (put (quote smallverbatim) (quote latexinfo-end) (quote latexinfo-end-smallverbatim))
  637.  
  638. (defun latexinfo-end-smallverbatim nil (byte-code "└┴!ç" [error "Nested verbatim environments are not supported"] 2))
  639.  
  640. (put (quote verbatim) (quote latexinfo-format) (quote latexinfo-format-verbatim))
  641.  
  642. (defun latexinfo-format-verbatim nil (byte-code "┴ ê┬`├─└└#ê`\"ê┼╞!ê╟`è╚╞!ê`)\"ç" [nil latexinfo-discard-line untabify re-search-forward "\\\\end{verbatim}" beginning-of-line 1 delete-region forward-line] 8))
  643.  
  644. (put (quote smallverbatim) (quote latexinfo-format) (quote latexinfo-format-smallverbatim))
  645.  
  646. (defun latexinfo-format-smallverbatim nil (byte-code "┴ ê┬`├─└└#ê`\"ê┼╞!ê╟`è╚╞!ê`)\"ç" [nil latexinfo-discard-line untabify re-search-forward "\\\\end{smallverbatim}" beginning-of-line 1 delete-region forward-line] 8))
  647.  
  648. (put (quote verbatimfile) (quote latexinfo-format) (quote latexinfo-format-verbatimfile))
  649.  
  650. (defun latexinfo-format-verbatimfile nil (byte-code "`┬├!ê─ ê┼`╞╟┴┴#ê`\"ê╚├!ê╔`è╩├!ê`)\")ç" [from nil forward-char 1 latexinfo-insert-input-files untabify re-search-forward "\\\\end{verbatim}" beginning-of-line delete-region forward-line] 9))
  651.  
  652. (put (quote smallverbatimfile) (quote latexinfo-format) (quote latexinfo-format-smallverbatimfile))
  653.  
  654. (defun latexinfo-format-smallverbatimfile nil (byte-code "`┬├!ê─ ê┼`╞╟┴┴#ê`\"ê╚├!ê╔`è╩├!ê`)\")ç" [from nil forward-char 1 latexinfo-insert-input-files untabify re-search-forward "\\\\end{smallverbatim}" beginning-of-line delete-region forward-line] 9))
  655.  
  656. (put (quote verbatim) (quote latexinfo-end) (quote latexinfo-end-verbatim))
  657.  
  658. (defun latexinfo-end-verbatim nil (byte-code "└┴!ç" [error "Nested verbatim environments are not supported"] 2))
  659.  
  660. (put (quote verb) (quote latexinfo-format) (quote latexinfo-format-verb))
  661.  
  662. (defun latexinfo-format-verb nil "\
  663. Handle the LaTeX \\verb command." (byte-code "├    \"ê─`┼`\\\"╞┼!ê╟╚
  664. P!ê╞┼!)ç" [latexinfo-command-start latexinfo-command-end the-char delete-region buffer-substring 1 delete-char skip-chars-forward "^"] 6))
  665.  
  666. (put (quote cartouche) (quote latexinfo-format) (quote latexinfo-discard-line))
  667.  
  668. (put (quote cartouche) (quote latexinfo-end) (quote latexinfo-discard-command))
  669.  
  670. (put (quote format) (quote latexinfo-format) (quote latexinfo-format-flushleft))
  671.  
  672. (put (quote flushleft) (quote latexinfo-format) (quote latexinfo-format-flushleft))
  673.  
  674. (defun latexinfo-format-flushleft nil (byte-code "└ ç" [latexinfo-discard-line] 2))
  675.  
  676. (put (quote format) (quote latexinfo-end) (quote latexinfo-end-flushleft))
  677.  
  678. (put (quote flushleft) (quote latexinfo-end) (quote latexinfo-end-flushleft))
  679.  
  680. (defun latexinfo-end-flushleft nil (byte-code "└ ç" [latexinfo-discard-command] 2))
  681.  
  682. (put (quote flushright) (quote latexinfo-format) (quote latexinfo-format-flushright))
  683.  
  684. (defun latexinfo-format-flushright nil (byte-code "┴┬└\"ê├ ç" [nil latexinfo-push-stack flushright latexinfo-discard-line] 3))
  685.  
  686. (put (quote flushright) (quote latexinfo-end) (quote latexinfo-end-flushright))
  687.  
  688. (defun latexinfo-end-flushright nil (byte-code "┴ ê┬├!─┼8!)ç" [stacktop latexinfo-discard-command latexinfo-pop-stack flushright latexinfo-do-flushright 1] 5))
  689.  
  690. (defun latexinfo-do-flushright (from) (byte-code "è┬├!ê`Yà*─ ê┼    è╞ ê╟╚!ê╔`╞ ê`\"êi)Z╩\"cêé)ç" [from fill-column forward-line -1 beginning-of-line make-string end-of-line skip-chars-backward "     " delete-region 32] 11))
  691.  
  692. (put (quote beforenoterule) (quote latexinfo-format) (quote latexinfo-format-hline))
  693.  
  694. (put (quote afternoterule) (quote latexinfo-format) (quote latexinfo-format-hline))
  695.  
  696. (put (quote betweennoterule) (quote latexinfo-format) (quote latexinfo-format-hline))
  697.  
  698. (put (quote implementation) (quote latexinfo-format) (quote latexinfo-format-note))
  699.  
  700. (put (quote rationale) (quote latexinfo-format) (quote latexinfo-format-note))
  701.  
  702. (put (quote sideremark) (quote latexinfo-format) (quote latexinfo-format-note))
  703.  
  704. (put (quote note) (quote latexinfo-format) (quote latexinfo-format-note))
  705.  
  706. (defun latexinfo-format-note nil (byte-code "┬├└\"ê    ─Zëê┼ ç" [nil fill-column latexinfo-push-stack example 5 latexinfo-discard-line] 3))
  707.  
  708. (put (quote implementation) (quote latexinfo-end) (quote latexinfo-end-note))
  709.  
  710. (put (quote rationale) (quote latexinfo-end) (quote latexinfo-end-note))
  711.  
  712. (put (quote sideremark) (quote latexinfo-end) (quote latexinfo-end-note))
  713.  
  714. (put (quote note) (quote latexinfo-end) (quote latexinfo-end-note))
  715.  
  716. (defun latexinfo-end-note nil (byte-code "┬\\ëê├ ê─┼!╞╟    8!)ç" [fill-column stacktop 5 latexinfo-discard-command latexinfo-pop-stack example latexinfo-do-itemize 1] 5))
  717.  
  718. (put (quote ctrl) (quote latexinfo-format) (quote latexinfo-format-ctrl))
  719.  
  720. (defun latexinfo-format-ctrl nil (byte-code "┴ ┬├\")ç" [str latexinfo-parse-arg-discard insert "^"] 4))
  721.  
  722. (put (quote TeX) (quote latexinfo-format) (quote latexinfo-format-TeX))
  723.  
  724. (defun latexinfo-format-TeX nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "TeX"] 2))
  725.  
  726. (put (quote copyright) (quote latexinfo-format) (quote latexinfo-format-copyright))
  727.  
  728. (defun latexinfo-format-copyright nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "(C)"] 2))
  729.  
  730. (put (quote minus) (quote latexinfo-format) (quote latexinfo-format-minus))
  731.  
  732. (defun latexinfo-format-minus nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "-"] 2))
  733.  
  734. (put (quote DOTS) (quote latexinfo-format) (quote latexinfo-format-dots))
  735.  
  736. (put (quote dots) (quote latexinfo-format) (quote latexinfo-format-dots))
  737.  
  738. (defun latexinfo-format-dots nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "..."] 2))
  739.  
  740. (defvar latexinfo-paragraph-indent "asis" "\
  741. Number of spaces for \\refill to indent a paragraph; else to leave as is.")
  742.  
  743. (put (quote paragraphindent) (quote latexinfo-format) (quote latexinfo-paragraphindent))
  744.  
  745. (defun latexinfo-paragraphindent nil "\
  746. Specify the number of spaces for 
  747. efill to indent a paragraph.
  748. Default is to leave the number of spaces as is." (byte-code "┬ ├─\"â─ëé┼!ë)ç" [arg latexinfo-paragraph-indent latexinfo-parse-arg-discard string= "asis" string-to-int] 5))
  749.  
  750. (put (quote refill) (quote latexinfo-format) (quote latexinfo-format-refill))
  751.  
  752. (defun latexinfo-format-refill nil "\
  753. Refill paragraph. Also, indent first line as set by \\paragraphindent.
  754. Default is to leave paragraph indentation as is." (byte-code "─ ê┼╞!ê╟╚!à╔╩!êè╔╞!ê╟╦!)â,╔╞!ê╠`╔╩!ê`\"éG═╬\"åG    ╧VåG╠`╨╤!ê`\"ê╥╙\"cê┼╩!ê╔╞!ê╘ ê╒├!ç" [latexinfo-paragraph-indent latexinfo-stack-depth t nil latexinfo-discard-command forward-paragraph -1 looking-at "[     
  755. ]*$" forward-line 1 "^\\\\noindent" delete-region equal "asis" 0 skip-chars-forward "     " make-string 32 end-of-line fill-paragraph] 18))
  756.  
  757. (put (quote noindent) (quote latexinfo-format) (quote latexinfo-noindent))
  758.  
  759. (defun latexinfo-noindent nil (byte-code "è┬├!ê─┼è╞╟!ê`)└#â┴é╚ )ç" [t nil forward-paragraph 1 search-backward "\\refill" forward-line -1 latexinfo-discard-line] 6))
  760.  
  761. (put (quote vindex) (quote latexinfo-format) (quote latexinfo-format-vindex))
  762.  
  763. (defun latexinfo-format-vindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-vindex] 2))
  764.  
  765. (put (quote cindex) (quote latexinfo-format) (quote latexinfo-format-cindex))
  766.  
  767. (defun latexinfo-format-cindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-cindex] 2))
  768.  
  769. (put (quote findex) (quote latexinfo-format) (quote latexinfo-format-findex))
  770.  
  771. (defun latexinfo-format-findex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-findex] 2))
  772.  
  773. (put (quote pindex) (quote latexinfo-format) (quote latexinfo-format-pindex))
  774.  
  775. (defun latexinfo-format-pindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-pindex] 2))
  776.  
  777. (put (quote tindex) (quote latexinfo-format) (quote latexinfo-format-tindex))
  778.  
  779. (defun latexinfo-format-tindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-tindex] 2))
  780.  
  781. (put (quote kindex) (quote latexinfo-format) (quote latexinfo-format-kindex))
  782.  
  783. (defun latexinfo-format-kindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-kindex] 2))
  784.  
  785. (put (quote label) (quote latexinfo-format) (quote latexinfo-format-refindex))
  786.  
  787. (defun latexinfo-format-refindex nil (byte-code "└┴!ç" [latexinfo-index latexinfo-refindex] 2))
  788.  
  789. (defun latexinfo-index (indexvar) (byte-code "─ ┼ êlànàm?à╞╟!ê    
  790. â&╚ `\"Té'╟E    JBL)ç" [arg indexvar latexinfo-last-node latexinfo-last-node-pos latexinfo-parse-expanded-arg latexinfo-discard-command delete-char 1 count-lines] 9))
  791.  
  792. (put (quote pageref) (quote latexinfo-format) (quote latexinfo-format-ref))
  793.  
  794. (put (quote ref) (quote latexinfo-format) (quote latexinfo-format-ref))
  795.  
  796. (defun latexinfo-format-ref nil (byte-code "└┴ ┬\"ç" [latexinfo-format-do-ref latexinfo-parse-arg-discard latexinfo-refindex] 4))
  797.  
  798. (defun latexinfo-format-do-ref (arg index) (byte-code "├    
  799. J\"àAàA@â─┼A@╞#éG├    ╟╚
  800. !╔P!J\"à7Aà7A@âD─┼A@╞#éF╩c))ç" [entry arg index assoc insert "*Note " "::" intern symbol-name "-old" "?"] 9))
  801.  
  802. (defconst latexinfo-indexvar-alist (quote (("cp" . latexinfo-cindex) ("fn" . latexinfo-findex) ("vr" . latexinfo-vindex) ("tp" . latexinfo-tindex) ("pg" . latexinfo-pindex) ("ky" . latexinfo-kindex))))
  803.  
  804. (put (quote printindex) (quote latexinfo-format) (quote latexinfo-format-printindex))
  805.  
  806. (defun latexinfo-format-printindex nil (byte-code "┼╞     \"AJ├╟cê`ëê╚├\"ê ╔=â#╩
  807. `\"é)╦
  808. `╠═$*ç" [indexelts latexinfo-indexvar-alist opoint nil system-type assoc latexinfo-parse-arg-discard "
  809. * Menu:
  810.  
  811. " latexinfo-print-index vax-vms latexinfo-sort-region shell-command-on-region "sort -fd" 1] 9))
  812.  
  813. (defun latexinfo-print-index (file indexelts) (byte-code "à:@@;â'┬├@@─    â┼    ╞Qé╟╚@8╔&é1╩╚@8╦@8\"êAëêéç" [indexelts file insert "* " ": " "(" ")" "" 1 ".
  814. " latexinfo-print-index 2] 8))
  815.  
  816. (put (quote clear) (quote latexinfo-format) (quote latexinfo-clear))
  817.  
  818. (defun latexinfo-clear nil "\
  819. Clear the value of the flag." (byte-code "┬ ├─!!?à┼╞\"ê╟ ê─!┴L)ç" [arg nil latexinfo-parse-line-arg boundp intern error "\\clear flag `%s' is not defined by a \\set command." latexinfo-discard-command] 8))
  820.  
  821. (put (quote set) (quote latexinfo-format) (quote latexinfo-set))
  822.  
  823. (defun latexinfo-set nil "\
  824. Set the value of the flag." (byte-code "┬ ├─!!ê─!┴L)ç" [arg t latexinfo-parse-arg-discard make-local-variable intern] 6))
  825.  
  826. (put (quote ifset) (quote latexinfo-end) (quote latexinfo-discard-command))
  827.  
  828. (put (quote ifset) (quote latexinfo-format) (quote latexinfo-if-set))
  829.  
  830. (defun latexinfo-if-set nil "\
  831. If set, continue formatting; else do not format region up to \\end{ifset}" (byte-code "├ ─┼!!?à╞╟\"ê╚ ê┼!Jâ┴é'╔
  832. ╩╦!ê`\")ç" [arg nil latexinfo-command-start latexinfo-parse-line-arg boundp intern error "\\ifset flag `%s' is not defined by a \\set command." latexinfo-discard-command delete-region re-search-forward "\\\\end[ {]ifset[ }    ]*
  833. "] 10))
  834.  
  835. (put (quote ifclear) (quote latexinfo-end) (quote latexinfo-discard-command))
  836.  
  837. (put (quote ifclear) (quote latexinfo-format) (quote latexinfo-if-clear))
  838.  
  839. (defun latexinfo-if-clear nil "\
  840. If clear, do not format up to \\end{ifclear}; else continue formatting." (byte-code "┬ ├─!!?à┼╞\"ê╟ ê─!Jà#╚    ╔╩!ê`\")ç" [arg latexinfo-command-start latexinfo-parse-line-arg boundp intern error "\\ifclear flag `%s' is not defined by a \\set command." latexinfo-discard-command delete-region re-search-forward "\\\\end[ {]ifset[ }    ]*
  841. "] 10))
  842.  
  843. (put (quote include) (quote latexinfo-format) (quote latexinfo-format-include))
  844.  
  845. (defun latexinfo-format-include nil (byte-code "┼ 
  846. ╞è╟╚!âé=╚╔P!â!╔Pé=╚╩P!â/╩Pé=╚!â9é=╦╠\"!ê═ )ëê╬╧ @╨ 8#ê╬╤ @╥ 8#ê╬╙ @╘ 8#ê╬╒ @╓ 8#ê╬╫ @╪ 8#ê╬┘ @┌ 8#+ç" [filename default-directory input-directory subindex t latexinfo-parse-arg-discard nil find-file file-readable-p ".latexinfo" ".tex" error "\\include'd file %s not found" latexinfo-format-buffer-1 latexinfo-subindex latexinfo-vindex 1 latexinfo-findex 2 latexinfo-cindex 3 latexinfo-pindex 4 latexinfo-tindex 5 latexinfo-kindex 6] 18))
  847.  
  848. (defun latexinfo-subindex (indexvar file content) (byte-code "├    
  849. EJBLç" [indexvar file content recurse] 4))
  850.  
  851. (defun latexinfo-sort-region (start end) (byte-code "├─!êî┼    \"ê╞┬╟╚╔$)ç" [start end nil require sort narrow-to-region sort-subr forward-line end-of-line latexinfo-sort-startkeyfun] 7))
  852.  
  853. (defun latexinfo-sort-startkeyfun nil (byte-code "┴`è┬ ê`)\"├─\"à&┼╞┼!O╟╚┼!GOQëêé
  854. ê)ç" [line buffer-substring end-of-line string-match "[     ][     ]+\\|[^a-z0-9 ]+" 0 match-beginning " " match-end] 11))
  855.  
  856. (defun latexinfo-unsupported nil (byte-code "┬├─    \"\"ê┼ ç" [latexinfo-command-start latexinfo-command-end message "Unsupported LaTeXinfo command: %s" buffer-substring latexinfo-parse-noarg] 5))
  857.  
  858. (defun batch-latexinfo-format nil "\
  859. Runs  latexinfo-format-buffer  on the files remaining on the command line.
  860. Must be used only with -batch, and kills emacs on completion.
  861. Each file will be processed even if an error occurred previously.
  862. For example, invoke
  863.   \"emacs -batch -funcall batch-latexinfo-format $docs/ ~/*.tex\"." (byte-code "?à╚╠!ê┬──══╬──
  864.      àm╧ @!ë    ê╨    !?âF╤╥    \"ê╙ Aë éi╘    !â\\╒╓    ! A\"ë éi    
  865. B
  866.  Aë êéê
  867. àç
  868. @    
  869. Aë
  870. ê╫╪┘Åêé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-latexinfo-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 latexinfo-mode message "Latexinfo formatting %s..." latexinfo-format-buffer buffer-modified-p "Saving modified %s" save-buffer] 12) ((error (byte-code "├─┼!\"ê├╞!ê╟``╚\\d^\"╔╩╦    
  871. #ëà7    ╔╠╔!O═    ╬╔!╧OQ
  872. Tëêéê├╨    \"*ç" [err s tem message ">> Error: %s" prin1-to-string ">>  point at" buffer-substring 100 0 string-match "
  873. +" match-beginning "
  874. >>  " match-end nil ">>  %s"] 13)) (setq (byte-code "ê┴ç" [error 1] 1))) kill-emacs] 11))
  875.  
  876. (defun latexinfo-run-documentstyle-hooks nil "\
  877. Foreach \\documentstyle-argument DOCSTYLE, look for DOCSTYLE-fmt.[el,elc]
  878. in the current directory or load-path. If DOCSTYLE-fmt-hook is bound, run it." (byte-code "ebê╦╠!ê═╬!àó`Tè╦╧!ê`)├ ?à\"
  879. ëê╨╤    ╞#à<╥`S\"
  880. Bëê`ëêé#ê╙
  881. !ëê
  882. àí
  883. @├╘!    >?àù╒╓\"ê╫╪P╞\"âæ╘┘P!
  884. ┌
  885. !àå╒█\"ê▄▌!ê▐
  886. !ê╒▀P!)éù╒αP!ê
  887. Aë*êéC+ç" [begin end options-list nil latexinfo-formats-directory default-directory t option filename latexinfo-known-document-styles option-symbol search-forward "\\documentstyle" looking-at "\\[" "]" re-search-forward ",\\|]" buffer-substring nreverse intern message "Checking formatting option %s" load "-fmt" "-fmt-hook" fboundp "Running %s formatting hooks" sit-for 1 funcall "Done loading file %s" "-fmt not found"] 19))
  888.  
  889. (put (quote BACK) (quote latexinfo-format) (quote latexinfo-format-backslash))
  890.  
  891. (put (quote back) (quote latexinfo-format) (quote latexinfo-format-backslash))
  892.  
  893. (defun latexinfo-format-backslash nil "\
  894. replace \\back by \\" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "\\"] 2))
  895.  
  896. (put (quote same) (quote latexinfo-format) (quote latexinfo-discard-command))
  897.  
  898. (put (quote same) (quote latexinfo-end) (quote latexinfo-discard-command))
  899.  
  900. (put (quote cite) (quote latexinfo-format) (quote latexinfo-format-cite))
  901.  
  902. (defun latexinfo-format-cite nil (byte-code "─┼!â3è`┬╞╟!ê╚T`╟Z\"ëê╔`\"êlà%╩╟!ê╦╠═ ╬    ╧%*)é9╦╠═ ╧#ê bç" [here str nil latexinfo-command-start looking-at "[\\[]" forward-sexp 1 buffer-substring delete-region delete-char insert "[" latexinfo-parse-arg-discard ", " "]"] 12))
  903.  
  904. (put (quote hfill) (quote latexinfo-format) (quote latexinfo-format-hfill))
  905.  
  906. (defun latexinfo-format-hfill nil (byte-code "┴ ê┬├è─┼!êi)Z\"ç" [fill-column latexinfo-parse-arg-discard insert-char 32 end-of-line 1] 6))
  907.  
  908. (put (quote S) (quote latexinfo-format) (quote latexinfo-format-S))
  909.  
  910. (defun latexinfo-format-S nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "Section"] 2))
  911.  
  912. (put (quote ss) (quote latexinfo-format) (quote latexinfo-format-ss))
  913.  
  914. (defun latexinfo-format-ss nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "ss"] 2))
  915.  
  916. (put (quote LaTeX) (quote latexinfo-format) (quote latexinfo-format-LaTeX))
  917.  
  918. (defun latexinfo-format-LaTeX nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "LaTeX"] 2))
  919.  
  920. (put (quote BibTeX) (quote latexinfo-format) (quote latexinfo-format-BibTeX))
  921.  
  922. (defun latexinfo-format-BibTeX nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "BibTeX"] 2))
  923.  
  924. (put (quote arrow) (quote latexinfo-format) (quote latexinfo-format-arrow))
  925.  
  926. (put (quote result) (quote latexinfo-format) (quote latexinfo-format-arrow))
  927.  
  928. (defun latexinfo-format-arrow nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "=> "] 2))
  929.  
  930. (put (quote leq) (quote latexinfo-format) (quote latexinfo-format-leq))
  931.  
  932. (defun latexinfo-format-leq nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "<="] 2))
  933.  
  934. (put (quote geq) (quote latexinfo-format) (quote latexinfo-format-geq))
  935.  
  936. (defun latexinfo-format-geq nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg ">="] 2))
  937.  
  938. (put (quote pi) (quote latexinfo-format) (quote latexinfo-format-pi))
  939.  
  940. (defun latexinfo-format-pi nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "pi"] 2))
  941.  
  942. (put (quote quad) (quote latexinfo-format) (quote latexinfo-format-quad))
  943.  
  944. (defun latexinfo-format-quad nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "    "] 2))
  945.  
  946. (put (quote qquad) (quote latexinfo-format) (quote latexinfo-format-qquad))
  947.  
  948. (defun latexinfo-format-qquad nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "      "] 2))
  949.  
  950. (put (quote pm) (quote latexinfo-format) (quote latexinfo-format-pm))
  951.  
  952. (defun latexinfo-format-pm nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "+/-"] 2))
  953.  
  954. (put (quote equiv) (quote latexinfo-format) (quote latexinfo-format-equiv))
  955.  
  956. (defun latexinfo-format-equiv nil "\
  957. Indicate the exact equivalence of two forms; special glyph: ==" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "=="] 2))
  958.  
  959. (put (quote error) (quote latexinfo-format) (quote latexinfo-format-error))
  960.  
  961. (defun latexinfo-format-error nil "\
  962. Indicate that the following text is an error message: error-->" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "error-->"] 2))
  963.  
  964. (put (quote expansion) (quote latexinfo-format) (quote latexinfo-format-expansion))
  965.  
  966. (defun latexinfo-format-expansion nil "\
  967. Indicate the result of a macro expansion; special glyph: ==>" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "==>"] 2))
  968.  
  969. (put (quote point) (quote latexinfo-format) (quote latexinfo-format-point))
  970.  
  971. (defun latexinfo-format-point nil "\
  972. Indicate the position of point; special glyph: -!-" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "-!-"] 2))
  973.  
  974. (put (quote print) (quote latexinfo-format) (quote latexinfo-format-print))
  975.  
  976. (defun latexinfo-format-print nil "\
  977. Indicate printed output; special glyph: -|" (byte-code "└ ê┴cç" [latexinfo-parse-noarg "-|"] 2))
  978.  
  979. (put (quote c) (quote latexinfo-format) (quote latexinfo-discard-commment-line))
  980.  
  981. (put (quote comment) (quote latexinfo-format) (quote latexinfo-discard-commment-line))
  982.  
  983. (defun latexinfo-discard-commment-line nil "\
  984. Discards commment lines, but tries to be more TeX like by deleting 
  985. the following whitespace." (byte-code "└ ê┴ ç" [latexinfo-discard-line-with-args latexinfo-delete-whitespace] 3))
  986.  
  987. (defun latexinfo-discard-line-with-args nil (byte-code "bê┴`┬├!ê`\"ç" [latexinfo-command-start delete-region forward-line 1] 4))
  988.  
  989. (put (quote need) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  990.  
  991. (put (quote newindex) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  992.  
  993. (put (quote synindex) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  994.  
  995. (put (quote syncodeindex) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  996.  
  997. (put (quote parindent) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  998.  
  999. (put (quote lispnarrowing) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1000.  
  1001. (put (quote itemindent) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1002.  
  1003. (put (quote PROTECT) (quote latexinfo-format) (quote latexinfo-parse-protected-argument))
  1004.  
  1005. (put (quote protect) (quote latexinfo-format) (quote latexinfo-parse-protected-argument))
  1006.  
  1007. (defun latexinfo-parse-protected-argument nil (byte-code "bê┴ ê┬├!àè─┼!ê`)ëê╞`TS\"╟ êcç" [latexinfo-command-end latexinfo-delete-whitespace looking-at "{" forward-sexp 1 buffer-substring latexinfo-delete-command] 7))
  1008.  
  1009. (put (quote protect) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  1010.  
  1011. (put (quote PROTECT) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  1012.  
  1013. (put (quote hsize) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1014.  
  1015. (put (quote clearpage) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1016.  
  1017. (put (quote newpage) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1018.  
  1019. (put (quote includeonly) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1020.  
  1021. (put (quote cleardoublepage) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1022.  
  1023. (put (quote tableofcontents) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1024.  
  1025. (put (quote listoftables) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1026.  
  1027. (put (quote listoffigures) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1028.  
  1029. (put (quote vspace) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1030.  
  1031. (put (quote vspace*) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1032.  
  1033. (put (quote markboth) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1034.  
  1035. (put (quote markright) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1036.  
  1037. (put (quote index) (quote latexinfo-format) (quote latexinfo-parse-arg-discard))
  1038.  
  1039. (put (quote bibliographystyle) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1040.  
  1041. (put (quote pagestyle) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1042.  
  1043. (put (quote pagenumbering) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1044.  
  1045. (put (quote part) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1046.  
  1047. (put (quote cpsubindex) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1048.  
  1049. (put (quote documentstyle) (quote latexinfo-format) (quote latexinfo-discard-line-with-args))
  1050.  
  1051. (put (quote author) (quote latexinfo-format) (quote latexinfo-format-author))
  1052.  
  1053. (defun latexinfo-format-author nil (byte-code "└┴!ç" [latexinfo-format-atd "author"] 2))
  1054.  
  1055. (put (quote and) (quote latexinfo-format) (quote latexinfo-format-and))
  1056.  
  1057. (defun latexinfo-format-and nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg 10] 2))
  1058.  
  1059. (put (quote title) (quote latexinfo-format) (quote latexinfo-format-title))
  1060.  
  1061. (defun latexinfo-format-title nil (byte-code "└┴!ç" [latexinfo-format-atd "title"] 2))
  1062.  
  1063. (put (quote date) (quote latexinfo-format) (quote latexinfo-format-date))
  1064.  
  1065. (defun latexinfo-format-date nil (byte-code "└┴!ç" [latexinfo-format-atd "date"] 2))
  1066.  
  1067. (defun latexinfo-format-atd (atd) (byte-code "╞    \"ê╟╚╔\"ê╩╦!â0è`─╠═!ê╬╧!ê╨╤╥\"ê
  1068. bê╬═!*êb)é4╙╘
  1069. \"ç" [latexinfo-command-start latexinfo-command-end here str nil atd delete-region latexinfo-push-stack center 0 looking-at "{" forward-sexp 1 delete-char -1 insert 10 "\\end{center}" error "No argument specified to the %s command"] 10))
  1070.  
  1071. (put (quote today) (quote latexinfo-format) (quote latexinfo-format-today))
  1072.  
  1073. (defun latexinfo-format-today nil (byte-code "┼    \"ê╞ ╟╚╔╞ ─#ê╩╦
  1074. ╠═!╬═!O \"A╧
  1075. ╠╨!╬╨!O╤
  1076. ╠╥!╬╥!O%c*ç" [latexinfo-command-start latexinfo-command-end date-string month-alist nil delete-region current-time-string (("Jan" . "January") ("Feb" . "February") ("Mar" . "March") ("Apr" . "April") ("May" . "May") ("Jun" . "June") ("Jul" . "July") ("Aug" . "August") ("Sep" . "September") ("Oct" . "October") ("Nov" . "November") ("Dec" . "December")) string-match "\\(...\\) \\(...\\) \\(..\\).*\\(19..\\)" concat assoc match-beginning 2 match-end " " 3 ", " 4] 19))
  1077.  
  1078. (put (quote maketitle) (quote latexinfo-format) (quote latexinfo-format-maketitle))
  1079.  
  1080. (defun latexinfo-format-maketitle nil (byte-code "└ ç" [latexinfo-parse-noarg] 2))
  1081.  
  1082. (put (quote finalout) (quote latexinfo-format) (quote latexinfo-format-finalout))
  1083.  
  1084. (defun latexinfo-format-finalout nil (byte-code "└ ç" [latexinfo-parse-noarg] 2))
  1085.  
  1086. (put (quote sloppy) (quote latexinfo-format) (quote latexinfo-format-sloppy))
  1087.  
  1088. (defun latexinfo-format-sloppy nil (byte-code "└ ç" [latexinfo-parse-noarg] 2))
  1089.  
  1090. (put (quote bibliography) (quote latexinfo-format) (quote latexinfo-format-bibliography))
  1091.  
  1092. (defun latexinfo-format-bibliography nil (byte-code "─ ┼╞P!`╟ ê╚╔╩╩#ê╦    !âF╠    !ê═ ê╬
  1093. `\"êebê╧╨╤\"êebê╧╥╙\"êebê╧╘╒\"ê╓ ê béJ╫╪    \"+ç" [arg latexinfo-bbl-filename here latexinfo-command-start latexinfo-parse-arg-discard expand-file-name ".bbl" eat-sexp insert "\\chapter*{References}" 10 file-exists-p insert-file exchange-point-and-mark narrow-to-region quietly-replace-string "{\\em " "\\var{" "{\\it " "\\emph{" "{ " "\\r{" widen message "Formatted bibliography file not found: %s"] 15))
  1094.  
  1095. (put (quote thebibliography) (quote latexinfo-format) (quote latexinfo-thebibliography))
  1096.  
  1097. (defun latexinfo-thebibliography nil (byte-code "┴┬!à    ├─!ê┼ ê╞╟╚\"ê╔Zëê╩ ç" [fill-column looking-at "}" forward-char 1 eat-sexp latexinfo-push-stack description "" 5 latexinfo-discard-line] 6))
  1098.  
  1099. (put (quote thebibliography) (quote latexinfo-end) (quote latexinfo-end-description))
  1100.  
  1101. (put (quote bibitem) (quote latexinfo-format) (quote latexinfo-description-bibitem))
  1102.  
  1103. (defun latexinfo-description-bibitem nil (byte-code "┴┬!à    ├─!ê┼ ê╞ ╟╚╔#)ê╩╦!ç" [arg looking-at "}" forward-char 1 eat-sexp latexinfo-parse-arg-discard insert 8 "
  1104.      
  1105. " forward-line -2] 8))
  1106.  
  1107. (put (quote newblock) (quote latexinfo-format) (quote latexinfo-parse-noarg))
  1108.  
  1109. (defun eat-sexp nil (byte-code "└`è┴┬!ê`)\"ç" [delete-region forward-sexp 1] 4))
  1110.  
  1111. (provide (quote latexinfo))
  1112.  
  1113. (defun quietly-replace-string (from-string to-string &optional delimited) "\
  1114. Replace occurrences of FROM-STRING with TO-STRING.
  1115. Preserve case in each match if  case-replace  and  case-fold-search
  1116. are non-nil and FROM-STRING has no uppercase letters.
  1117. Third arg DELIMITED (prefix arg if interactive) non-nil means replace
  1118. only matches surrounded by word boundaries." (byte-code "─    ┬┬ %ç" [from-string to-string nil delimited quietly-perform-replace] 6))
  1119.  
  1120. (defun quietly-replace-regexp (regexp to-string &optional delimited) "\
  1121. Replace things after point matching REGEXP with TO-STRING.
  1122. Preserve case in each match if case-replace and case-fold-search
  1123. are non-nil and REGEXP has no uppercase letters.
  1124. Third arg DELIMITED (prefix arg if interactive) non-nil means replace
  1125. only matches surrounded by word boundaries.
  1126. In TO-STRING, \\& means insert what matched REGEXP,
  1127. and \\=\\<n> means insert what matched <n>th \\(...\\) in REGEXP." (byte-code "┼    ┬├ %ç" [regexp to-string nil t delimited quietly-perform-replace] 6))
  1128.  
  1129. (defun quietly-push-mark (&optional location nomsg) "\
  1130. Set mark at LOCATION (point, by default) and push old mark on mark ring.
  1131. Displays \"Mark set\" unless the optional second arg NOMSG is non-nil." (byte-code "─ ?â
  1132. └é+┼╞ !    Bëê    G
  1133. Và+╟╚
  1134.     \"@└\"ê╔╚
  1135. S    \"└\"ê╩ å2`!ç" [nil mark-ring mark-ring-max location mark copy-marker mark-marker move-marker nthcdr setcdr set-mark] 9))
  1136.  
  1137. (defun quietly-perform-replace (from-string to-string query-flag regexp-flag delimited-flag) (byte-code "    à
  1138. à╓ ╫ !\"?
  1139. ?
  1140. â╪é┘ ╔╦
  1141.  à@╪┌
  1142. â8 é;█ !┌Qëê▄`╔\"ê▄`╔\"êàam?àa▌`!ê▐╦╔$àΓ
  1143. `=âq▀α!é▐ß ê
  1144. ?ââΓ #é┘╦╦?à╪π ΣëêUà─σµ #êrëêτUà└ëêé£êΦ!*êΘUå╓ΩUâσ╦ëê╔ëé╘δUâ≈∞ bê╔ëé╘φUåεUâåΓ #ê╔ëé╘∩Uâ7å*Γ #ê╦ëê╔ëé╘≡UâR?àOΓ #ê╔ëé╘±UâoådΓ #ê╔╦ë
  1145. é╘≥Uåz≤Uâä╔ëé╘⌠Uâæ⌡╦!é╘÷UâñΦπ è≈ )ê!é╘°Uâ┼∙·√!ⁿ√!\"êΦπ è≈ )ê!ê╔ëé╘╦ëêëê╔ëêéë*ê`ë
  1146. êéKê² ê.ç" [nocasify case-fold-search case-replace from-string literal regexp-flag search-function search-string keep-going t lastrepl nil delimited-flag query-flag to-string done replaced data help-form char help-char unread-command-char string-equal downcase re-search-forward search-forward "\\b" regexp-quote quietly-push-mark set-mark funcall forward-char 1 undo-boundary replace-match match-data (concat "Query replacing " (if regexp-flag "regexp " "") from-string " with " to-string ".
  1147.  
  1148. " (substitute-command-keys query-replace-help)) message "Query replacing %s with %s: " 63 store-match-data 27 113 94 mark 32 121 46 44 33 127 110 12 recenter 18 recursive-edit 23 delete-region match-beginning 0 match-end pop-mark] 32))
  1149.