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

(calendar-redrawing): Delete.

Browse source 
(redraw-calendar): Do not bind calendar-redrawing.
This commit is contained in:
Glenn Morris 2005-03-16 13:23:09 +00:00
parent eae4ba2ac7
commit 7a099c439d
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calendar/calendar.el
View file

@ -2150,16 +2150,12 @@ the inserted text. Value is always t."
(forward-line 1))))
t)
(defvar calendar-redrawing nil
"Internal calendar variable, non-nil if inside redraw-calendar.")
(defun redraw-calendar ()
"Redraw the calendar display, if `calendar-buffer' is live."
(interactive)
(if (get-buffer calendar-buffer)
(with-current-buffer calendar-buffer
(let ((cursor-date (calendar-cursor-to-nearest-date))
(calendar-redrawing t))
(let ((cursor-date (calendar-cursor-to-nearest-date)))
(generate-calendar-window displayed-month displayed-year)
(calendar-cursor-to-visible-date cursor-date)))))