Mercurial > emacs

changeset 93641:8a8d2922328b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update for cal-julian name changes.
author Glenn Morris <rgm@gnu.org>
date Fri, 04 Apr 2008 07:06:53 +0000
parents ce3f8a4ae315
children d01118f40990
files lisp/calendar/solar.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/solar.el	Fri Apr 04 07:06:37 2008 +0000
+++ b/lisp/calendar/solar.el	Fri Apr 04 07:06:53 2008 +0000
@@ -51,7 +51,7 @@
 
 (require 'calendar)
 (require 'cal-dst)
-;; calendar-absolute-from-astro and v versa are cal-autoloads.
+;; calendar-astro-to-absolute and v versa are cal-autoloads.
 ;;;(require 'cal-julian)
 
 
@@ -723,7 +723,7 @@
 `calendar-daylight-savings-starts-time', `calendar-daylight-savings-ends',
 `calendar-daylight-savings-ends-time', `calendar-daylight-time-offset', and
 `calendar-time-zone' are used to interpret local time."
-  (let* ((a-d (calendar-absolute-from-astro d))
+  (let* ((a-d (calendar-astro-to-absolute d))
          ;; Get Universal Time.
          (date (calendar-astro-from-absolute
                 (- a-d
@@ -735,7 +735,7 @@
                         (extract-calendar-year
                          (calendar-gregorian-from-absolute
                           (floor
-                           (calendar-absolute-from-astro
+                           (calendar-astro-to-absolute
                             date)))))))
          (U (/ (- date 2451545) 3652500))
          (longitude
@@ -1041,7 +1041,7 @@
          ;;      (calendar-absolute-from-gregorian
          ;;       (list (+ 3 (* k 3)) 15 y)))
          ;;     90))
-         ;; (abs-day (calendar-absolute-from-astro d)))
+         ;; (abs-day (calendar-astro-to-absolute d)))
          (abs-day (calendar-absolute-from-gregorian d)))
     (list
      (list (calendar-gregorian-from-absolute (floor abs-day))