Function: mark-thing-at-mouse

mark-thing-at-mouse is a byte-compiled function defined in mouse.el.gz.

Signature

(mark-thing-at-mouse CLICK THING)

Documentation

Activate the region around THING found near the mouse CLICK.

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mark-thing-at-mouse (click thing)
  "Activate the region around THING found near the mouse CLICK."
  (let ((bounds (bounds-of-thing-at-mouse click thing)))
    (when bounds
      (goto-char (if mouse-select-region-move-to-beginning
                     (car bounds) (cdr bounds)))
      (push-mark (if mouse-select-region-move-to-beginning
                     (cdr bounds) (car bounds))
                 t 'activate))))