Mercurial > hg > xemacs-beta
comparison lisp/mwheel.el @ 2546:5d1743698fb3
[xemacs-hg @ 2005-02-03 05:26:39 by ben]
behavior ws #3: behavior updates
behavior.el: Major update. Add documentation of how it works.
behavior-defs.el: Only define the basic behavior groups here.
Move the definitions for particular packages to the
appropriate package files.
mwheel.el: Add define-behavior for mwheel.
| author | ben |
|---|---|
| date | Thu, 03 Feb 2005 05:26:41 +0000 |
| parents | 9cf129cb99b9 |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 2545:9caf26dd924f | 2546:5d1743698fb3 |
|---|---|
| 124 (while keys | 124 (while keys |
| 125 (define-key global-map (car keys) 'mwheel-scroll) | 125 (define-key global-map (car keys) 'mwheel-scroll) |
| 126 (setq keys (cdr keys))) | 126 (setq keys (cdr keys))) |
| 127 (error nil)))) | 127 (error nil)))) |
| 128 | 128 |
| 129 ;;;###autoload | |
| 130 (define-behavior 'mwheel | |
| 131 "This code enables the use of the infamous 'wheel' on the new | |
| 132 crop of mice. Under XFree86 and the XSuSE X Servers, the wheel | |
| 133 events are sent as button4/button5 events, which are automatically | |
| 134 set up to do scrolling in the expected way. The actual way that the | |
| 135 scrolling works can be controlled by `mwheel-scroll-amount' and | |
| 136 `mwheel-follow-mouse'." | |
| 137 :group 'mouse | |
| 138 :short-doc "Mouse wheel support for X Windows" | |
| 139 :enable 'mwheel-install) | |
| 140 | |
| 129 (provide 'mwheel) | 141 (provide 'mwheel) |
| 130 | 142 |
| 131 ;;; mwheel.el ends here | 143 ;;; mwheel.el ends here |