Lines Matching refs:click
42 "*If non-nil, mouse yank commands yank at point instead of at click."
52 (defcustom mouse-1-click-follows-link 450
55 With the default setting, an ordinary Mouse-1 click on a link
57 Mouse-1 click \(hold down the Mouse-1 button for more than 450
59 typically sets point where you click the mouse).
65 \"short click\" in milliseconds. A positive value means that a
66 short click follows the link, and a longer click performs the
69 If value is `double', a double click follows the link.
71 Otherwise, a single Mouse-1 click unconditionally follows the link.
80 (const :tag "Double click" double)
81 (number :tag "Single click time limit" :value 450)
82 (other :tag "Single click" t))
85 (defcustom mouse-1-click-in-non-selected-windows t
86 "*If non-nil, a Mouse-1 click also follows links in non-selected windows.
88 If nil, a Mouse-1 click on a link in a non-selected window performs
90 point at the click position."
104 POSITION can be a click event or ((XOFFSET YOFFSET) WINDOW) and defaults to
131 (let ((mouse-click (apply 'vector event))
134 (setq binding (lookup-key (car map) mouse-click))
288 (defun mouse-delete-window (click)
289 "Delete the window you click on.
291 This command must be bound to a mouse click."
294 (mouse-minibuffer-check click)
295 (delete-window (posn-window (event-start click)))))
297 (defun mouse-select-window (click)
300 (mouse-minibuffer-check click)
302 (frame (window-frame (posn-window (event-start click)))))
303 (select-window (posn-window (event-start click)))
309 (defun mouse-tear-off-window (click)
312 (mouse-minibuffer-check click)
313 (let* ((window (posn-window (event-start click)))
321 "Delete all windows except the one you click on."
325 (defun mouse-split-window-vertically (click)
328 This command must be bound to a mouse click."
330 (mouse-minibuffer-check click)
331 (let ((start (event-start click)))
333 (let ((new-height (1+ (cdr (posn-col-row (event-end click)))))
341 (defun mouse-split-window-horizontally (click)
344 This command must be bound to a mouse click."
346 (mouse-minibuffer-check click)
347 (let ((start (event-start click)))
349 (let ((new-width (1+ (car (posn-col-row (event-end click)))))
629 This should be bound to a mouse click event type."
633 ;; If EVENT is a click, event-end and event-start give same value.
647 (defun mouse-set-region (click)
651 (mouse-minibuffer-check click)
652 (let ((posn (event-start click))
653 (end (event-end click)))
746 (defvar mouse-selection-click-count 0)
748 (defvar mouse-selection-click-count-buffer nil)
757 If the click is in the echo area, display the `*Messages*' buffer."
774 "Look for a property at click position.
775 POS may be either a buffer position or a click position like
776 those returned from `event-start'. If the click position is on
778 If this is nil or the click is not on a string, then
795 However, if `mouse-1-click-in-non-selected-windows' is non-nil,
822 click is the local or global binding of that character.
826 click is the local or global binding of that event.
832 mouse-1-click-in-non-selected-windows
840 ;; FIXME: This seems questionable if the click is not in a buffer.
849 "Fix help message MSG for `mouse-1-click-follows-link'."
851 (if (and mouse-1-click-follows-link
865 ((eq mouse-1-click-follows-link 'double) "double-")
866 ((and (integerp mouse-1-click-follows-link)
867 (< mouse-1-click-follows-link 0)) "Long ")
876 ;; Don't do it if START=END otherwise a single click risks selecting
879 ;; that a tiny move during a single-click would cause the intangible
894 (setq mouse-selection-click-count-buffer (current-buffer))
913 (on-link (and mouse-1-click-follows-link
914 (or mouse-1-click-in-non-selected-windows
917 ;; treatment, in case we click on a link inside an
920 (click-count (1- (event-click-count start-event)))
921 (remap-double-click (and on-link
922 (eq mouse-1-click-follows-link 'double)
923 (= click-count 1)))
928 (setq mouse-selection-click-count click-count)
929 ;; In case the down click is in the middle of some intangible text,
934 (if remap-double-click ;; Don't expand mouse overlay in links
935 (setq click-count 0))
937 click-count)
962 (mouse-move-drag-overlay mouse-drag-overlay start-point end-point click-count))
983 (mouse-move-drag-overlay mouse-drag-overlay start-point end-point click-count))
988 (do-multi-click (and (> (event-click-count event) 0)
996 (not do-multi-click))
1033 ;; If a multiple click is not bound to mouse-set-point,
1036 (if do-multi-click (goto-char start-point))
1054 (or remap-double-click
1056 (not (eq mouse-1-click-follows-link 'double))
1057 (= click-count 0)
1058 (= (event-click-count event) 1)
1059 (or (not (integerp mouse-1-click-follows-link))
1063 (if (> mouse-1-click-follows-link 0)
1064 (<= (- t1 t0) mouse-1-click-follows-link)
1065 (< (- t0 t1) mouse-1-click-follows-link))))))))
1074 ;; If this mouse click has never been done by
1077 (put 'mouse-2 'event-kind 'mouse-click)))
1195 (defun mouse-set-mark-fast (click)
1196 (mouse-minibuffer-check click)
1197 (let ((posn (event-start click)))
1293 (defun mouse-set-mark (click)
1296 This must be bound to a mouse click."
1298 (mouse-minibuffer-check click)
1299 (select-window (posn-window (event-start click)))
1303 (progn (mouse-set-point click)
1309 (defun mouse-kill (click)
1310 "Kill the region between point and the mouse click.
1313 (mouse-minibuffer-check click)
1314 (let* ((posn (event-start click))
1315 (click-posn (posn-point posn)))
1317 (if (numberp click-posn)
1318 (kill-region (min (point) click-posn)
1319 (max (point) click-posn)))))
1321 (defun mouse-yank-at-click (click arg)
1327 regardless of where you click."
1331 (or mouse-yank-at-point (mouse-set-point click))
1333 (setq mouse-selection-click-count 0)
1336 (defun mouse-kill-ring-save (click)
1337 "Copy the region between point and the mouse click in the kill ring.
1340 (mouse-set-mark-fast click)
1387 (defun mouse-save-then-kill (click)
1392 which prepares for a second click to delete the text.
1400 (with-current-buffer (window-buffer (posn-window (event-start click)))
1402 (mouse-minibuffer-check click)
1403 (let ((click-posn (posn-point (event-start click)))
1408 (window-buffer (posn-window (event-start click)))
1409 (and (mark t) (> (mod mouse-selection-click-count 3) 0)
1410 ;; Don't be fooled by a recent click in some other buffer.
1411 (eq mouse-selection-click-count-buffer
1414 (equal click-posn
1416 ;; Find both ends of the object selected by this click.
1418 (mouse-start-end click-posn click-posn
1419 mouse-selection-click-count)))
1420 ;; Move whichever end is closer to the click.
1422 (if (< (abs (- click-posn (mark t)))
1423 (abs (- click-posn (point))))
1433 (list (car kill-ring) (point) click-posn))
1435 ;; If we click this button again without moving it,
1438 (setq mouse-selection-click-count 0)
1443 (equal (cdr mouse-save-then-kill-posn) (list (point) click-posn)))
1448 ;; After we kill, another click counts as "the first time".
1460 (let* ((posn (event-start click))
1465 ;; Move whichever end of the region is closer to the click.
1473 (mouse-set-mark-fast click)
1481 (list (car kill-ring) (point) click-posn)))))))
1498 (defvar mouse-secondary-click-count 0)
1504 (defun mouse-start-secondary (click)
1509 (mouse-minibuffer-check click)
1510 (let ((posn (event-start click)))
1520 (defun mouse-set-secondary (click)
1524 (mouse-minibuffer-check click)
1525 (let ((posn (event-start click))
1527 (end (event-end click)))
1554 (click-count (1- (event-click-count start-event))))
1556 (setq mouse-secondary-click-count click-count)
1557 (if (> (mod click-count 3) 0)
1560 (let ((range (mouse-start-end start-point start-point click-count)))
1588 click-count)))
1621 (defun mouse-yank-secondary (click)
1625 regardless of where you click."
1629 (or mouse-yank-at-point (mouse-set-point click))
1642 (click (elt keys (1- (length keys)))))
1644 (if (listp click)
1645 (window-buffer (posn-window (event-start click)))
1647 (error "Select or click on the buffer where the secondary selection is")))
1656 (defun mouse-secondary-save-then-kill (click)
1663 which prepares for a second click with this command to delete the text.
1666 this command extends or retracts the selection to where you click.
1670 (mouse-minibuffer-check click)
1671 (let ((posn (event-start click))
1672 (click-posn (posn-point (event-start click)))
1682 (if (> (mod mouse-secondary-click-count 3) 0)
1684 (equal click-posn
1686 ;; Find both ends of the object selected by this click.
1688 (mouse-start-end click-posn click-posn
1689 mouse-secondary-click-count)))
1690 ;; Move whichever end is closer to the click.
1692 (if (< (abs (- click-posn (overlay-start mouse-secondary-overlay)))
1693 (abs (- click-posn (overlay-end mouse-secondary-overlay))))
1707 (list (car kill-ring) (point) click-posn)))
1708 ;; If we click this button again without moving it,
1715 (setq mouse-secondary-click-count 0)
1720 (equal (cdr mouse-save-then-kill-posn) (list (point) click-posn)))
1732 (if (numberp click-posn)
1734 ;; Move whichever end of the region is closer to the click.
1736 (if (< (abs (- click-posn (overlay-start mouse-secondary-overlay)))
1737 (abs (- click-posn (overlay-end mouse-secondary-overlay))))
1738 (move-overlay mouse-secondary-overlay click-posn
1742 click-posn))
1759 (kill-ring-save start click-posn)
1760 (move-overlay mouse-secondary-overlay start click-posn))))
1762 (list (car kill-ring) (point) click-posn))))
1959 ;;;!! (defun mouse-scroll-down (click)
1961 ;;;!! (scroll-down (1+ (cdr (mouse-coords click)))))
1963 ;;;!! (defun mouse-scroll-up (click)
1965 ;;;!! (scroll-up (1+ (cdr (mouse-coords click)))))
1975 ;;;!! (defun mouse-scroll-move-cursor (click)
1977 ;;;!! (move-to-window-line (1+ (cdr (mouse-coords click)))))
1993 ;;;!! (defun mouse-scroll-left (click)
1995 ;;;!! (scroll-left (1+ (car (mouse-coords click)))))
1997 ;;;!! (defun mouse-scroll-right (click)
1999 ;;;!! (scroll-right (1+ (car (mouse-coords click)))))
2009 ;;;!! (defun mouse-scroll-move-cursor-horizontally (click)
2011 ;;;!! (move-to-column (1+ (car (mouse-coords click)))))
2171 ;;;!! (defconst double-click-interval 300
2178 ;;;!! (if (< interval double-click-interval)
2189 ;;;!! (> (- (nth 4 event ) double-start) double-click-interval)
2443 (global-set-key [mouse-2] 'mouse-yank-at-click)
2445 (global-set-key [right-fringe mouse-2] 'mouse-yank-at-click)
2446 (global-set-key [left-fringe mouse-2] 'mouse-yank-at-click)
2452 ;; event to make the selection, saving a click.