1.1 --- a/yatexprc.el	Thu Feb 01 18:55:47 1996 +0000
     1.2 +++ b/yatexprc.el	Wed May 01 15:35:40 1996 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX process handler.
     1.5  ;;; yatexprc.el
     1.6  ;;; (c )1993-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Fri Feb  2 02:09:57 1996 on supra
     1.8 +;;; Last modified Fri Mar 29 00:15:35 1996 on inspire
     1.9  ;;; $Id$
    1.10  
    1.11  (require 'yatex)
    1.12 @@ -328,15 +328,23 @@
    1.13    (save-excursion
    1.14      (YaTeX-showup-buffer
    1.15       buffer (function (lambda (x) (nth 3 (window-edges x)))))
    1.16 -    (set-buffer (get-buffer-create buffer))
    1.17 +    (let ((df default-directory))		;preserve current buf's pwd
    1.18 +      (set-buffer (get-buffer-create buffer))	;1.61.3
    1.19 +      (setq default-directory df)
    1.20 +      (cd df))
    1.21      (erase-buffer)
    1.22      (if YaTeX-dos
    1.23  	(call-process
    1.24  	 shell-file-name nil buffer nil YaTeX-shell-command-option command)
    1.25 -      (set-process-buffer
    1.26 -       (start-process
    1.27 -	"system" buffer shell-file-name YaTeX-shell-command-option command)
    1.28 -       (get-buffer buffer))))
    1.29 +      (if (and (get-buffer-process buffer)
    1.30 +	       (eq (process-status (get-buffer-process buffer)) 'run)
    1.31 +	       (not
    1.32 +		(y-or-n-p (format "Process %s is running. Continue?" buffer))))
    1.33 +	  nil
    1.34 +	(set-process-buffer
    1.35 +	 (start-process
    1.36 +	  "system" buffer shell-file-name YaTeX-shell-command-option command)
    1.37 +	 (get-buffer buffer)))))
    1.38  )
    1.39  
    1.40  (defvar YaTeX-preview-command-history nil