;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:39:33 1993 ;;; from file /era/era-0.80/editor/lisp/packages/doctex.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (defvar LaTeXify-DOC-style "report" "\ *Should be bound to a string indicating what LaTeX document style should be used to format the DOC file. If this variable is set to nil the report style will be used.") (defvar LaTeXify-DOC-style-options "" "\ *A string containing a list of document style options for LaTeX") (fset 'LaTeXify-DOC #[nil ";!!P\n\"! ! P! ˉ!\" ! ceTb#dbced%eb\"ebd$!e`}ebd$!ccd$!^c)cd$!ccd$!^eb\"eb@ABCDEFGHIJKLOJMOBNOPJMOQRST!." [LaTeXify-DOC-style error "LaTeXify-DOC-style must be a string" find-file expand-file-name fboundp dump-emacs "DOC-" emacs-version "DOC" exec-directory nil buffer-read-only auto-save-mode 0 set-visited-file-name buffer-file-name ".tex" delete-other-windows odot name bufstring varstart-point mode-line-format case-fold-search " Grinding the DOC file... be patient." sit-for replace-regexp "\\\\{\\(\\s_\\|\\sw\\)*}" "]]bgroup]]obeylines\\&]]egroup" substitute-command-keys buffer-string erase-buffer replace-string "" "" sort-regexp-fields "\\([FV].*\\)[^]*" "\\1" mapcar #[(x) " !)" [eval x] 2] ((replace-string "#" "]]#") (replace-string "$" "]]$") (replace-string "%" "]]%") (replace-string "&" "]]&") (replace-string "~" "]]verb+~+") (replace-string "_" "]]verb+_+") (replace-string "^" "]]verb+^+") (replace-string "\\" "]]verb+]]+") (replace-string "{" "]]{") (replace-string "}" "]]}") (replace-string "<" "]]verb+<+") (replace-string ">" "]]verb+>+") (replace-string "]]" "\\")) search-forward "V" 1 backward-char 2 "\\section*{Functions}\n" "\\begin{description}\n" "F" t delete-char -2 "\n\\item[\\sf(" " ...)]" -1 "\\end{description}\n" "\\section*{Variables}\nVariables whose documentation begins with an\nasterisk `*' are user definable options. These variables are\nused to customize Emacs. Other variables are generally of\ninterest only to Emacs Lisp programmers.\n\\begin{description}\n" "\n\\item[\\sf " "]" "\\end{document}\n" #[(x) " !)" [eval x] 2] ((replace-regexp "[A-Z][A-Z]+" "\n{\\\\lowercase{\\\\sf \\&}}" nil) (replace-string "\\lowercase{\\sf TAB}" "{\\tt TAB}") (replace-string "\\lowercase{\\sf LFD}" "{\\tt LFD}") (replace-string "\\lowercase{\\sf RET}" "{\\tt RET}") (replace-string "\\lowercase{\\sf ESC}" "{\\tt ESC}") (replace-string "\\lowercase{\\sf SPC}" "{\\tt SPC}") (replace-string "\\lowercase{\\sf DEL}" "{\\tt DEL}")) "\\documentstyle[" LaTeXify-DOC-style-options "]{" "}\n" "\\begin{document}\n" "\\title{GNU Emacs Lisp Reference \\\\\n" "Version " " \\\\\n" "\\large (gouged with a blunt instrument from the DOC file)}\n" "\\author{Richard M. Stallman}\n" "\\date{" emacs-build-time 4 8 20 "\\maketitle\n" "\\begin{centering}\n" "Copyright \\copyright" " Free Software Foundation, Inc. \\\\\n" "\\end{centering}\n\\vspace{\\baselineskip}\n\\noindent\nThis document is part of GNU Emacs.\n\nGNU Emacs is distributed in the hope that it will be useful,\nbut WITHOUT ANY WARRANTY. No author or distributor\naccepts responsibility to anyone for the consequences of using it\nor for whether it serves any particular purpose or works at all,\nunless he says so in writing. Refer to the GNU Emacs General Public\nLicense for full details.\n\nEveryone is granted permission to copy, modify and redistribute\nGNU Emacs, but only under the conditions described in the\nGNU Emacs General Public License. A copy of this license is\nsupposed to have been given to you along with GNU Emacs so you\ncan know your rights and responsibilities. It should be in a\nfile named COPYING. Among other things, the copyright notice\nand this notice must be preserved on all copies.\n\\newpage\\sloppy\n" message "Grinding completed. Behold!"] 17 nil nil])