1.1 --- a/yatexenv.el	Tue Dec 16 13:28:38 1997 +0000
     1.2 +++ b/yatexenv.el	Mon Oct 26 12:05:32 1998 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX environment-specific functions.
     1.5  ;;; yatexenv.el
     1.6  ;;; (c ) 1994-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Wed Jun 25 21:30:45 1997 on domani
     1.8 +;;; Last modified Wed Jan 14 16:44:36 1998 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;;
    1.12 @@ -230,7 +230,7 @@
    1.13  	  (looking-at "\\\\right\\b"))
    1.14  	(progn (YaTeX-reindent
    1.15  		(save-excursion (YaTeX-goto-corresponding-leftright)
    1.16 -				(current-column))))
    1.17 +				(1- (current-column)))))
    1.18        (save-excursion
    1.19  	(forward-line -1)
    1.20  	(while (and (not (bobp)) (YaTeX-on-comment-p))
    1.21 @@ -250,7 +250,7 @@
    1.22  	  (setq depth (+ (YaTeX-current-indentation) mp)))
    1.23  	 ((> l-r 0)
    1.24  	  (beginning-of-line)
    1.25 -	  (search-forward "\\left" peol)
    1.26 +	  (search-forward "\\left" peol nil l-r)
    1.27  	  (goto-char (1+ (match-beginning 0)))
    1.28  	  (setq depth (current-column)))
    1.29  	 ((< l-r 0)
    1.30 @@ -258,7 +258,8 @@
    1.31  	  (YaTeX-goto-corresponding-leftright)
    1.32  	  (beginning-of-line)
    1.33  	  (skip-chars-forward " \t")
    1.34 -	  (setq depth (+ (current-column) mp))) ;+mp is good?
    1.35 +	  ;(setq depth (+ (current-column) mp)) ;+mp is good?
    1.36 +	  (setq depth (current-column)))
    1.37  	 (t				;if \left - \right = 0
    1.38  	  (cond
    1.39  	   ((re-search-forward "\\\\\\\\\\s *$" peol t)