[Emacs-diffs] Changes to emacs/lisp/calendar/solar.el

[Juanma Barranquero]

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)