Mercurial > hgrepos > hgweb.cgi > yatex
diff yatexenv.el @ 68:0eb6997bee16
More adjustment for Emacs20 and XEmacs
[prefix] g for <applet> <!--#include> <!--#exec>
author | yuuji |
---|---|
date | Mon, 26 Oct 1998 12:05:32 +0000 |
parents | 36a48185b95a |
children | 44e3a5e1e883 |
line wrap: on
line diff
--- a/yatexenv.el Tue Dec 16 13:34:57 1997 +0000 +++ b/yatexenv.el Mon Oct 26 12:05:32 1998 +0000 @@ -2,7 +2,7 @@ ;;; YaTeX environment-specific functions. ;;; yatexenv.el ;;; (c ) 1994-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] -;;; Last modified Wed Jun 25 21:30:45 1997 on domani +;;; Last modified Wed Jan 14 16:44:36 1998 on firestorm ;;; $Id$ ;;; @@ -230,7 +230,7 @@ (looking-at "\\\\right\\b")) (progn (YaTeX-reindent (save-excursion (YaTeX-goto-corresponding-leftright) - (current-column)))) + (1- (current-column))))) (save-excursion (forward-line -1) (while (and (not (bobp)) (YaTeX-on-comment-p)) @@ -250,7 +250,7 @@ (setq depth (+ (YaTeX-current-indentation) mp))) ((> l-r 0) (beginning-of-line) - (search-forward "\\left" peol) + (search-forward "\\left" peol nil l-r) (goto-char (1+ (match-beginning 0))) (setq depth (current-column))) ((< l-r 0) @@ -258,7 +258,8 @@ (YaTeX-goto-corresponding-leftright) (beginning-of-line) (skip-chars-forward " \t") - (setq depth (+ (current-column) mp))) ;+mp is good? + ;(setq depth (+ (current-column) mp)) ;+mp is good? + (setq depth (current-column))) (t ;if \left - \right = 0 (cond ((re-search-forward "\\\\\\\\\\s *$" peol t)