Lines Matching refs:event
104 POSITION can be a click event or ((XOFFSET YOFFSET) WINDOW) and defaults to
114 event cmd)
119 (while (and map (setq event
131 (let ((mouse-click (apply 'vector event))
140 (lookup-key map (apply 'vector event))))
151 (setq last-command-event (car (last event)))
157 (defun mouse-major-mode-menu (event &optional prefix)
182 (popup-menu newmap event prefix)))
219 (defun mouse-popup-menubar (event prefix)
267 event prefix)))
269 (defun mouse-popup-menubar-stuff (event prefix)
274 (mouse-popup-menubar event prefix)
275 (mouse-major-mode-menu event prefix)))
280 (defun mouse-minibuffer-check (event)
281 (let ((w (posn-window (event-start event))))
295 (delete-window (posn-window (event-start click)))))
302 (frame (window-frame (posn-window (event-start click)))))
303 (select-window (posn-window (event-start click)))
313 (let* ((window (posn-window (event-start click)))
331 (let ((start (event-start click)))
333 (let ((new-height (1+ (cdr (posn-col-row (event-end click)))))
347 (let ((start (event-start click)))
349 (let ((new-width (1+ (car (posn-col-row (event-end click)))))
398 (defun mouse-drag-mode-line-1 (start-event mode-line-p)
400 START-EVENT is the starting mouse-event of the drag action.
406 (start (event-start start-event))
407 (start-event-window (posn-window start))
408 (start-event-frame (window-frame start-event-window))
411 should-enlarge-minibuffer event mouse y top bot edges wconfig growth)
421 (nth 3 (window-edges start-event-window)))))
426 (setq event (read-event)
430 ;; - there is a switch-frame event.
434 ;; - there is a mouse-movement event
435 ;; - there is a scroll-bar-movement event
438 ;; - there is a keyboard event or some other unknown event
439 ;; unknown event.
440 (cond ((integerp event)
443 ((memq (car event) '(switch-frame select-window))
446 ((not (memq (car event) '(mouse-movement scroll-bar-movement)))
447 (when (consp event)
448 (push event unread-command-events))
451 ((not (eq (car mouse) start-event-frame))
459 edges (window-edges start-event-window)
482 (mouse-drag-move-window-bottom start-event-window growth))
486 (mouse-drag-move-window-bottom start-event-window growth)
487 (mouse-drag-move-window-top start-event-window growth)))
506 (defun mouse-drag-mode-line (start-event)
509 (mouse-drag-mode-line-1 start-event t))
511 (defun mouse-drag-header-line (start-event)
519 (let* ((start (event-start start-event))
526 (mouse-drag-mode-line-1 start-event nil))))
548 (defun mouse-drag-vertical-line (start-event)
555 (start-event-frame (window-frame (car (car (cdr start-event)))))
556 (start-event-window (car (car (cdr start-event))))
557 event mouse x left right edges growth
559 (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame)))
565 (>= (nth 2 (window-inside-edges start-event-window))
566 (frame-width start-event-frame)))
569 (= (nth 0 (window-inside-edges start-event-window)) 0))
576 (setq event (read-event)
579 ;; - there is a switch-frame event.
583 ;; - there is a mouse-movement event
584 ;; - there is a scroll-bar-movement event
587 ;; - there is a keyboard event or some other unknown event
588 ;; unknown event.
589 (cond ((integerp event)
591 ((memq (car event) '(switch-frame select-window))
593 ((not (memq (car event)
595 (if (consp event)
597 (cons event unread-command-events)))
599 ((not (eq (car mouse) start-event-frame))
608 start-event-window
610 start-event-window))))
627 (defun mouse-set-point (event)
629 This should be bound to a mouse click event type."
631 (mouse-minibuffer-check event)
632 ;; Use event-end in case called from mouse-drag-region.
633 ;; If EVENT is a click, event-end and event-start give same value.
634 (posn-set-point (event-end event)))
649 This should be bound to a mouse drag event."
652 (let ((posn (event-start click))
653 (end (event-end click)))
750 (defun mouse-drag-region (start-event)
753 This must be bound to a button-down mouse event.
755 remains active. Otherwise, it remains until the next input event.
759 (let ((w (posn-window (event-start start-event))))
763 ;; Swallow the up-event.
764 (read-event)
770 (mouse-drag-track start-event t))))
776 those returned from `event-start'. If the click position is on
794 event location in the selected window (see `event-start').
796 POS may be a mouse event location in any window.
804 for the `follow-link' event, the binding of that event determines
814 from that call. Arg is \(posn-point POS) if POS is a mouse event.
820 - If it is a string, the mouse-1 event is translated into the
824 - If it is a vector, the mouse-1 event is translated into the
826 click is the local or global binding of that event.
828 - Otherwise, the mouse-1 event is translated into a mouse-2 event
887 (defun mouse-drag-track (start-event &optional
893 (mouse-minibuffer-check start-event)
897 ;; window, now let's jump to the place of the event, where things
899 (_ (mouse-set-point start-event))
901 (start-posn (event-start start-event))
920 (click-count (1- (event-click-count start-event)))
940 (let (event end end-point last-end-point)
943 (setq event (read-event))
944 (or (mouse-movement-p event)
945 (memq (car-safe event) '(switch-frame select-window))))
946 (if (memq (car-safe event) '(switch-frame select-window))
949 ;; `read-event'; but if the user subsequently drags the
953 (setq end (event-end event)
975 ;; In case we did not get a mouse-motion event
976 ;; for the final move of the mouse before a drag event
978 (when (and (memq 'drag (event-modifiers (car-safe event)))
979 (setq end (event-end event)
985 ;; Handle the terminating event
986 (if (consp event)
987 (let* ((fun (key-binding (vector (car event))))
988 (do-multi-click (and (> (event-click-count event) 0)
993 ;; Run the binding of the terminating up-event, if possible.
998 (if (numberp (posn-point (event-end event)))
999 (posn-point (event-end event))
1017 ;; Skip all post-event handling, return immediately.
1025 ;; mouse-show-mark can call read-event,
1032 ;; Run the binding of the terminating up-event.
1040 ;; Don't run the up-event handler if the
1043 ;; event at the beginning of this function.
1045 ;; up-mouse event will contain a different
1053 (consp event)
1058 (= (event-click-count event) 1)
1060 (let ((t0 (posn-timestamp (event-start start-event)))
1061 (t1 (posn-timestamp (event-end event))))
1067 ;; so that the mouse-2 event runs in the same
1071 (setq event (aref on-link 0))
1073 (setcar event 'mouse-2)
1077 (put 'mouse-2 'event-kind 'mouse-click)))
1078 (push event unread-command-events))))
1080 ;; Case where the end-event is not a cons cell (it's just a boring
1197 (let ((posn (event-start click)))
1202 (defun mouse-undouble-last-event (events)
1205 (event (car last))
1206 (basic (event-basic-type event))
1207 (old-modifiers (event-modifiers event))
1210 (if (consp event)
1211 ;; Use reverse, not nreverse, since event-modifiers
1213 (cons (event-convert-list (reverse (cons basic modifiers)))
1214 (cdr event))
1215 event)))
1220 (setcar last event)
1233 event events key ignore
1249 (while (progn (setq event (read-event))
1250 (setq events (append events (list event)))
1252 (or (and (consp event)
1253 (eq (car event) 'switch-frame))
1254 (and (consp event)
1255 (eq (posn-point (event-end event))
1257 (and (memq 'down (event-modifiers event))
1259 (not (mouse-undouble-last-event events))
1261 (and (consp event)
1262 (or (eq (car event) 'switch-frame)
1263 (eq (posn-point (event-end event))
1265 (let ((keys (vector 'vertical-scroll-bar event)))
1299 (select-window (posn-window (event-start click)))
1314 (let* ((posn (event-start click))
1400 (with-current-buffer (window-buffer (posn-window (event-start click)))
1403 (let ((click-posn (posn-point (event-start click)))
1408 (window-buffer (posn-window (event-start click)))
1460 (let* ((posn (event-start click))
1510 (let ((posn (event-start click)))
1522 This must be bound to a mouse drag event."
1525 (let ((posn (event-start click))
1527 (end (event-end click)))
1537 (defun mouse-drag-secondary (start-event)
1540 This must be bound to a button-down mouse event.
1543 (mouse-minibuffer-check start-event)
1545 (start-posn (event-start start-event))
1554 (click-count (1- (event-click-count start-event))))
1572 (let (event end end-point)
1575 (setq event (read-event))
1576 (or (mouse-movement-p event)
1577 (memq (car-safe event) '(switch-frame select-window))))
1579 (if (memq (car-safe event) '(switch-frame select-window))
1581 (setq end (event-end event)
1606 (if (consp event)
1645 (window-buffer (posn-window (event-start click)))
1671 (let ((posn (event-start click))
1672 (click-posn (posn-point (event-start click)))
1803 (defun mouse-buffer-menu (event)
1808 (mouse-minibuffer-check event)
1883 (let ((buf (x-popup-menu event menu))
1884 (window (posn-window (event-start event))))
1979 ;;;!! (defun mouse-scroll-absolute (event)
1981 ;;;!! (let* ((pos (car event))
2013 ;;;!! (defun mouse-scroll-absolute-horizontally (event)
2015 ;;;!! (let* ((pos (car event))
2073 ;;;!! ;;(defun track-mouse (event)
2095 ;;;!! ;;(defun mouse-select-buffer-line (event)
2098 ;;;!! ;; (coordinates-in-window-p (car event) (selected-window)))
2099 ;;;!! ;; (abs-y (car (cdr (car event)))))
2120 ;;;!! ;;(defun mouse-boxing (event)
2174 ;;;!! (defun double-down (event)
2177 ;;;!! (let ((interval (- (nth 4 event) double-start)))
2184 ;;;!! (setq double-start (nth 4 event))))
2186 ;;;!! (defun double-up (event)
2189 ;;;!! (> (- (nth 4 event ) double-start) double-click-interval)
2204 ;;;!! (defun incr-scroll-down (event)
2209 ;;;!! (defun incr-scroll-up (event)
2220 ;;;!! (defun incr-scroll-stop (event)
2237 ;;;!! (defun mouse-kill-rectangle (event)
2242 ;;;!! (mouse-set-point event)
2248 ;;;!! (defun mouse-open-rectangle (event)
2253 ;;;!! (mouse-set-point event)
2268 ;;;!! (defun mouse-move-text (event)
2272 ;;;!! (coordinates-in-window-p (car event) (selected-window))))
2285 (defun mouse-choose-completion (event)
2294 (set-buffer (window-buffer (posn-window (event-start event))))
2299 (goto-char (posn-point (event-start event)))
2310 (select-window (posn-window (event-start event)))
2410 (if (listp last-nonmenu-event)
2411 last-nonmenu-event
2452 ;; event to make the selection, saving a click.