/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.162 by gm, Tue Mar 1 10:24:33 2005 UTC revision 1.163 by gm, Wed Mar 9 00:28:22 2005 UTC
# Line 145  Line 145 
145    "Name of the buffer used for the calendar.")    "Name of the buffer used for the calendar.")
146    
147  ;;;###autoload  ;;;###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  
148  (defcustom calendar-offset 0  (defcustom calendar-offset 0
149    "*The offset of the principal month from the center of the calendar window.    "*The offset of the principal month from the center of the calendar window.
150  0 means the principal month is in the center (default), -1 means on the left,  0 means the principal month is in the center (default), -1 means on the left,
# Line 2172  the inserted text.  Value is always t." Line 2154  the inserted text.  Value is always t."
2154    "Redraw the calendar display, if `calendar-buffer' is live."    "Redraw the calendar display, if `calendar-buffer' is live."
2155    (interactive)    (interactive)
2156    (if (get-buffer calendar-buffer)    (if (get-buffer calendar-buffer)
2157        (with-current-buffer calendar-buffer        (save-excursion
2158          (let ((cursor-date (calendar-cursor-to-nearest-date)))          (with-current-buffer calendar-buffer
2159            (generate-calendar-window displayed-month displayed-year)            (let ((cursor-date (calendar-cursor-to-nearest-date)))
2160            (calendar-cursor-to-visible-date cursor-date)))))              (generate-calendar-window displayed-month displayed-year)
2161                (calendar-cursor-to-visible-date cursor-date))))))
2162    
2163    ;;;###autoload
2164    (defcustom calendar-week-start-day 0
2165      "*The day of the week on which a week in the calendar begins.
2166    0 means Sunday (default), 1 means Monday, and so on.
2167    
2168    If you change this variable directly (without using customize)
2169    after starting `calendar', you should call `redraw-calendar' to
2170    update the calendar display to reflect the change, otherwise
2171    movement commands will not work correctly."
2172      :type 'integer
2173      :set (lambda (sym val)
2174             (set sym val)
2175             (redraw-calendar))
2176      :group 'calendar)
2177    
2178  (defcustom calendar-debug-sexp nil  (defcustom calendar-debug-sexp nil
2179    "*Turn debugging on when evaluating a sexp in the diary or holiday list."    "*Turn debugging on when evaluating a sexp in the diary or holiday list."

Legend:
Removed from v.1.162  
changed lines
  Added in v.1.163

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26