procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Matthew Junker <matthew.junker at sbcglobal.net> (tiny change)

Browse source 
(cal-tex-cursor-month-landscape)
(cal-tex-cursor-month): Correctly increment the end date for diary and
holiday listing.  (Bug#4626)
This commit is contained in:
Glenn Morris 2009-10-06 02:36:35 +00:00
parent 828821887b
commit 00169eb683
2 changed files with 20 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-10-06 Matthew Junker <matthew.junker@sbcglobal.net> (tiny change)
* calendar/cal-tex.el (cal-tex-cursor-month-landscape)
(cal-tex-cursor-month): Correctly increment the end date for diary and
holiday listing. (Bug#4626)
2009-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
* help-fns.el (describe-function-1): Don't burp is the function is not

28
lisp/calendar/cal-tex.el
View file

@ -439,13 +439,13 @@ Optional EVENT indicates a buffer position to use instead of point."
(end-year year)
(cal-tex-which-days '(0 1 2 3 4 5 6))
(d1 (calendar-absolute-from-gregorian (list month 1 year)))
(d2 (calendar-absolute-from-gregorian
(list end-month
(calendar-last-day-of-month end-month end-year)
end-year)))
(diary-list (progn
(calendar-increment-month end-month end-year (1- n))
(if cal-tex-diary (cal-tex-list-diary-entries d1 d2))))
(d2 (progn
(calendar-increment-month end-month end-year (1- n))
(calendar-absolute-from-gregorian
(list end-month
(calendar-last-day-of-month end-month end-year)
end-year))))
(diary-list (if cal-tex-diary (cal-tex-list-diary-entries d1 d2)))
(holidays (if cal-tex-holidays (cal-tex-list-holidays d1 d2)))
other-month other-year small-months-at-start)
(cal-tex-insert-preamble (cal-tex-number-weeks month year 1) t "12pt")
@ -508,13 +508,13 @@ indicates a buffer position to use instead of point."
(end-month month)
(end-year year)
(d1 (calendar-absolute-from-gregorian (list month 1 year)))
(d2 (calendar-absolute-from-gregorian
(list end-month
(calendar-last-day-of-month end-month end-year)
end-year)))
(diary-list (progn
(calendar-increment-month end-month end-year (1- n))
(if cal-tex-diary (cal-tex-list-diary-entries d1 d2))))
(d2 (progn
(calendar-increment-month end-month end-year (1- n))
(calendar-absolute-from-gregorian
(list end-month
(calendar-last-day-of-month end-month end-year)
end-year))))
(diary-list (if cal-tex-diary (cal-tex-list-diary-entries d1 d2)))
(holidays (if cal-tex-holidays (cal-tex-list-holidays d1 d2)))
other-month other-year)
(cal-tex-insert-preamble (cal-tex-number-weeks month year n) nil "12pt")