Mercurial > emacs
comparison lisp/calendar/cal-julian.el @ 13673:da11ffac4f8b
(calendar-absolute-from-astro): Doc fix.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Thu, 30 Nov 1995 03:25:04 +0000 |
parents | 621d48117fde |
children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
13672:bb7e5d35f83b | 13673:da11ffac4f8b |
---|---|
159 (defun diary-julian-date () | 159 (defun diary-julian-date () |
160 "Julian calendar equivalent of date diary entry." | 160 "Julian calendar equivalent of date diary entry." |
161 (format "Julian date: %s" (calendar-julian-date-string date))) | 161 (format "Julian date: %s" (calendar-julian-date-string date))) |
162 | 162 |
163 (defun calendar-absolute-from-astro (d) | 163 (defun calendar-absolute-from-astro (d) |
164 "Absolute date of astronical (Julian) day number D." | 164 "Absolute date of astronomical (Julian) day number D." |
165 (- d 1721424.5)) | 165 (- d 1721424.5)) |
166 | 166 |
167 (defun calendar-astro-from-absolute (d) | 167 (defun calendar-astro-from-absolute (d) |
168 "Astronomical (Julian) day number of absolute date D." | 168 "Astronomical (Julian) day number of absolute date D." |
169 (+ d 1721424.5)) | 169 (+ d 1721424.5)) |