[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-julian.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-julian.el,v |
Date: |
Mon, 07 Apr 2008 01:59:40 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/04/07 01:59:37
Index: cal-julian.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-julian.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- cal-julian.el 6 Apr 2008 20:44:31 -0000 1.33
+++ cal-julian.el 7 Apr 2008 01:59:36 -0000 1.34
@@ -36,8 +36,8 @@
(defun calendar-julian-to-absolute (date)
"The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The Gregorian date Sunday, December 31, 1 BC is imaginary."
- (let ((month (extract-calendar-month date))
- (year (extract-calendar-year date)))
+ (let ((month (calendar-extract-month date))
+ (year (calendar-extract-year date)))
(+ (calendar-day-number date)
(if (and (zerop (% year 100))
(not (zerop (% year 400)))
@@ -107,7 +107,7 @@
"Julian calendar year (>0): "
(lambda (x) (> x 0))
(int-to-string
- (extract-calendar-year
+ (calendar-extract-year
(calendar-julian-from-absolute
(calendar-absolute-from-gregorian
today))))))