summaryrefslogtreecommitdiff
path: root/lisp/calendar/solar.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2005-05-16 11:34:49 +0000
committerJuanma Barranquero <lekktu@gmail.com>2005-05-16 11:34:49 +0000
commit027a4b6b3fd229f8aea323f59cb246d99deb8a75 (patch)
treec92da7d3049376d7bd687db6bc5c8dce82ed9335 /lisp/calendar/solar.el
parent216d380630ec8be9569a56687f0e08b89ee97c47 (diff)
downloademacs-027a4b6b3fd229f8aea323f59cb246d99deb8a75.tar.gz
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/calendar/solar.el')
-rw-r--r--lisp/calendar/solar.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index e1c4950b24b..8401aeb9bfd 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -227,7 +227,7 @@ Needed for polar areas, in order to know whether the day lasts 0 or 24 hours.")
Returns nil if nothing was entered."
(let ((x (read-string prompt "")))
(if (not (string-equal x ""))
- (string-to-int x))))
+ (string-to-number x))))
;; The condition-case stuff is needed to catch bogus arithmetic
;; exceptions that occur on some machines (like Sparcs)