Mercurial > hgrepos > hgweb.cgi > yatex

changeset 256:b1e70dc23208 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clarify messages for typesetting process.
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 12 Feb 2012 11:01:27 +0900
parents 214702e4df54
children 2b85ef062ccf
files yatexprc.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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

yatex.org