Mercurial > emacs
changeset 53133:50717ae10f39
Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so
that hscroll still works now that clicks on fringes generate specific
mouse events.
(mouse-set-point): Note that it now works in fringes and margins
too due to new semantics of posn-point in fringes and margins.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 23 Nov 2003 00:27:27 +0000 |
| parents | 20c6299bd4df |
| children | 5983bf0859dc |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sun Nov 23 00:27:03 2003 +0000 +++ b/lisp/mouse.el Sun Nov 23 00:27:27 2003 +0000 @@ -2204,6 +2204,10 @@ (global-set-key [double-mouse-1] 'mouse-set-point) (global-set-key [triple-mouse-1] 'mouse-set-point) +;; Clicking on the fringes causes hscrolling: +(global-set-key [left-fringe mouse-1] 'mouse-set-point) +(global-set-key [right-fringe mouse-1] 'mouse-set-point) + (global-set-key [mouse-2] 'mouse-yank-at-click) (global-set-key [mouse-3] 'mouse-save-then-kill)