yatex

changeset 370:037f8d4c3c70 dev

Use 'start-process existence instead of YaTeX-dos. Thus YaTeX-prev-error works correctly on Emacs/Windows again.
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 29 Dec 2014 00:20:21 +0900
parents a536acc07a75
children f5b8e7415a25
files yatex.el yatexprc.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line diff
     1.1 --- a/yatex.el	Sun Dec 28 16:18:40 2014 +0900
     1.2 +++ b/yatex.el	Mon Dec 29 00:20:21 2014 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
     1.5  ;;; (c)1991-2014 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Sun Dec 28 16:17:42 2014 on firestorm
     1.7 +;;; Last modified Sun Dec 28 23:31:32 2014 on firestorm
     1.8  ;;; $Id$
     1.9  ;;; The latest version of this software is always available at;
    1.10  ;;; http://www.yatex.org/
    1.11 @@ -8,7 +8,7 @@
    1.12  ;;; Code:
    1.13  (require 'comment)
    1.14  (require 'yatexlib)
    1.15 -(defconst YaTeX-revision-number "1.78.1"
    1.16 +(defconst YaTeX-revision-number "1.78.2"
    1.17    "Revision number of running yatex.el")
    1.18  
    1.19  ;---------- Local variables ----------
     2.1 --- a/yatexprc.el	Sun Dec 28 16:18:40 2014 +0900
     2.2 +++ b/yatexprc.el	Mon Dec 29 00:20:21 2014 +0900
     2.3 @@ -1,7 +1,7 @@
     2.4  ;;; yatexprc.el --- YaTeX process handler
     2.5  ;;; 
     2.6  ;;; (c)1993-2014 by HIROSE Yuuji.[yuuji@yatex.org]
     2.7 -;;; Last modified Fri Dec 26 16:14:48 2014 on firestorm
     2.8 +;;; Last modified Sun Dec 28 23:35:01 2014 on firestorm
     2.9  ;;; $Id$
    2.10  
    2.11  ;;; Code:
    2.12 @@ -136,9 +136,11 @@
    2.13  		      (setq YaTeX-typeset-marker (make-marker)))
    2.14  		  (point))
    2.15        (insert (format "Call `%s'\n" command))
    2.16 -      (if YaTeX-dos (message "Done.")
    2.17 +      (cond
    2.18 +       ((fboundp 'start-process)
    2.19  	(insert " ")
    2.20  	(set-marker (process-mark YaTeX-typeset-process) (1- (point))))
    2.21 +       (t (message "Done.")))
    2.22        (if (bolp) (forward-line -1))	;what for?
    2.23        (cond
    2.24         (background nil)