Function: calendar-beginning-of-week

calendar-beginning-of-week is an autoloaded, interactive and byte-compiled function defined in cal-move.el.gz.

Signature

(calendar-beginning-of-week ARG)

Documentation

Move the cursor back ARG calendar-week-start-day's.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-move.el.gz
;;;###cal-autoload
(defun calendar-beginning-of-week (arg)
  "Move the cursor back ARG calendar-week-start-day's."
  (interactive "p")
  (calendar-cursor-to-nearest-date)
  (let ((day (calendar-day-of-week (calendar-cursor-to-date))))
    (calendar-backward-day
     (if (= day calendar-week-start-day)
         (* 7 arg)
       (+ (mod (- day calendar-week-start-day) 7)
          (* 7 (1- arg)))))))