mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-15 11:21:19 -07:00
Code Issues Projects Releases Wiki Activity

calendar-check-holidays: Call calendar-increment-month

Browse source 
* lisp/calendar/holidays.el (calendar-check-holidays): Call
calendar-increment-month (bug#80476).
This commit is contained in:
Liu Hui 2026-02-25 00:19:40 +08:00 • committed by Sean Whitton
parent f3aff938fa
commit 8992eea7d5
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/calendar/holidays.el
View file

@ -538,6 +538,7 @@ strings describing those holidays that apply on DATE, or nil if none do."
(displayed-year (calendar-extract-year date))
(calendar-total-months 1)
holiday-list)
(calendar-increment-month displayed-month displayed-year 1)
(dolist (h (calendar-holiday-list) holiday-list)
(if (calendar-date-equal date (car h))
(setq holiday-list (append holiday-list (cdr h)))))))