Commit 7a099c43 authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-redrawing): Delete.

(redraw-calendar): Do not bind calendar-redrawing.
parent eae4ba2a
......@@ -2150,16 +2150,12 @@ the inserted text. Value is always t."
(forward-line 1))))
(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."
(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)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment