yatex
diff yatexlib.el @ 524:b1896ef49747
Detection of region passed to filter modified.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 23 Jan 2018 10:44:10 +0900 |
parents | b6853d450b0a |
children | b742adfa30e2 |
line diff
1.1 --- a/yatexlib.el Thu Jan 04 23:58:07 2018 +0900 1.2 +++ b/yatexlib.el Tue Jan 23 10:44:10 2018 +0900 1.3 @@ -1,7 +1,7 @@ 1.4 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*- 1.5 ;;; 1.6 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org] 1.7 -;;; Last modified Thu Jan 4 13:58:20 2018 on firestorm 1.8 +;;; Last modified Sun Jan 21 16:29:01 2018 on firestorm 1.9 ;;; $Id$ 1.10 1.11 ;;; Code: 1.12 @@ -1224,8 +1224,8 @@ 1.13 ;;(if (eobp) nil (forward-char 1)) ;OUT 2015/1/5 1.14 )))) 1.15 1.16 -(defun YaTeX-in-BEGEND-p () 1.17 - "Check if the point is in a %#BEGIN...%#END region. 1.18 +(defun YaTeX-in-BEGEND-p (&optional pt) 1.19 + "Check if the point (or PT) is in a %#BEGIN...%#END region. 1.20 Return the list of beginning and ending point of the region and arg-string 1.21 if the point is in BEGEND. Otherwise nil." 1.22 (let ((b "%#BEGIN") bp args (e "%#END") (p (point)))