yatex
diff yatexenv.el @ 452:2d9589a786d1
string-to-int fix up
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 21 Feb 2017 15:56:22 +0859 |
parents | 7a9d30752353 |
children | 428584533eab |
line diff
1.1 --- a/yatexenv.el Thu Jan 05 17:49:05 2017 +0900 1.2 +++ b/yatexenv.el Tue Feb 21 15:56:22 2017 +0859 1.3 @@ -43,7 +43,7 @@ 1.4 ((> n 1) 1.5 (re-search-backward andptn) ;Sure to find! 1.6 (while (re-search-backward "\\\\multicolumn{\\([0-9]+\\)}" bor t) 1.7 - (setq n (+ n (string-to-int 1.8 + (setq n (+ n (YaTeX-str2int 1.9 (buffer-substring (match-beginning 1) 1.10 (match-end 1))) 1.11 -1))))) 1.12 @@ -101,7 +101,7 @@ 1.13 (forward-list 1)) 1.14 ((equal elt ?*) ;*{N}{EXP} -> Repeat EXP N times 1.15 (skip-chars-forward "^{" end) 1.16 - (setq cols (* (string-to-int 1.17 + (setq cols (* (YaTeX-str2int 1.18 (buffer-substring 1.19 (1+ (point)) 1.20 (progn (forward-list 1) (1- (point))))) 1.21 @@ -136,7 +136,7 @@ 1.22 ((eq type 'alignat) 1.23 (max 1.24 1 1.25 - (* 2 (string-to-int 1.26 + (* 2 (YaTeX-str2int 1.27 (buffer-substring 1.28 (point) 1.29 (progn (up-list -1) (forward-list 1) (1- (point))))))))