Function: calendar-exchange-point-and-mark

calendar-exchange-point-and-mark is an interactive and byte-compiled function defined in calendar.el.gz.

Signature

(calendar-exchange-point-and-mark)

Documentation

Exchange the current cursor position with the marked date.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar-exchange-point-and-mark ()
  "Exchange the current cursor position with the marked date."
  (interactive)
  (let ((mark (car calendar-mark-ring))
        (date (calendar-cursor-to-date t)))
    (if (null mark)
        (error "No mark set in this buffer")
      (setq calendar-mark-ring (cons date (cdr calendar-mark-ring)))
      (calendar-goto-date mark))))