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)))
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
