| 1 |
;;; cal-hebrew.el --- calendar functions for the Hebrew calendar. |
;;; cal-hebrew.el --- calendar functions for the Hebrew calendar. |
| 2 |
|
|
| 3 |
;; Copyright (C) 1995 Free Software Foundation, Inc. |
;; Copyright (C) 1995,1997 Free Software Foundation, Inc. |
| 4 |
|
|
| 5 |
;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu> |
;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu> |
| 6 |
;; Edward M. Reingold <reingold@cs.uiuc.edu> |
;; Edward M. Reingold <reingold@cs.uiuc.edu> |
| 24 |
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 25 |
;; Boston, MA 02111-1307, USA. |
;; Boston, MA 02111-1307, USA. |
| 26 |
|
|
| 27 |
;;; Synched up with: FSF 20.2 |
;;; Synched up with: FSF 20.3 |
| 28 |
|
|
| 29 |
;;; Commentary: |
;;; Commentary: |
| 30 |
|
|
| 31 |
;; This collection of functions implements the features of calendar.el and |
;; This collection of functions implements the features of calendar.el and |
| 32 |
;; diary.el that deal with the Hebrew calendar. |
;; diary.el that deal with the Hebrew calendar. |
| 33 |
|
|
| 34 |
|
;; Technical details of all the calendrical calculations can be found in |
| 35 |
|
;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, |
| 36 |
|
;; Cambridge University Press (1997). |
| 37 |
|
|
| 38 |
;; Comments, corrections, and improvements should be sent to |
;; Comments, corrections, and improvements should be sent to |
| 39 |
;; Edward M. Reingold Department of Computer Science |
;; Edward M. Reingold Department of Computer Science |
| 40 |
;; (217) 333-6733 University of Illinois at Urbana-Champaign |
;; (217) 333-6733 University of Illinois at Urbana-Champaign |
| 462 |
(list (calendar-gregorian-from-absolute (+ abs-p 33)) |
(list (calendar-gregorian-from-absolute (+ abs-p 33)) |
| 463 |
"Lag BaOmer") |
"Lag BaOmer") |
| 464 |
(list (calendar-gregorian-from-absolute (+ abs-p 43)) |
(list (calendar-gregorian-from-absolute (+ abs-p 43)) |
| 465 |
"Yom Yerushalim") |
"Yom Yerushalaim") |
| 466 |
(list (calendar-gregorian-from-absolute (+ abs-p 49)) |
(list (calendar-gregorian-from-absolute (+ abs-p 49)) |
| 467 |
"Erev Shavuot") |
"Erev Shavuot") |
| 468 |
(list (calendar-gregorian-from-absolute (+ abs-p 51)) |
(list (calendar-gregorian-from-absolute (+ abs-p 51)) |
| 574 |
(backward-char 1) |
(backward-char 1) |
| 575 |
(subst-char-in-region date-start (point) ?\^M ?\n t) |
(subst-char-in-region date-start (point) ?\^M ?\n t) |
| 576 |
(add-to-diary-list |
(add-to-diary-list |
| 577 |
gdate (buffer-substring entry-start (point))))))) |
gdate |
| 578 |
|
(buffer-substring-no-properties entry-start (point)) |
| 579 |
|
(buffer-substring-no-properties |
| 580 |
|
(1+ date-start) (1- entry-start))))))) |
| 581 |
(setq d (cdr d)))) |
(setq d (cdr d)))) |
| 582 |
(setq gdate |
(setq gdate |
| 583 |
(calendar-gregorian-from-absolute |
(calendar-gregorian-from-absolute |