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...") |
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))) |