comparison lisp/textmodes/tex-mode.el @ 22139:4a0e11be3592

(tex-command-end): New variable. (tex-start-tex): Use it. (plain-tex-mode): Locally set tex-command-end. (tex-common-initialization): Make local binding for it.x

22138:d4ac295a98b3

tex shell terminates.")

(defvar tex-command nil
  "Command to run TeX.
The name of the file, preceded by a blank, will be added to this string.")

(defvar tex-trailer nil
  "String appended after the end of a region sent to TeX by \\[tex-region].")

(defvar tex-start-of-header nil

  (interactive)
  (tex-common-initialization)
  (setq mode-name "TeX")
  (setq major-mode 'plain-tex-mode)
  (setq tex-command tex-run-command)
  (setq tex-start-of-header "%\\*\\*start of header")
  (setq tex-end-of-header "%\\*\\*end of header")
  (setq tex-trailer "\\bye\n")
  (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook))
;;;###autoload

		face-text
	      (error "Face %s not configured for %s mode" face mode-name))))
	facemenu-end-add-face "}"
	facemenu-remove-face-function t)
  (make-local-variable 'tex-command)
  (make-local-variable 'tex-start-of-header)
  (make-local-variable 'tex-end-of-header)
  (make-local-variable 'tex-trailer))

(defun tex-comment-indent ()

(defvar tex-start-tex-marker nil
  "Marker pointing after last TeX-running command in the TeX shell buffer.")

(defun tex-start-tex (command file)
  "Start a TeX run, using COMMAND on FILE."
  (let* ((cmd (concat command " \\\\nonstopmode\\\\input"))
         (star (string-match "\\*" cmd))
         (compile-command
          (if star (concat (substring cmd 0 star)
                           file (substring cmd (1+ star)))
            (concat cmd " " file))))

22139:4a0e11be3592

tex shell terminates.")

(defvar tex-command nil
  "Command to run TeX.
The name of the file, preceded by a blank, will be added to this string.")

(defvar tex-command-end ""
  "String to add to the end of the command to run TeX.")

(defvar tex-trailer nil
  "String appended after the end of a region sent to TeX by \\[tex-region].")

(defvar tex-start-of-header nil

  (interactive)
  (tex-common-initialization)
  (setq mode-name "TeX")
  (setq major-mode 'plain-tex-mode)
  (setq tex-command tex-run-command)
  (setq tex-command-end " \\\\nonstopmode\\\\input")
  (setq tex-start-of-header "%\\*\\*start of header")
  (setq tex-end-of-header "%\\*\\*end of header")
  (setq tex-trailer "\\bye\n")
  (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook))
;;;###autoload

		face-text
	      (error "Face %s not configured for %s mode" face mode-name))))
	facemenu-end-add-face "}"
	facemenu-remove-face-function t)
  (make-local-variable 'tex-command)
  (make-local-variable 'tex-command-end)
  (make-local-variable 'tex-start-of-header)
  (make-local-variable 'tex-end-of-header)
  (make-local-variable 'tex-trailer))

(defun tex-comment-indent ()

(defvar tex-start-tex-marker nil
  "Marker pointing after last TeX-running command in the TeX shell buffer.")

(defun tex-start-tex (command file)
  "Start a TeX run, using COMMAND on FILE."
  (let* ((cmd (concat command text-command-end))
         (star (string-match "\\*" cmd))
         (compile-command
          (if star (concat (substring cmd 0 star)
                           file (substring cmd (1+ star)))
            (concat cmd " " file))))