yatex

diff yahtml.el @ 451:2011de73a671

Who owes the incompatibility of string-to-int?
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 21 Feb 2017 15:46:12 +0859
parents 7a9d30752353
children 1a891f775194
line diff
     1.1 --- a/yahtml.el	Thu Jan 05 17:49:05 2017 +0900
     1.2 +++ b/yahtml.el	Tue Feb 21 15:46:12 2017 +0859
     1.3 @@ -3,7 +3,7 @@
     1.4  ;;; Last modified Thu Jan  5 17:45:36 2017 on firestorm
     1.5  ;;; $Id$
     1.6  
     1.7 -(defconst yahtml-revision-number "1.79"
     1.8 +(defconst yahtml-revision-number "1.79.2"
     1.9    "Revision number of running yahtml.el")
    1.10  
    1.11  ;;; Commentary:
    1.12 @@ -1302,7 +1302,7 @@
    1.13  			   (cons "align" alg))
    1.14  		       (if (string< "" brd)
    1.15  			   (cons "border"
    1.16 -				 (format "%dpx" (string-to-int brd))))))))
    1.17 +				 (format "%dpx" (YaTeX-str2int brd))))))))
    1.18  	      (concat
    1.19  	       (yahtml-make-optional-argument "border" brd)
    1.20  	       (yahtml-make-optional-argument "align" alg))))))
    1.21 @@ -1524,7 +1524,7 @@
    1.22  	      (append
    1.23  	       (if (string< "" b)
    1.24  		   (list
    1.25 -		    (cons "border" (format "%dpx solid" (string-to-int b)))
    1.26 +		    (cons "border" (format "%dpx solid" (YaTeX-str2int b)))
    1.27  		    (cons "border-collapse" "collapse")))
    1.28  	       (if (string< "" a)
    1.29  		   (cond
    1.30 @@ -2995,7 +2995,7 @@
    1.31  		 (progn
    1.32  		   (skip-chars-forward "\"' \t\n")
    1.33  		   (looking-at "[0-9]+")))
    1.34 -	    (setq cols (+ (string-to-int (YaTeX-match-string 0)) cols))
    1.35 +	    (setq cols (+ (YaTeX-str2int (YaTeX-match-string 0)) cols))
    1.36  	  (setq cols (1+ cols)))
    1.37  	(goto-char rb)
    1.38  	(setq p (point)))
    1.39 @@ -3095,7 +3095,7 @@
    1.40  	(let ((f (if (string= "" (YaTeX-match-string 1))
    1.41  		     YaTeX-current-file-name
    1.42  		   (YaTeX-match-string 1)))
    1.43 -	      (l (string-to-int (or (YaTeX-match-string 2)
    1.44 +	      (l (YaTeX-str2int (or (YaTeX-match-string 2)
    1.45  				    (YaTeX-match-string 3)))))
    1.46  	  (if sit (sit-for 1))
    1.47  	  (forward-line -1)