Mercurial > emacs
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 |