[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el |
Date: |
Wed, 16 Mar 2005 08:23:09 -0500 |
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)))))