# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1329012087 -32400
# Node ID b1e70dc23208bc890b6b65e02d69805f733a134e
# Parent  214702e4df54fba5905740a95bf5657aadabad36
Clarify messages for typesetting process.

diff -r 214702e4df54 -r b1e70dc23208 yatexprc.el
--- a/yatexprc.el	Sun Feb 12 10:50:18 2012 +0900
+++ b/yatexprc.el	Sun Feb 12 11:01:27 2012 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX process handler.
 ;;; yatexprc.el
 ;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Tue Jan 24 09:43:29 2012 on firestorm
+;;; Last modified Sun Feb 12 10:56:25 2012 on firestorm
 ;;; $Id$
 
 ;(require 'yatex)
@@ -187,7 +187,7 @@
                  (setq mode-line-process
                        (concat ": "
                                (symbol-name (process-status proc))))
-		 (message mode-name " %s."
+		 (message "%s %s" mode-name
 			  (if (eq (process-status proc) 'exit)
 			      "done" "ceased"))
                  ;; If buffer and mode line shows that the process
@@ -225,7 +225,8 @@
 			   (set-marker YaTeX-typeset-marker (point)))
 		       (set-process-sentinel
 			(start-process
-			 mode-name pbuf
+			 (setq mode-name (concat mode-name "*2"))
+			 pbuf
 			 shell-file-name YaTeX-shell-command-option tobecalled)
 			'YaTeX-typeset-sentinel)
 		       (if ppcmd
@@ -239,7 +240,9 @@
 		    ((and ppcmd (string-match "finish" mes))
 		     (insert (format "=======> Success! Calling %s\n" ppcmd))
 		     (setq mode-name	; set process name
-			   (substring ppcmd 0 (string-match " " ppcmd)))
+			   (concat
+			    mode-name "+"
+			    (substring ppcmd 0 (string-match " " ppcmd))))
 					; to reach here, 'start-process exists on this emacsen
 		     (set-process-sentinel
 		      (start-process