diff options
| author | Glenn Morris <rgm@gnu.org> | 2005-03-16 13:23:09 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2005-03-16 13:23:09 +0000 |
| commit | 7a099c439dffc25f5f9a71afc13d559a2ae80c5f (patch) | |
| tree | aa3956c38168b33aaed81814911fb04950380fa5 | |
| parent | eae4ba2ac75e08d9924ed60445c2e8c21fd308e1 (diff) | |
| download | emacs-7a099c439dffc25f5f9a71afc13d559a2ae80c5f.tar.gz | |
(calendar-redrawing): Delete.
(redraw-calendar): Do not bind calendar-redrawing.
| -rw-r--r-- | lisp/calendar/calendar.el | 6 |
1 files changed, 1 insertions, 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))))) |