<!–Converted with LaTeX2HTML 2022 (Released January 1, 2022) –> <HTML lang="en"> <HEAD> <TITLE>Contents of doctex</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8"> <META NAME="viewport" CONTENT="width=device-width, initial-scale=1.0"> <META NAME="Generator" CONTENT="LaTeX2HTML v2022">
<LINK REL="STYLESHEET" HREF="doctex.css">
</HEAD>
<BODY bgcolor="#ffffff" text="#000000" link="#9944EE" vlink="#0000ff" alink="#00ff00">
;;; Grind GNU Emacs DOC file into LaTeX input ;;; Copyright (C) 1987 Kyle E. Jones, Tor Lillqvist
<P> ;;; This file may be redistributed provided the above copyright ;;; notice appears on all copies and that the further free redistribution ;;; of this file is not in any way restricted by those who ;;; redistribute it.
<P> ;;; Based on Kyle E. Jones's grind-DOC package.
<P> ;;; This software is distributed 'as is', without warranties of any kind.
<P> ;;; This file is not part of GNU Emacs.
<P> ;;; The document that is the output from the (LaTeXify-DOC) function is ;;; part of GNU Emacs.
<P> (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.")
<P> (defvar LaTeXify-DOC-style-options "" "*A string containing a list of document style options for LaTeX")
<P> (defun LaTeXify-DOC () (interactive) "Reads the etc/DOC-xx.xx.x file into a buffer and converts it to a form suitable as LaTeX input." ; ; Make sure we can deal with the macro package and the point size. ; (cond ((not (stringp LaTeXify-DOC-style)) (error "LaTeXify-DOC-style must be a string"))) ; ; Select the DOC file. ; (find-file (expand-file-name (if (fboundp 'dump-emacs) (concat "DOC-" emacs-version) "DOC") exec-directory)) (setq buffer-read-only nil) (auto-save-mode 0) (set-visited-file-name (concat (buffer-file-name) ".tex")) (delete-other-windows) ; ; Save-excursion just in case the DOC file was already selected. ; (save-excursion (let (case-fold-search mode-line-format varstart-point bufstring name odot) ; ; The first thing we must do is convert the <P><!– MATH