diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:42:52 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:42:52 +0000 |
| commit | 5574e20901521b18c6c8d314dfa1d1d51d0a44f1 (patch) | |
| tree | b9813b70bdf95ff7bbad04a7cc90cc7f4bb490f3 /lisp/calc/calc-forms.el | |
| parent | 8f4a8efc4624ecfca5f073e6426088368091c040 (diff) | |
| download | emacs-5574e20901521b18c6c8d314dfa1d1d51d0a44f1.tar.gz | |
(calc-time, calc-date-notation, math-this-year, math-parse-date)
(math-parse-standard-date, calcFunc-tzone): Replace string-to-int by
string-to-number.
Diffstat (limited to 'lisp/calc/calc-forms.el')
| -rw-r--r-- | lisp/calc/calc-forms.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 4870891231a..10e4793c7a5 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -39,9 +39,9 @@ (calc-enter-result 0 "time" (list 'mod (list 'hms - (string-to-int (substring time 11 13)) - (string-to-int (substring time 14 16)) - (string-to-int (substring time 17 19))) + (string-to-number (substring time 11 13)) + (string-to-number (substring time 14 16)) + (string-to-number (substring time 17 19))) (list 'hms 24 0 0)))))) (defun calc-to-hms (arg) @@ -80,7 +80,7 @@ (if (equal fmt "") (setq fmt "1")) (if (string-match "\\` *[0-9] *\\'" fmt) - (setq fmt (nth (string-to-int fmt) calc-standard-date-formats))) + (setq fmt (nth (string-to-number fmt) calc-standard-date-formats))) (or (string-match "[a-zA-Z]" fmt) (error "Bad date format specifier")) (and arg @@ -441,7 +441,7 @@ (defun math-this-year () - (string-to-int (substring (current-time-string) -4))) + (string-to-number (substring (current-time-string) -4))) (defun math-leap-year-p (year) (if (Math-lessp year 1752) @@ -730,14 +730,14 @@ (if (or (string-match "\\([0-9][0-9]?\\):\\([0-9][0-9]?\\)\\(:\\([0-9][0-9]?\\(\\.[0-9]+\\)?\\)\\)? *\\([ap]m?\\|[ap]\\. *m\\.\\|noon\\|n\\>\\|midnight\\|mid\\>\\|m\\>\\)?" math-pd-str) (string-match "\\([0-9][0-9]?\\)\\(\\)\\(\\(\\(\\)\\)\\) *\\([ap]m?\\|[ap]\\. *m\\.\\|noon\\|n\\>\\|midnight\\|mid\\>\\|m\\>\\)" math-pd-str)) (let ((ampm (math-match-substring math-pd-str 6))) - (setq hour (string-to-int (math-match-substring math-pd-str 1)) + (setq hour (string-to-number (math-match-substring math-pd-str 1)) minute (math-match-substring math-pd-str 2) second (math-match-substring math-pd-str 4) math-pd-str (concat (substring math-pd-str 0 (match-beginning 0)) (substring math-pd-str (match-end 0)))) (if (equal minute "") (setq minute 0) - (setq minute (string-to-int minute))) + (setq minute (string-to-number minute))) (if (equal second "") (setq second 0) (setq second (math-read-number second))) @@ -801,7 +801,7 @@ (setq temp 0) (while (string-match "[0-9]+" math-pd-str temp) (and c (throw 'syntax "Too many numbers in date")) - (setq c (string-to-int (math-match-substring math-pd-str 0))) + (setq c (string-to-number (math-match-substring math-pd-str 0))) (or b (setq b c c nil)) (or a (setq a b b nil)) (setq temp (match-end 0))) @@ -1021,7 +1021,7 @@ (string-match "\\` *[0-9][0-9][0-9]" math-pd-str) (string-match "\\` *[0-9][0-9]" math-pd-str)) (string-match "\\` *[0-9]+" math-pd-str))) - (and (setq num (string-to-int + (and (setq num (string-to-number (math-match-substring math-pd-str 0)) math-pd-str (substring math-pd-str (match-end 0))) nil)) @@ -1236,13 +1236,13 @@ (setq p (cdr p)))) (if (looking-at "\\([-+][0-9]?[0-9]\\)\\([0-9][0-9]\\)?\\(\\'\\|[^0-9]\\)") (setq offset (math-add - (string-to-int (buffer-substring + (string-to-number (buffer-substring (match-beginning 1) (match-end 1))) (if (match-beginning 2) - (math-div (string-to-int (buffer-substring - (match-beginning 2) - (match-end 2))) + (math-div (string-to-number (buffer-substring + (match-beginning 2) + (match-end 2))) 60) 0))))) (if p |