[AUCTeX-devel] Re: [AUCTeX-diffs] Changes to auctex/ChangeLog

[Masayuki Ataka]

From: David Kastrup <address@hidden>
Subject: Re: [AUCTeX-diffs] Changes to auctex/ChangeLog
Date: Sun, 22 Jan 2006 21:08:28 +0100

> Masayuki Ataka <address@hidden> writes:
> 
> > Index: auctex/ChangeLog
> > diff -u auctex/ChangeLog:5.1280 auctex/ChangeLog:5.1281
> > --- auctex/ChangeLog:5.1280 Sun Jan 22 13:25:44 2006
> > +++ auctex/ChangeLog        Sun Jan 22 15:02:52 2006
> > @@ -1,3 +1,19 @@
> > +2006-01-22  Ikumi Keita <address@hidden>
> > +
> > +   * tex.el (TeX-command-list): Removed TeX-run-dviout because dviout
> > +   here is only work with Emacs on MS-DOS.
> 
> Uh, I can't remember a discussion about that change, 

First of all, I apologize that I removed codes of run-dviout
without discussions.

> and a lot of people are using
> emacs -nw
> even on GNU/Linux and similar platforms.
> 
> Is there a good reason for removing the run-dviout functionality,
> given that such platforms are definitely in use?

I put the patch for run-dviout at the end of this mail for your
help.

The function TeX-run-dviout is for MS-DOS and PC-9801.  PC-9801
aka. pc98 is a Japanese PC, which is not IBM PC so that Windows
98 does not work on it.  Now, no PC98 is on sale.

Anybody uses Emacs21 on MS-DOS system?
If so, I will revert my change.


--- tex-buf.el.orig     Fri Nov 18 02:03:23 2005
+++ tex-buf.el  Tue Dec 20 22:26:08 2005
@@ -680,16 +680,6 @@
                  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)))
--- tex.el.orig Fri Dec  9 04:37:16 2005
+++ tex.el      Tue Dec 20 22:26:08 2005
@@ -235,9 +235,6 @@
 
 TeX-run-silent: Start the process in the background.
 
-TeX-run-dviout: Special hook for the Japanese dviout previewer for
-PC-9801.
-
 To create your own hook, define a function taking three arguments: The
 name of the command, the command string, and the name of the file to
 process.  It might be useful to use `TeX-run-command' in order to
@@ -269,7 +266,6 @@
                                (function-item TeX-run-discard)
                                (function-item TeX-run-background)
                                (function-item TeX-run-silent)
-                               (function-item TeX-run-dviout)
                                (function-item TeX-run-ispell-on-document)
                                (function :tag "Other"))
                        (boolean :tag "Prompt")
---
email: address@hidden
Name:: Masayuki Ataka // (Japan)