Mercurial > emacs
diff lisp/calendar/cal-persia.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 |
line wrap: on
line diff
--- a/lisp/calendar/cal-persia.el Tue Apr 08 07:04:17 2008 +0000 +++ b/lisp/calendar/cal-persia.el Tue Apr 08 07:07:17 2008 +0000 @@ -152,9 +152,9 @@ (y (calendar-extract-year persian-date)) (m (calendar-extract-month persian-date)) (monthname (aref calendar-persian-month-name-array (1- m))) - (day (int-to-string (calendar-extract-day persian-date))) - (year (int-to-string y)) - (month (int-to-string m)) + (day (number-to-string (calendar-extract-day persian-date))) + (year (number-to-string y)) + (month (number-to-string m)) dayname) (mapconcat 'eval calendar-date-display-form ""))) @@ -174,7 +174,7 @@ (let* ((year (calendar-read "Persian calendar year (not 0): " (lambda (x) (not (zerop x))) - (int-to-string + (number-to-string (calendar-extract-year (calendar-persian-from-absolute (calendar-absolute-from-gregorian