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))))))))