Function: push-mark-command

push-mark-command is an interactive and byte-compiled function defined in simple.el.gz.

Signature

(push-mark-command ARG &optional NOMSG)

Documentation

Set mark at where point is.

If no prefix ARG and mark is already set there, just activate it. Display Mark set unless the optional second arg NOMSG is non-nil.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun push-mark-command (arg &optional nomsg)
  "Set mark at where point is.
If no prefix ARG and mark is already set there, just activate it.
Display `Mark set' unless the optional second arg NOMSG is non-nil."
  (interactive "P")
  (let ((mark (mark t)))
    (if (or arg (null mark) (/= mark (point)))
	(push-mark nil nomsg t)
      (activate-mark 'no-tmm)
      (unless nomsg
	(message "Mark activated")))))