[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.162 
emacs/lisp/calendar/calendar.el:1.163
*** emacs/lisp/calendar/calendar.el:1.162       Tue Mar  1 10:24:33 2005
--- emacs/lisp/calendar/calendar.el     Wed Mar  9 00:28:22 2005
***************
*** 145,168 ****
    "Name of the buffer used for the calendar.")
  
  ;;;###autoload
- (defcustom calendar-week-start-day 0
-   "*The day of the week on which a week in the calendar begins.
- 0 means Sunday (default), 1 means Monday, and so on.
- 
- If you change this variable directly (without using customize)
- after starting `calendar', you should call `redraw-calendar' to
- update the calendar display to reflect the change, otherwise
- movement commands will not work correctly."
-   :type 'integer
-   :set (lambda (sym val)
-          (set sym val)
-          (let ((buffer (get-buffer calendar-buffer)))
-            (when (buffer-live-p buffer)
-              (with-current-buffer buffer
-                (redraw-calendar)))))
-   :group 'calendar)
- 
- ;;;###autoload
  (defcustom calendar-offset 0
    "*The offset of the principal month from the center of the calendar window.
  0 means the principal month is in the center (default), -1 means on the left,
--- 145,150 ----
***************
*** 2172,2181 ****
    "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."
--- 2154,2179 ----
    "Redraw the calendar display, if `calendar-buffer' is live."
    (interactive)
    (if (get-buffer calendar-buffer)
!       (save-excursion
!         (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))))))
! 
! ;;;###autoload
! (defcustom calendar-week-start-day 0
!   "*The day of the week on which a week in the calendar begins.
! 0 means Sunday (default), 1 means Monday, and so on.
! 
! If you change this variable directly (without using customize)
! after starting `calendar', you should call `redraw-calendar' to
! update the calendar display to reflect the change, otherwise
! movement commands will not work correctly."
!   :type 'integer
!   :set (lambda (sym val)
!          (set sym val)
!          (redraw-calendar))
!   :group 'calendar)
  
  (defcustom calendar-debug-sexp nil
    "*Turn debugging on when evaluating a sexp in the diary or holiday list."