Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Rename all filter-visible-calendar-holidays callers to

Browse source 
holiday-filter-visible-calendar.
This commit is contained in:
Glenn Morris 2007-09-14 04:27:45 +00:00
parent 13c8188ad2
commit 8705f7f342
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/calendar/cal-hebrew.el
View file

@ -352,11 +352,11 @@ nil if it is not visible in the current calendar window."
(list (calendar-gregorian-from-absolute (+ abs-r-h 20))
"Hoshanah Rabbah")))
(output-list
(filter-visible-calendar-holidays mandatory)))
(holiday-filter-visible-calendar mandatory)))
(if all-hebrew-calendar-holidays
(setq output-list
(append
(filter-visible-calendar-holidays optional)
(holiday-filter-visible-calendar optional)
output-list)))
output-list)))
@ -372,7 +372,7 @@ nil if it is not visible in the current calendar window."
(calendar-absolute-from-gregorian
(list m (calendar-last-day-of-month m y) y)))))
(abs-h (calendar-absolute-from-hebrew (list 9 25 h-y))))
(filter-visible-calendar-holidays
(holiday-filter-visible-calendar
(list
(list (calendar-gregorian-from-absolute (1- abs-h))
"Erev Hanukkah")
@ -469,11 +469,11 @@ nil if it is not visible in the current calendar window."
(list (calendar-gregorian-from-absolute (+ abs-p 51))
"Shavuot (second day)")))
(output-list
(filter-visible-calendar-holidays mandatory)))
(holiday-filter-visible-calendar mandatory)))
(if all-hebrew-calendar-holidays
(setq output-list
(append
(filter-visible-calendar-holidays optional)
(holiday-filter-visible-calendar optional)
output-list)))
output-list)))
@ -485,7 +485,7 @@ nil if it is not visible in the current calendar window."
(let* ((abs-t-a (calendar-absolute-from-hebrew
(list 5 9 (+ displayed-year 3760)))))
(filter-visible-calendar-holidays
(holiday-filter-visible-calendar
(list
(list (calendar-gregorian-from-absolute
(if (= (% abs-t-a 7) 6) (- abs-t-a 20) (- abs-t-a 21)))