[Emacs-diffs] Changes to emacs/lisp/calendar/cal-china.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/08 07:07:17

Index: cal-china.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-china.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- cal-china.el        7 Apr 2008 01:59:37 -0000       1.48
+++ cal-china.el        8 Apr 2008 07:07:17 -0000       1.49
@@ -537,9 +537,9 @@
                       (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 @@
           (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