Lines Matching defs:day
57 (day (extract-calendar-day cursor-date))
60 (let ((last (calendar-last-day-of-month month year)))
61 (if (< last day)
62 (setq day last)))
64 (let ((new-cursor-date (list month day year)))
133 Returns the list (month day year) giving the cursor position."
155 (defun calendar-forward-day (arg)
177 (defun calendar-backward-day (arg)
181 (calendar-forward-day (- arg)))
187 (calendar-forward-day (* arg 7)))
193 (calendar-forward-day (* arg -7)))
196 "Move the cursor back ARG calendar-week-start-day's."
199 (let ((day (calendar-day-of-week (calendar-cursor-to-date))))
200 (calendar-backward-day
201 (if (= day calendar-week-start-day)
203 (+ (mod (- day calendar-week-start-day) 7)
207 "Move the cursor forward ARG calendar-week-start-day+6's."
210 (let ((day (calendar-day-of-week (calendar-cursor-to-date))))
211 (calendar-forward-day
212 (if (= day (mod (1- calendar-week-start-day) 7))
214 (+ (- 6 (mod (- day calendar-week-start-day) 7))
223 (day (extract-calendar-day date))
225 (if (= day 1)
236 (day (extract-calendar-day date))
238 (last-day (calendar-last-day-of-month month year)))
239 (if (/= day last-day)
241 (calendar-cursor-to-visible-date (list month last-day year))
244 (let ((last-day (list
246 (calendar-last-day-of-month month year)
248 (if (not (calendar-date-is-visible-p last-day))
250 (calendar-cursor-to-visible-date last-day))))
259 (day (extract-calendar-day date))
263 (if (and (= day 1) (= 1 month))
278 (day (extract-calendar-day date))
282 (if (and (= day 31) (= 12 month))
294 (day (extract-calendar-day date))
296 (first-of-month-weekday (calendar-day-of-week (list month 1 year))))
298 (/ (+ day -1
300 (- (calendar-day-of-week (list month 1 year))
301 calendar-week-start-day)
309 (- (calendar-day-of-week date)
310 calendar-week-start-day)
327 (defun calendar-goto-day-of-year (year day &optional noecho)
337 (day (calendar-read
340 (list year day)))
343 (if (< 0 day)
344 (+ -1 day (calendar-absolute-from-gregorian (list 1 1 year)))
345 (+ 1 day (calendar-absolute-from-gregorian (list 12 31 year))))))
346 (or noecho (calendar-print-day-of-year)))