yatex

changeset 230:7f4a5db88fbb dev

find changesets by author, revision, files, or words in the commit message
Don't pause at re-run. YaTeX-prev-error supports re-run.
author yuuji@gentei.org
date Tue, 24 Jan 2012 09:44:42 +0900
parents 922f031af983
children d329bbed72cd
files yatexprc.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line diff
     1.1 --- a/yatexprc.el	Tue Jan 24 09:31:36 2012 +0900
     1.2 +++ b/yatexprc.el	Tue Jan 24 09:44:42 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))