1.1 --- a/yatexprc.el	Mon Jan 23 01:19:36 2012 +0900
     1.2 +++ b/yatexprc.el	Fri Feb 10 09:09:08 2012 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX process handler.
     1.5  ;;; yatexprc.el
     1.6  ;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Mon Jan 23 00:28:08 2012 on firestorm
     1.8 +;;; Last modified Tue Jan 24 09:43:29 2012 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;(require 'yatex)
    1.12 @@ -223,7 +223,6 @@
    1.13  				  tobecalled)))
    1.14  		       (if (equal tobecalled thiscmd)
    1.15  			   (set-marker YaTeX-typeset-marker (point)))
    1.16 -		       (save-excursion (sit-for 2))
    1.17  		       (set-process-sentinel
    1.18  			(start-process
    1.19  			 mode-name pbuf
    1.20 @@ -654,20 +653,24 @@
    1.21  	    -1)))))
    1.22  
    1.23  (defun YaTeX-prev-error ()
    1.24 -  "Visit previous typeset error.
    1.25 +  "Visit position of previous typeset error or warning.
    1.26    To avoid making confliction of line numbers by editing, jump to
    1.27  error or warning lines in reverse order."
    1.28    (interactive)
    1.29 -  (let ((cur-buf (buffer-name)) (cur-win (selected-window))
    1.30 -	b0 errorp error-line typeset-win error-buffer error-win)
    1.31 +  (let ((cur-buf (save-excursion (YaTeX-visit-main t) (buffer-name)))
    1.32 +	(cur-win (selected-window))
    1.33 +	b0 bound errorp error-line typeset-win error-buffer error-win)
    1.34      (if (null (get-buffer YaTeX-typeset-buffer))
    1.35  	(error "There is no typesetting buffer."))
    1.36      (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)
    1.37 +    (if (and (markerp YaTeX-typeset-marker)
    1.38 +	     (eq (marker-buffer YaTeX-typeset-marker) (current-buffer)))
    1.39 +	(setq bound YaTeX-typeset-marker))
    1.40      (setq typeset-win (selected-window))
    1.41      (if (re-search-backward
    1.42  	 (concat "\\(" latex-error-regexp "\\)\\|\\("
    1.43  		 latex-warning-regexp "\\)")
    1.44 -	 nil t)
    1.45 +	 bound t)
    1.46  	(setq errorp (match-beginning 1))
    1.47        (select-window cur-win)
    1.48        (error "No more errors on %s" cur-buf))