martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(calendar-time-zone-daylight-rules): Remove special case for Israel.

Browse Source 
Israel has changed its daylight savings time rules, and we don't know
what the current rules are.
This commit is contained in:
Paul Eggert
1993-09-06 22:37:51 +00:00
parent add3312f11
commit d6fc04a8ca
1 changed files with 5 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/calendar/cal-dst.el
View File

@@ -153,21 +153,7 @@ The result has the proper form for calendar-daylight-savings-starts'."
(cons
(list 'calendar-nth-named-day 1 weekday m 'year j)
l)))
l)
;; Israel is special.
(if (zerop weekday)
(if (< m 7)
(list
'(calendar-gregorian-from-absolute
(calendar-dayname-on-or-before
0
(calendar-absolute-from-hebrew
(list 1 28 (+ year 3760))))))
(list '(calendar-gregorian-from-absolute
(calendar-dayname-on-or-before
0
(- (calendar-absolute-from-hebrew
(list 7 1 (+ year 3761))) 3))))))))
l)))
(prevday-sec (- -1 utc-diff)) ;; last sec of previous local day
(year (1+ y)))
;; Scan through the next few years until only one rule remains.
@@ -310,15 +296,9 @@ you would set `calendar-daylight-savings-starts' to
'(10 1 year)
For a more complex example, daylight savings time begins in Israel on the
first Sunday after Passover ends on Nisan 21:
If it starts on the first Sunday in April, you would set it to
'(calendar-gregorian-from-absolute
(calendar-dayname-on-or-before
0
(calendar-absolute-from-hebrew (list 1 28 (+ year 3760)))))
because Nisan is the first month in the Hebrew calendar.
'(calendar-nth-named-day 1 0 4 year)
If the locale never uses daylight savings time, set this to nil.")
@@ -332,13 +312,9 @@ date in the form (month day year) on which daylight savings time ends. It is
used to determine the starting date of daylight savings time for the holiday
list and for correcting times of day in the solar and lunar calculations.
For example, daylight savings time ends in Israel on the Sunday Selichot
begins:
For example, if daylight savings time ends on the last Sunday in October:
'(calendar-gregorian-from-absolute
(calendar-dayname-on-or-before
0
(- (calendar-absolute-from-hebrew (list 7 1 (+ year 3761))) 3)))
'(calendar-nth-named-day -1 0 10 year)
If the locale never uses daylight savings time, set this to nil.")