Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 561:e947b9ae31c2 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Escape parens to dismiss warning
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 03 Jan 2019 12:26:23 +0900
parents b742adfa30e2
children 43508ed8bcc8
comparison
equal deleted inserted replaced
559:3f5ce5a755c4 561:e947b9ae31c2
1 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*- 1 ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1994-2018 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Wed May 23 07:59:08 2018 on firestorm 4 ;;; Last modified Thu Jan 3 12:23:22 2019 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 8
9 ;; High-precedence compatible function 9 ;; High-precedence compatible function
1114 (m3 ;math environment 1114 (m3 ;math environment
1115 (setq env (char-after (1+ m3)) 1115 (setq env (char-after (1+ m3))
1116 regexp (format "\\(%s%s\\)\\|\\(%s%s\\)" 1116 regexp (format "\\(%s%s\\)\\|\\(%s%s\\)"
1117 YaTeX-ec-regexp 1117 YaTeX-ec-regexp
1118 (regexp-quote 1118 (regexp-quote
1119 (cdr (assq env '((?( . ")") (?) . "(") 1119 (cdr (assq env '((?\( . ")") (?\) . "(")
1120 (?[ . "]") (?] . "["))))) 1120 (?\[ . "]") (?\] . "[")))))
1121 YaTeX-ec-regexp 1121 YaTeX-ec-regexp
1122 (regexp-quote (char-to-string env))) 1122 (regexp-quote (char-to-string env)))
1123 re-s (if (memq env '(?\( ?\[)) 1123 re-s (if (memq env '(?\( ?\[))
1124 're-search-forward 1124 're-search-forward
1125 're-search-backward))) 1125 're-search-backward)))

yatex.org