(require (quote latexinfo))

(require (quote latexnfo-upd))

(defun latex-to-latexinfo (arg) (interactive "FNew File Name: ") (byte-code "ÁˆÁpÆ!ˆÇ ˆÈ !ˆÉ!ˆebˆÊ ˆebˆËÌÁÁ#ˆÍÎ!ƒ9ÏÐÁÁ#ˆÑÒ!ˆÓc‚;ÔcˆËÕÁÁ#ˆÖ×!ˆØÙÚÛÜ" "
setfilename" ".info " "
node top, ,(dir), (dir) " l2l-format-scan-noverbatim set-mark-command latexinfo-sequential-node-update] 17))

(defun l2l-input-files nil (byte-code "ŠÃÄÀÁ#)… ÅÆ!…kÃÄÀÁ#…kŠÇÈ!ˆÉ`ÇÊ!ˆ`̈ËÌË !!ƒ3 ‚6 ÍP!‰ˆÎÏ!ˆÌ !ƒaÐ`ÑÏ!ˆ`ˆ̈ÒÓ ˆ̈ÔÏ!ˆÕ !ˆÒÖ ‚̈e×Ø )̈)ˆ‚‡" [nil t file-name re-search-forward "^
% =" yes-or-no-p "Would you like to do the

input files now, to do it all at once?" skip-chars-forward " " buffer-substring "^ " expand-file-name file-readable-p ".tex" beginning-of-line 1 delete-region forward-line message "Inserting file

(defun l2l-format-scan-noverbatim nil (byte-code "ÇÁÂ#ƒ‡eÁÁbˆÇÁÂ#…zÈÉÊ!ËÊ!‰̈ˆÌ ̓̈1Î ‚vÌ Ïƒ̈M`‰ˆÐˆ̈ÇÑÁÁ#ˆ`‰‚vÌ Ò…̈v`‰ˆÐˆ̈È``T‰̈ˆÓÔ!ˆÕ ÁÁ#ˆÓÔ!ˆ`‰ˆ‚ˆ…ƒÐd+̈‚‹Ðedˆ̈Ö ‡" [latexinfo-special-regexp nil t start end str l2l-special-regexp re-search-forward buffer-substring match-beginning 0 match-end string-equal "
input" latexinfo-insert-input-files "
beginverbatim" l2l-do-global-substitutions "

endverbatim" "
verb" forward-char 1 search-forward l2l-format-scan] 20))

(defun l2l-format-scan nil (byte-code "ebˆÁedÀ#ˆÂÃ!‡" [t latexinfo-insert-node-lines latexinfo-master-menu 8] 4))

(defun l2l-do-global-substitutions (min max) (byte-code "ŠÆ ˆ̈à …*ebˆÇ@@@AÃ#ˆÈÉ@@ˆ̈A‰ˆ‚ *)‡" [min max case-fold-search nil alist l2l-global-alist narrow-to-region quietly-replace-regexp message "

(defvar l2l-global-alist (quote (("

tt " . "

t") ("

bf " . "

r") ("

it " . "

t") ("

sl " . "

i") ("

em " . "

emph") ("^[;''