comparison lisp/calendar/cal-iso.el @ 93844:bf9ef749c23e

Replace int-to-string with number-to-string.
author Glenn Morris <rgm@gnu.org>
date Tue, 08 Apr 2008 07:07:17 +0000
parents 3ff2b47de8f2
children e49abd957e81
comparison
equal deleted inserted replaced
93843:61357badb5fa 93844:bf9ef749c23e
100 Reads a year and week, and if DAYFLAG is non-nil a day (otherwise 100 Reads a year and week, and if DAYFLAG is non-nil a day (otherwise
101 taken to be 1)." 101 taken to be 1)."
102 (let* ((year (calendar-read 102 (let* ((year (calendar-read
103 "ISO calendar year (>0): " 103 "ISO calendar year (>0): "
104 (lambda (x) (> x 0)) 104 (lambda (x) (> x 0))
105 (int-to-string (calendar-extract-year 105 (number-to-string (calendar-extract-year
106 (calendar-current-date))))) 106 (calendar-current-date)))))
107 (no-weeks (calendar-extract-month 107 (no-weeks (calendar-extract-month
108 (calendar-iso-from-absolute 108 (calendar-iso-from-absolute
109 (1- 109 (1-
110 (calendar-dayname-on-or-before 110 (calendar-dayname-on-or-before