Function: mouse-set-mark

mouse-set-mark is an interactive and byte-compiled function defined in mouse.el.gz.

Signature

(mouse-set-mark CLICK)

Documentation

Set mark at the position clicked on with the mouse.

Display cursor at that position for a second. This must be bound to a mouse click.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
;; Momentarily show where the mark is, if highlighting doesn't show it.

(defun mouse-set-mark (click)
  "Set mark at the position clicked on with the mouse.
Display cursor at that position for a second.
This must be bound to a mouse click."
  (interactive "e")
  (mouse-minibuffer-check click)
  (select-window (posn-window (event-start click)))
  ;; FIXME: Use save-excursion
  (let ((point-save (point)))
    (unwind-protect
	(progn (mouse-set-point click)
	       (push-mark nil t t)
	       (or transient-mark-mode
		   (sit-for 1)))
      (goto-char point-save))))