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)