diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-08 07:08:24 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-08 07:08:24 +0000 |
| commit | d92bcf94ecd8ab89f561950bd4d9d8f25dbdeaeb (patch) | |
| tree | c5d0bcb4e6ba6d9082266fa1cd71b49c2a7104c9 /lisp/calendar/cal-bahai.el | |
| parent | 0e408f0cc5639f91deaaadb898449dddaf2f15a8 (diff) | |
| download | emacs-d92bcf94ecd8ab89f561950bd4d9d8f25dbdeaeb.tar.gz | |
Replace int-to-string with number-to-string.
Diffstat (limited to 'lisp/calendar/cal-bahai.el')
| -rw-r--r-- | lisp/calendar/cal-bahai.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 4e9d2970558..4726c0b9c47 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)))))) |