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-china.el | |
| parent | 0e408f0cc5639f91deaaadb898449dddaf2f15a8 (diff) | |
| download | emacs-d92bcf94ecd8ab89f561950bd4d9d8f25dbdeaeb.tar.gz | |
Replace int-to-string with number-to-string.
Diffstat (limited to 'lisp/calendar/cal-china.el')
| -rw-r--r-- | lisp/calendar/cal-china.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el index 5590963b083..9ff392c47ee 100644 --- a/lisp/calendar/cal-china.el +++ b/lisp/calendar/cal-china.el @@ -537,9 +537,9 @@ Defaults to today's date if DATE is not given." (cons (format "%s (second)" (car l)) (cadr l))) (calendar-chinese-months-to-alist (cddr l))) (append - (list (cons (int-to-string (car l)) (car l))) + (list (cons (number-to-string (car l)) (car l))) (calendar-chinese-months-to-alist (cdr l)))) - (list (cons (int-to-string (car l)) (car l)))))) + (list (cons (number-to-string (car l)) (car l)))))) (defun calendar-chinese-months (c y) "A list of the months in cycle C, year Y of the Chinese calendar." @@ -569,11 +569,11 @@ Echo Chinese date unless NOECHO is non-nil." (cycle (calendar-read "Chinese calendar cycle number (>44): " (lambda (x) (> x 44)) - (int-to-string (car c)))) + (number-to-string (car c)))) (year (calendar-read "Year in Chinese cycle (1..60): " (lambda (x) (and (<= 1 x) (<= x 60))) - (int-to-string (cadr c)))) + (number-to-string (cadr c)))) (month-list (calendar-chinese-months-to-alist (calendar-chinese-months cycle year))) (month (cdr (assoc |