comparison lisp/calendar/cal-dst.el @ 4667:dbe2da5db2f7

(calendar-time-zone-daylight-rules): Remove special case for Israel. Israel has changed its daylight savings time rules, and we don't know what the current rules are.

4666:674082454a0c

             (calendar-for-loop j from (max 2 (- d 6)) to (min d (- last 8)) do
		(setq l
		      (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))))))))
	 (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.
    (while
	(let ((rules candidate-rules)

For example, if daylight savings time is mandated to start on October 1,
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:

      '(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.

If the locale never uses daylight savings time, set this to nil.")

(defvar calendar-daylight-savings-ends
  (or (car (nthcdr 5 calendar-current-time-zone-cache))

This is an expression in the variable `year' whose value gives the Gregorian
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:

      '(calendar-gregorian-from-absolute
        (calendar-dayname-on-or-before
         0
         (- (calendar-absolute-from-hebrew (list 7 1 (+ year 3761))) 3)))

If the locale never uses daylight savings time, set this to nil.")
  
(defvar calendar-daylight-savings-starts-time
  (or (car (nthcdr 6 calendar-current-time-zone-cache)) 120)

4667:dbe2da5db2f7

             (calendar-for-loop j from (max 2 (- d 6)) to (min d (- last 8)) do
		(setq l
		      (cons
		       (list 'calendar-nth-named-day 1 weekday m 'year j)
		       l)))
	     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.
    (while
	(let ((rules candidate-rules)

For example, if daylight savings time is mandated to start on October 1,
you would set `calendar-daylight-savings-starts' to

      '(10 1 year)

If it starts on the first Sunday in April, you would set it to

      '(calendar-nth-named-day 1 0 4 year)

If the locale never uses daylight savings time, set this to nil.")

(defvar calendar-daylight-savings-ends
  (or (car (nthcdr 5 calendar-current-time-zone-cache))

This is an expression in the variable `year' whose value gives the Gregorian
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, if daylight savings time ends on the last Sunday in October:

      '(calendar-nth-named-day -1 0 10 year)

If the locale never uses daylight savings time, set this to nil.")
  
(defvar calendar-daylight-savings-starts-time
  (or (car (nthcdr 6 calendar-current-time-zone-cache)) 120)