/[emacs]/emacs/lisp/calendar/holidays.el
ViewVC logotype

Diff of /emacs/lisp/calendar/holidays.el

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

revision 1.32 by eliz, Wed May 9 15:11:07 2001 UTC revision 1.32.16.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 149  The optional LABEL is used to label the Line 149  The optional LABEL is used to label the
149            (name (if (string-equal choice "Equinoxes/Solstices")            (name (if (string-equal choice "Equinoxes/Solstices")
150                      choice                      choice
151                    (if (member choice '("Ask" ""))                    (if (member choice '("Ask" ""))
152                        "Holidays"                        "Holidays"
153                      (format "%s Holidays" choice)))))                      (format "%s Holidays" choice)))))
154       (list start-year end-year which name)))       (list start-year end-year which name)))
155    (message "Computing holidays...")    (message "Computing holidays...")
# Line 466  date.  If date is nil, or if the date is Line 466  date.  If date is nil, or if the date is
466             (filter-visible-calendar-holidays mandatory)))             (filter-visible-calendar-holidays mandatory)))
467       (if all-christian-calendar-holidays       (if all-christian-calendar-holidays
468           (setq output-list           (setq output-list
469                 (append                 (append
470                  (filter-visible-calendar-holidays optional)                  (filter-visible-calendar-holidays optional)
471                  output-list)))                  output-list)))
472       output-list)))       output-list)))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.32.16.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26