aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-05-22 00:24:21 +0000
committerJim Blandy1993-05-22 00:24:21 +0000
commitc8d190a5c7ef6182449bf9c01bd0603abc479c0b (patch)
treee8409cca33decc81b4800ca664d161989dbfc7e3
parent39a21be6fcd80359ff5c89a5f391b03af6545ecb (diff)
downloademacs-c8d190a5c7ef6182449bf9c01bd0603abc479c0b.tar.gz
emacs-c8d190a5c7ef6182449bf9c01bd0603abc479c0b.zip
* holidays.el: Update reference to the papers in S-P&E.
(filter-visible-calendar-holidays): Test for nil date.
-rw-r--r--lisp/calendar/cal-french.el10
-rw-r--r--lisp/calendar/cal-mayan.el4
-rw-r--r--lisp/calendar/holidays.el9
3 files changed, 12 insertions, 11 deletions
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 84e0de91e5b..2f9c92e9345 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -28,11 +28,11 @@
28;; This collection of functions implements the features of calendar.el and 28;; This collection of functions implements the features of calendar.el and
29;; diary.el that deal with the French Revolutionary calendar. 29;; diary.el that deal with the French Revolutionary calendar.
30 30
31;; Technical details of the French Revolutionary calendrical calculations can 31;; Technical details of the Mayan calendrical calculations can be found in
32;; be found in ``Calendrical Calculations, Part II: Three Historical 32;; ``Calendrical Calculations, Part II: Three Historical Calendars''
33;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen, 33;; by E. M. Reingold, N. Dershowitz, and S. M. Clamen,
34;; Report Number UIUCDCS-R-92-1743, Department of Computer Science, 34;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993),
35;; University of Illinois, April, 1992. 35;; pages 383-404.
36 36
37;; Comments, corrections, and improvements should be sent to 37;; Comments, corrections, and improvements should be sent to
38;; Edward M. Reingold Department of Computer Science 38;; Edward M. Reingold Department of Computer Science
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index f0d5b7981f3..9d88e4e60fa 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -46,8 +46,8 @@
46;; Technical details of the Mayan calendrical calculations can be found in 46;; Technical details of the Mayan calendrical calculations can be found in
47;; ``Calendrical Calculations, Part II: Three Historical Calendars'' 47;; ``Calendrical Calculations, Part II: Three Historical Calendars''
48;; by E. M. Reingold, N. Dershowitz, and S. M. Clamen, 48;; by E. M. Reingold, N. Dershowitz, and S. M. Clamen,
49;; Report Number UIUCDCS-R-92-1743, Department of Computer Science, 49;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993),
50;; University of Illinois, April, 1992. 50;; pages 383-404.
51 51
52;;; Code: 52;;; Code:
53 53
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index 5dd4a537cf1..00d96531a64 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -38,8 +38,8 @@
38;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), 38;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990),
39;; pages 899-928. ``Calendrical Calculations, Part II: Three Historical 39;; pages 899-928. ``Calendrical Calculations, Part II: Three Historical
40;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen, 40;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen,
41;; Report Number UIUCDCS-R-92-1743, Department of Computer Science, 41;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993),
42;; University of Illinois, April, 1992. 42;; pages 383-404.
43 43
44;; Hard copies of these two papers can be obtained by sending email to 44;; Hard copies of these two papers can be obtained by sending email to
45;; reingold@cs.uiuc.edu with the SUBJECT "send-paper-cal" (no quotes) and 45;; reingold@cs.uiuc.edu with the SUBJECT "send-paper-cal" (no quotes) and
@@ -662,8 +662,9 @@ in the calendar window."
662 (let ((visible) 662 (let ((visible)
663 (p l)) 663 (p l))
664 (while p 664 (while p
665 (if (calendar-date-is-visible-p (car (car p))) 665 (and (car (car p))
666 (setq visible (append (list (car p)) visible))) 666 (calendar-date-is-visible-p (car (car p)))
667 (setq visible (append (list (car p)) visible)))
667 (setq p (cdr p))) 668 (setq p (cdr p)))
668 visible)) 669 visible))
669 670