Function: mouse--drag-set-mark-and-point

mouse--drag-set-mark-and-point is a byte-compiled function defined in mouse.el.gz.

Signature

(mouse--drag-set-mark-and-point START CLICK CLICK-COUNT)

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mouse--drag-set-mark-and-point (start click click-count)
  (let* ((range (mouse-start-end start click click-count))
	 (beg (nth 0 range))
	 (end (nth 1 range)))
    (cond ((eq (mark) beg)
	   (goto-char end))
	  ((eq (mark) end)
	   (goto-char beg))
	  ((< click (mark))
	   (set-mark end)
	   (goto-char beg))
	  (t
	   (set-mark beg)
	   (goto-char end)))))