Function: mouse-set-mark-fast

mouse-set-mark-fast is a byte-compiled function defined in mouse.el.gz.

Signature

(mouse-set-mark-fast CLICK)

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
;; Subroutine: set the mark where CLICK happened,
;; but don't do anything else.
(defun mouse-set-mark-fast (click)
  (mouse-minibuffer-check click)
  (let ((posn (event-start click)))
    (select-window (posn-window posn))
    (if (numberp (posn-point posn))
	(push-mark (posn-point posn) t t))))