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, |
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." |