Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexmth.el @ 558:a2ef47ba407f dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Why 'insert-string was used??
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 25 Dec 2018 20:02:58 +0900
parents af4601ee3c6a
children c11261c0960f
comparison
equal deleted inserted replaced
557:f5d0550cbdce 558:a2ef47ba407f
1 ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*- 1 ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org] 3 ;;; (c)1993-2018 by HIROSE Yuuji [yuuji@yatex.org]
4 ;;; Last modified Sat Feb 24 16:40:22 2018 on firestorm 4 ;;; Last modified Tue Dec 25 20:02:12 2018 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Commentary: 7 ;;; Commentary:
8 ;;; [Customization guide] 8 ;;; [Customization guide]
9 ;;; 9 ;;;
1012 (delete-region (point) (- (point) paren-length)) 1012 (delete-region (point) (- (point) paren-length))
1013 (save-excursion (insert (car type)))) 1013 (save-excursion (insert (car type))))
1014 (t 1014 (t
1015 (delete-region (- (point) length) (- (point) paren-length)) 1015 (delete-region (- (point) length) (- (point) paren-length))
1016 (backward-char paren-length))) 1016 (backward-char paren-length)))
1017 (insert-string newsize) 1017 (insert newsize)
1018 (if big-p (insert ?l)) 1018 (if big-p (insert ?l))
1019 (unwind-protect 1019 (unwind-protect
1020 (progn 1020 (progn
1021 (modify-syntax-entry ?\\ " ") 1021 (modify-syntax-entry ?\\ " ")
1022 (forward-list) 1022 (forward-list)
1027 (delete-region (point) (- (point) paren-length)) 1027 (delete-region (point) (- (point) paren-length))
1028 (insert (cdr type))) 1028 (insert (cdr type)))
1029 (t 1029 (t
1030 (delete-region (- (point) length) (- (point) paren-length)) 1030 (delete-region (- (point) length) (- (point) paren-length))
1031 (backward-char paren-length) 1031 (backward-char paren-length)
1032 (insert-string newsize) 1032 (insert newsize)
1033 (if big-p (insert ?r)) 1033 (if big-p (insert ?r))
1034 (forward-char paren-length))) 1034 (forward-char paren-length)))
1035 (if (string= lr "l") (backward-list))) 1035 (if (string= lr "l") (backward-list)))
1036 (modify-syntax-entry ?\\ backslash-syntax)) 1036 (modify-syntax-entry ?\\ backslash-syntax))
1037 t))) 1037 t)))

yatex.org