andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Matthew Mundell <matt@mundell.ukfsn.org>

Browse source 
(fancy-diary-display): Don't rely on return value of
increment-calendar-month.
This commit is contained in:
Glenn Morris 2004-02-23 00:09:31 +00:00
parent 7420e0f55d
commit de3fce917a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calendar/diary-lib.el
View file

@ -587,8 +587,10 @@ This function is provided for optional use as the `diary-display-hook'."
(extract-calendar-month date))
(setq holiday-list-last-year
(extract-calendar-year date))
(increment-calendar-month
holiday-list-last-month holiday-list-last-year 1)
(progn
(increment-calendar-month
holiday-list-last-month holiday-list-last-year 1)
t)
(setq holiday-list
(let ((displayed-month holiday-list-last-month)
(displayed-year holiday-list-last-year))