[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el

[Glenn Morris]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.164 
emacs/lisp/calendar/calendar.el:1.165
*** emacs/lisp/calendar/calendar.el:1.164       Fri Mar 11 21:44:42 2005
--- emacs/lisp/calendar/calendar.el     Wed Mar 16 13:23:09 2005
***************
*** 2150,2165 ****
          (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))
            (generate-calendar-window displayed-month displayed-year)
            (calendar-cursor-to-visible-date cursor-date)))))
  
--- 2150,2161 ----
          (forward-line 1))))
    t)
  
  (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)))
            (generate-calendar-window displayed-month displayed-year)
            (calendar-cursor-to-visible-date cursor-date)))))