From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 19 Mar 2005 14:45:20 +0000 (+0000)
Subject: (tex-view): If tex-shell process is not running, restart it.
X-Git-Tag: ttn-vms-21-2-B4~1688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3356ce3b56b8c4defc07eea6b64022391e145f37;p=emacs.git

(tex-view): If tex-shell process is not running, restart it.
---

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index d15b72c98ba..7e5d9fee78b 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2237,6 +2237,9 @@ because there is no standard value that would generally work."
   (interactive)
   (or tex-dvi-view-command
       (error "You must set `tex-dvi-view-command'"))
+  ;; Restart the TeX shell if necessary.
+  (or (tex-shell-running)
+      (tex-start-shell))
   (let ((tex-dvi-print-command (eval tex-dvi-view-command)))
     (tex-print)))