diff options
| -rw-r--r-- | lisp/calendar/cal-dst.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index 2f7e4ac88fd..ddd317de106 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el | |||
| @@ -346,6 +346,7 @@ This function respects the value of `calendar-dst-check-each-year-flag'." | |||
| 346 | (cadr (calendar-dst-find-startend year)) | 346 | (cadr (calendar-dst-find-startend year)) |
| 347 | (nth 4 calendar-current-time-zone-cache)))) | 347 | (nth 4 calendar-current-time-zone-cache)))) |
| 348 | (if expr (eval expr))) | 348 | (if expr (eval expr))) |
| 349 | ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. | ||
| 349 | (and (not (zerop calendar-daylight-time-offset)) | 350 | (and (not (zerop calendar-daylight-time-offset)) |
| 350 | (calendar-nth-named-day 2 0 3 year)))) | 351 | (calendar-nth-named-day 2 0 3 year)))) |
| 351 | 352 | ||
| @@ -356,6 +357,7 @@ This function respects the value of `calendar-dst-check-each-year-flag'." | |||
| 356 | (nth 2 (calendar-dst-find-startend year)) | 357 | (nth 2 (calendar-dst-find-startend year)) |
| 357 | (nth 5 calendar-current-time-zone-cache)))) | 358 | (nth 5 calendar-current-time-zone-cache)))) |
| 358 | (if expr (eval expr))) | 359 | (if expr (eval expr))) |
| 360 | ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. | ||
| 359 | (and (not (zerop calendar-daylight-time-offset)) | 361 | (and (not (zerop calendar-daylight-time-offset)) |
| 360 | (calendar-nth-named-day 1 0 11 year)))) | 362 | (calendar-nth-named-day 1 0 11 year)))) |
| 361 | 363 | ||