diff options
| author | Kim F. Storm <storm@cua.dk> | 2003-11-23 00:27:27 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2003-11-23 00:27:27 +0000 |
| commit | 76693d123220d60c4465e92c4a80143c25bd85f4 (patch) | |
| tree | 805e8ad4a276f626adc3651a8d9da7a7ec8d36be /lisp/mouse.el | |
| parent | 79bcefe20360a29a6d51edcad5dca8c097ee637d (diff) | |
| download | emacs-76693d123220d60c4465e92c4a80143c25bd85f4.tar.gz | |
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.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index ecf642caeed..9b80ccc0cf5 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2204,6 +2204,10 @@ and selects that window." (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) |