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)) |