From 7a099c439dffc25f5f9a71afc13d559a2ae80c5f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 16 Mar 2005 13:23:09 +0000 Subject: [PATCH] (calendar-redrawing): Delete. (redraw-calendar): Do not bind calendar-redrawing. --- lisp/calendar/calendar.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 8c78d9540bf..baa18d769c2 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -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))))) -- 2.39.2