Mercurial > hg > xemacs-beta

diff lisp/mwheel.el @ 2546:5d1743698fb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- a/lisp/mwheel.el	Thu Feb 03 05:03:45 2005 +0000
+++ b/lisp/mwheel.el	Thu Feb 03 05:26:41 2005 +0000
@@ -126,6 +126,18 @@
 	  (setq keys (cdr keys)))
       (error nil))))
 
+;;;###autoload
+(define-behavior 'mwheel
+  "This code enables the use of the infamous 'wheel' on the new
+crop of mice.  Under XFree86 and the XSuSE X Servers, the wheel
+events are sent as button4/button5 events, which are automatically
+set up to do scrolling in the expected way.  The actual way that the
+scrolling works can be controlled by `mwheel-scroll-amount' and
+`mwheel-follow-mouse'."
+  :group 'mouse
+  :short-doc "Mouse wheel support for X Windows"
+  :enable 'mwheel-install)
+
 (provide 'mwheel)
 
 ;;; mwheel.el ends here