# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1110979389 0
# Node ID 3a754b1548d3d66332df5309eff04b456c0d110c
# Parent  02616b531a7760c42cf48894727876b74967e70b
(calendar-redrawing): Delete.
(redraw-calendar): Do not bind calendar-redrawing.

diff -r 02616b531a77 -r 3a754b1548d3 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Wed Mar 16 13:21:20 2005 +0000
+++ b/lisp/calendar/calendar.el	Wed Mar 16 13:23:09 2005 +0000
@@ -2150,16 +2150,12 @@
 	  (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)))))