[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.161 
emacs/lisp/calendar/calendar.el:1.162
*** emacs/lisp/calendar/calendar.el:1.161       Sun Feb 27 20:25:48 2005
--- emacs/lisp/calendar/calendar.el     Tue Mar  1 10:24:33 2005
***************
*** 2169,2179 ****
    t)
  
  (defun redraw-calendar ()
!   "Redraw the calendar display."
    (interactive)
!   (let ((cursor-date (calendar-cursor-to-nearest-date)))
!     (generate-calendar-window displayed-month displayed-year)
!     (calendar-cursor-to-visible-date cursor-date)))
  
  (defcustom calendar-debug-sexp nil
    "*Turn debugging on when evaluating a sexp in the diary or holiday list."
--- 2169,2181 ----
    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)))))
  
  (defcustom calendar-debug-sexp nil
    "*Turn debugging on when evaluating a sexp in the diary or holiday list."