Function: pop-mark

pop-mark is a byte-compiled function defined in simple.el.gz.

Signature

(pop-mark)

Documentation

Pop off mark ring into the buffer's actual mark.

Does not set point. Does nothing if mark ring is empty.

View in manual

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun pop-mark ()
  "Pop off mark ring into the buffer's actual mark.
Does not set point.  Does nothing if mark ring is empty."
  (when mark-ring
    (setq mark-ring (nconc mark-ring (list (copy-marker (mark-marker)))))
    (set-marker (mark-marker) (car mark-ring))
    (set-marker (car mark-ring) nil)
    (pop mark-ring))
  (deactivate-mark))