Mercurial > emacs

comparison lisp/calendar/cal-coptic.el @ 13575:197015b859ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix starting date of Ethiopic calendar.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Fri, 17 Nov 1995 17:40:02 +0000
parents 621d48117fde
children 83f275dcd93a
comparison
equal deleted inserted replaced
13574:c5d4269e17d9 13575:197015b859ab
170 170
171 (defconst ethiopic-calendar-month-name-array 171 (defconst ethiopic-calendar-month-name-array
172 ["Maskarram" "Tekemt" "Hadar" "Tahsas" "Tarr" "Yekatit" "Magawit" "Miaziah" 172 ["Maskarram" "Tekemt" "Hadar" "Tahsas" "Tarr" "Yekatit" "Magawit" "Miaziah"
173 "Genbot" "Sanni" "Hamle" "Nas'hi" "Pagnem"]) 173 "Genbot" "Sanni" "Hamle" "Nas'hi" "Pagnem"])
174 174
175 (defconst ethiopic-calendar-epoch (calendar-absolute-from-julian '(8 29 7)) 175 (defconst ethiopic-calendar-epoch -2006079
176 "Absolute date of start of Ethiopic calendar = August 29, 7 A.D. (Julian).") 176 "Absolute date of start of Ethiopic calendar = August 29, 5493 B.C.E. (Julian).")
177 177
178 (defconst ethiopic-name "Ethiopic") 178 (defconst ethiopic-name "Ethiopic")
179 179
180 (defun calendar-absolute-from-ethiopic (date) 180 (defun calendar-absolute-from-ethiopic (date)
181 "Compute absolute date from Ethiopic date DATE. 181 "Compute absolute date from Ethiopic date DATE.