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

(redraw-calendar): Move to nearest date before

Browse source 
redrawing.
This commit is contained in:
Gerd Moellmann 1999-11-03 15:08:53 +00:00
parent 5865af0db1
commit d172e3e45a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/calendar/calendar.el
View file

@ -1860,7 +1860,7 @@ the inserted text. Value is always t."
(defun redraw-calendar () (defun redraw-calendar ()
"Redraw the calendar display." "Redraw the calendar display."
(interactive) (interactive)
(let ((cursor-date (calendar-cursor-to-date))) (let ((cursor-date (calendar-cursor-to-nearest-date)))
(generate-calendar-window displayed-month displayed-year) (generate-calendar-window displayed-month displayed-year)
(calendar-cursor-to-visible-date cursor-date))) (calendar-cursor-to-visible-date cursor-date)))