diff options
author | Juanma Barranquero <[email protected]> | 2005-05-16 11:34:49 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2005-05-16 11:34:49 +0000 |
commit | 027a4b6b3fd229f8aea323f59cb246d99deb8a75 (patch) | |
tree | c92da7d3049376d7bd687db6bc5c8dce82ed9335 /lisp/play | |
parent | 216d380630ec8be9569a56687f0e08b89ee97c47 (diff) |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/play')
-rw-r--r-- | lisp/play/gametree.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index f79ded4955..abab58d601 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el @@ -204,12 +204,12 @@ should be no leading white space." gametree-half-ply-regexp "\\)")) (limit (save-excursion (beginning-of-line 1) (point)))) (if (looking-at boundary) - (+ (* 2 (string-to-int (match-string 1))) + (+ (* 2 (string-to-number (match-string 1))) (if (string-match gametree-half-ply-regexp (match-string 2)) 1 0)) (save-excursion (re-search-backward boundary limit) (skip-chars-backward "0123456789") - (1+ (* 2 (string-to-int + (1+ (* 2 (string-to-number (buffer-substring (point) (match-end 1)))))))))) (defun gametree-current-branch-ply () @@ -345,7 +345,7 @@ This value is simply the outline heading level of the current line." "Return score of current variation according to its score tag. When no score tag is present, use the value of `gametree-default-score'." (if (looking-at gametree-score-regexp) - (string-to-int (match-string 3)) + (string-to-number (match-string 3)) gametree-default-score)) (defun gametree-compute-reduced-score () |