/[emacs]/emacs/lisp/calendar/solar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/solar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.54 by rms, Sat May 14 11:25:00 2005 UTC revision 1.55 by lektu, Mon May 16 11:11:48 2005 UTC
# Line 227  Needed for polar areas, in order to know Line 227  Needed for polar areas, in order to know
227  Returns nil if nothing was entered."  Returns nil if nothing was entered."
228    (let ((x (read-string prompt "")))    (let ((x (read-string prompt "")))
229      (if (not (string-equal x ""))      (if (not (string-equal x ""))
230          (string-to-int x))))          (string-to-number x))))
231    
232  ;; The condition-case stuff is needed to catch bogus arithmetic  ;; The condition-case stuff is needed to catch bogus arithmetic
233  ;; exceptions that occur on some machines (like Sparcs)  ;; exceptions that occur on some machines (like Sparcs)

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26