Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexenv.el @ 73:f41b01fef5d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Stable version(hope to be)
author yuuji
date Wed, 22 May 2002 04:57:42 +0000
parents 44e3a5e1e883
children 1b172d26b55e
comparison
equal deleted inserted replaced
72:0aaebd07dad0 73:f41b01fef5d6
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX environment-specific functions. 2 ;;; YaTeX environment-specific functions.
3 ;;; yatexenv.el 3 ;;; yatexenv.el
4 ;;; (c ) 1994-1997 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c ) 1994-1997 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Thu Aug 26 18:14:51 1999 on firestorm 5 ;;; Last modified Thu Jan 18 15:21:26 2001 on buell
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;;; 8 ;;;
9 ;; Functions for tabular environment 9 ;; Functions for tabular environment
10 ;;; 10 ;;;
228 (beginning-of-line) 228 (beginning-of-line)
229 (skip-chars-forward " \t") 229 (skip-chars-forward " \t")
230 (looking-at "\\\\right\\b")) 230 (looking-at "\\\\right\\b"))
231 (progn (YaTeX-reindent 231 (progn (YaTeX-reindent
232 (save-excursion (YaTeX-goto-corresponding-leftright) 232 (save-excursion (YaTeX-goto-corresponding-leftright)
233 (1- (current-column))))) 233 (- (current-column) 0))))
234 (save-excursion 234 (save-excursion
235 (forward-line -1) 235 (forward-line -1)
236 (while (and (not (bobp)) (YaTeX-on-comment-p)) 236 (while (and (not (bobp)) (YaTeX-on-comment-p))
237 (forward-line -1)) 237 (forward-line -1))
238 ;;(beginning-of-line) ;must be unnecessary 238 ;;(beginning-of-line) ;must be unnecessary
283 "Go to corresponding \left or \right. 283 "Go to corresponding \left or \right.
284 Note that this function assumes the corresponding \left\right 284 Note that this function assumes the corresponding \left\right
285 is on another line." 285 is on another line."
286 (let ((YaTeX-struct-begin "\\left%1") 286 (let ((YaTeX-struct-begin "\\left%1")
287 (YaTeX-struct-end "\\right%1") 287 (YaTeX-struct-end "\\right%1")
288 (YaTeX-struct-name-regexp "[][(){}.|]")) 288 (YaTeX-struct-name-regexp "[][(){}\\.|]"))
289 (YaTeX-goto-corresponding-environment t))) 289 (YaTeX-goto-corresponding-environment t)))
290 290
291 ;;; 291 ;;;
292 ;; Functions for formatting region being enclosed with environment 292 ;; Functions for formatting region being enclosed with environment
293 ;;; 293 ;;;

yatex.org