diff options
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index d5172ba0bf5..53a5a50bada 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -363,8 +363,11 @@ an event used for scrolling, such as `mouse-wheel-down-event'." 'left-fringe 'right-fringe 'vertical-scroll-bar 'horizontal-scroll-bar 'mode-line 'header-line))) - (cons (vector event) ; default case: no prefix. - (when (not (consp binding)) + (if (consp binding) + ;; With modifiers, bind only the buffer area (no prefix). + (list `[(,@(car binding) ,event)]) + ;; No modifier: bind also some non-buffer areas of the screen. + (cons (vector event) (mapcar (lambda (prefix) (vector prefix event)) prefixes))))) (define-minor-mode mouse-wheel-mode |