[AUCTeX-diffs] Changes to auctex/tex-buf.el

[Masayuki Ataka]

Index: auctex/tex-buf.el
diff -u auctex/tex-buf.el:1.242 auctex/tex-buf.el:1.243
--- auctex/tex-buf.el:1.242     Sun Jan 22 15:02:05 2006
+++ auctex/tex-buf.el   Tue Jan 24 20:39:55 2006
@@ -680,6 +680,16 @@
                  TeX-shell-command-option
                  command)))
 
+(defun TeX-run-dviout (name command file)
+  "Call process with second argument, discarding its output. With support
+for the dviout previewer, especially when used with PC-9801 series."
+  (if (and (boundp 'dos-machine-type) (eq dos-machine-type 'pc98)) ;if PC-9801
+      (send-string-to-terminal "\e[2J")) ; clear screen
+  (call-process TeX-shell (if (eq system-type 'ms-dos) "con") nil nil
+               TeX-shell-command-option command)
+  (if (eq system-type 'ms-dos)
+      (redraw-display)))
+
 (defun TeX-run-background (name command file)
   "Start process with second argument, show output when and if it arrives."
   (let ((dir (TeX-master-directory)))