Mercurial > emacs
diff lisp/calendar/cal-coptic.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-coptic.el Tue Apr 08 07:04:17 2008 +0000 +++ b/lisp/calendar/cal-coptic.el Tue Apr 08 07:07:17 2008 +0000 @@ -122,10 +122,10 @@ (if (< y 1) "" (let ((monthname (aref calendar-coptic-month-name-array (1- m))) - (day (int-to-string (calendar-extract-day coptic-date))) + (day (number-to-string (calendar-extract-day coptic-date))) (dayname nil) - (month (int-to-string m)) - (year (int-to-string y))) + (month (number-to-string m)) + (year (number-to-string y))) (mapconcat 'eval calendar-date-display-form ""))))) ;;;###cal-autoload @@ -147,7 +147,7 @@ (year (calendar-read (format "%s calendar year (>0): " calendar-coptic-name) (lambda (x) (> x 0)) - (int-to-string + (number-to-string (calendar-extract-year (calendar-coptic-from-absolute (calendar-absolute-from-gregorian today))))))