X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/0e408f0cc5639f91deaaadb898449dddaf2f15a8..d92bcf94ecd8ab89f561950bd4d9d8f25dbdeaeb:/lisp/calendar/cal-bahai.el

diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 4e9d297055..4726c0b9c4 100644
--- a/lisp/calendar/cal-bahai.el
+++ b/lisp/calendar/cal-bahai.el
@@ -135,12 +135,12 @@ Defaults to today's date if DATE is not given."
                                  (<= d 0))
                             "Ayyám-i-Há"
                           (aref calendar-bahai-month-name-array (1- m))))
-             (day (int-to-string
+             (day (number-to-string
                    (if (<= d 0)
                        (+ d (if (calendar-bahai-leap-year-p y) 5 4))
                      d)))
-             (year (int-to-string y))
-             (month (int-to-string m))
+             (year (number-to-string y))
+             (month (number-to-string m))
              dayname)
         ;; Can't call calendar-date-string because of monthname oddity.
         (mapconcat 'eval calendar-date-display-form "")))))
@@ -164,7 +164,7 @@ Reads a year, month and day."
          (year (calendar-read
                 "Bahá'í calendar year (not 0): "
                 (lambda (x) (not (zerop x)))
-                (int-to-string
+                (number-to-string
                  (calendar-extract-year
                   (calendar-bahai-from-absolute
                    (calendar-absolute-from-gregorian today))))))