SCM

SCM Repository

[xemacs] Diff of /XEmacs/packages/xemacs-packages/calendar/cal-hebrew.el
ViewVC logotype

Diff of /XEmacs/packages/xemacs-packages/calendar/cal-hebrew.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Fri Jul 10 09:46:11 1998 UTC revision 1.2, Tue Sep 8 05:53:01 1998 UTC
# Line 1  Line 1 
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>
# Line 24  Line 24 
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
# Line 458  Line 462 
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))
# Line 570  Line 574 
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

root@alioth.debian.org
ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge
Show source