Index: emacs/lisp/calendar/solar.el
diff -c emacs/lisp/calendar/solar.el:1.54 emacs/lisp/calendar/solar.el:1.55
*** emacs/lisp/calendar/solar.el:1.54 Sat May 14 11:25:00 2005
--- emacs/lisp/calendar/solar.el Mon May 16 11:11:48 2005
***************
*** 227,233 ****
Returns nil if nothing was entered."
(let ((x (read-string prompt "")))
(if (not (string-equal x ""))
! (string-to-int x))))
;; The condition-case stuff is needed to catch bogus arithmetic
;; exceptions that occur on some machines (like Sparcs)
--- 227,233 ----
Returns nil if nothing was entered."
(let ((x (read-string prompt "")))
(if (not (string-equal x ""))
! (string-to-number x))))
;; The condition-case stuff is needed to catch bogus arithmetic
;; exceptions that occur on some machines (like Sparcs)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
