mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-08 09:09:19 +00:00
Code Issues Releases Activity

(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
Show Stats 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 ()
"Redraw the calendar display."
(interactive)
(let ((cursor-date (calendar-cursor-to-date)))
(let ((cursor-date (calendar-cursor-to-nearest-date)))
(generate-calendar-window displayed-month displayed-year)
(calendar-cursor-to-visible-date cursor-date)))