emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el,v
Date: Tue, 08 Apr 2008 07:07:18 +0000

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

Index: calendar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/calendar.el,v
retrieving revision 1.253
retrieving revision 1.254
diff -u -b -r1.253 -r1.254
--- calendar.el 7 Apr 2008 07:25:04 -0000       1.253
+++ calendar.el 8 Apr 2008 07:07:16 -0000       1.254
@@ -2258,7 +2258,7 @@
   (let* ((year (calendar-read
                 "Year (>0): "
                 (lambda (x) (> x 0))
-                (int-to-string (calendar-extract-year
+                (number-to-string (calendar-extract-year
                                 (calendar-current-date)))))
          (month-array calendar-month-name-array)
          (completion-ignore-case t)
@@ -2536,9 +2536,9 @@
   (let* ((dayname (unless nodayname (calendar-day-name date abbreviate)))
          (month (calendar-extract-month date))
          (monthname (calendar-month-name month abbreviate))
-         (day (int-to-string (calendar-extract-day date)))
-         (month (int-to-string month))
-         (year (int-to-string (calendar-extract-year date))))
+         (day (number-to-string (calendar-extract-day date)))
+         (month (number-to-string month))
+         (year (number-to-string (calendar-extract-year date))))
     (mapconcat 'eval calendar-date-display-form "")))
 
 (defun calendar-dayname-on-or-before (dayname date)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]