Lines Matching defs:mouse
34 ;; You can use the mouse to change the `fill-column' `comment-column',
37 ;; [header-line (shift down-mouse-1)] set left margin end to the ruler
38 ;; graduation where the mouse pointer is on.
40 ;; [header-line (shift down-mouse-3)] set right margin beginning to
41 ;; the ruler graduation where the mouse pointer is on.
43 ;; [header-line down-mouse-2] Drag the `fill-column', `comment-column'
46 ;; [header-line (control down-mouse-1)] add a tab stop to the ruler
47 ;; graduation where the mouse pointer is on.
49 ;; [header-line (control down-mouse-3)] remove the tab stop at the
50 ;; ruler graduation where the mouse pointer is on.
52 ;; [header-line (control down-mouse-2)] or M-x
127 <C-down-mouse-1> and <C-down-mouse-3> on the ruler to respectively add
129 <C-down-mouse-2> on the ruler toggles showing/editing of tab stops."
322 (defun ruler-mode-mouse-set-left-margin (start-event)
323 "Set left margin end to the graduation where the mouse pointer is on.
324 START-EVENT is the mouse click event."
329 (when (eq start end) ;; mouse click
344 (defun ruler-mode-mouse-set-right-margin (start-event)
345 "Set right margin beginning to the graduation where the mouse pointer is on.
346 START-EVENT is the mouse click event."
351 (when (eq start end) ;; mouse click
372 (defun ruler-mode-mouse-grab-any-column (start-event)
374 Start dragging on mouse down event START-EVENT, and update the column
402 ;; A. On mouse down on the goal column character on the ruler,
405 ;; mouse is clicked.
406 ;; C. On mouse click on the goal column character on the
416 ;; mouse-2 coming AFTER drag-mouse-2 invokes `ding'. This
418 ;; column. So here I force fetch the event(mouse-2) and
430 (if (eq 'click (ruler-mode-mouse-drag-any-column-iteration
441 (defun ruler-mode-mouse-drag-any-column-iteration (window)
442 "Update the ruler while dragging the mouse.
443 WINDOW is the window where occurred the last down-mouse event.
444 Return the symbol `drag' if the mouse has been dragged, or `click' if
445 the mouse has been clicked."
448 (track-mouse
449 (while (mouse-movement-p (setq event (read-event)))
452 (ruler-mode-mouse-drag-any-column event)
458 (defun ruler-mode-mouse-drag-any-column (start-event)
460 Called on each mouse motion event START-EVENT."
472 (defun ruler-mode-mouse-add-tab-stop (start-event)
473 "Add a tab stop to the graduation where the mouse pointer is on.
474 START-EVENT is the mouse click event."
480 (when (eq start end) ;; mouse click
492 (defun ruler-mode-mouse-del-tab-stop (start-event)
493 "Delete tab stop at the graduation where the mouse pointer is on.
494 START-EVENT is the mouse click event."
500 (when (eq start end) ;; mouse click
520 (define-key km [header-line down-mouse-1]
522 (define-key km [header-line down-mouse-3]
524 (define-key km [header-line down-mouse-2]
525 #'ruler-mode-mouse-grab-any-column)
526 (define-key km [header-line (shift down-mouse-1)]
527 #'ruler-mode-mouse-set-left-margin)
528 (define-key km [header-line (shift down-mouse-3)]
529 #'ruler-mode-mouse-set-right-margin)
530 (define-key km [header-line (control down-mouse-1)]
531 #'ruler-mode-mouse-add-tab-stop)
532 (define-key km [header-line (control down-mouse-3)]
533 #'ruler-mode-mouse-del-tab-stop)
534 (define-key km [header-line (control down-mouse-2)]
536 (define-key km [header-line (shift mouse-1)]
538 (define-key km [header-line (shift mouse-3)]
540 (define-key km [header-line (control mouse-1)]
542 (define-key km [header-line (control mouse-3)]
544 (define-key km [header-line (control mouse-2)]
593 S-mouse-1/3: set L/R margin, \
594 mouse-2: set goal column, \
595 C-mouse-2: show tabs"
596 "Help string shown when mouse is over the ruler.
601 S-mouse-1/3: set L/R margin, \
602 C-mouse-2: show tabs"
603 "Help string shown when mouse is over the ruler.
609 C-mouse-2: hide tabs"
610 "Help string shown when mouse is over the ruler.
614 "drag-mouse-2: set fill column"
615 "Help string shown when mouse is on the fill column character.")
618 "drag-mouse-2: set comment column"
619 "Help string shown when mouse is on the comment column character.")
623 drag-mouse-2: set goal column, \
624 mouse-2: unset goal column"
625 "Help string shown when mouse is on the goal column character.")
629 "Help string shown when mouse is over a margin area.")
633 "Help string shown when mouse is over a fringe area.")
720 i (1+ i) 'mouse-face 'mode-line-highlight
732 i (1+ i) 'mouse-face 'mode-line-highlight
744 i (1+ i) 'mouse-face 'mode-line-highlight