diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-11 23:51:40 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-11 23:51:40 +0000 |
| commit | d1ff89d9417980b86977ec0429e0f80ea3e51a6a (patch) | |
| tree | dc59028f78768af93f5dbeaa082b6c0fe7cd6d48 /lisp/mwheel.el | |
| parent | d6a13317076589dafc342bb098a43d01e5a8ae78 (diff) | |
| download | emacs-d1ff89d9417980b86977ec0429e0f80ea3e51a6a.tar.gz | |
(mouse-wheel-progressive-speed): Fix typo in name.
(mwheel-scroll): Adjust accordingly.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 0194160bcf4..231b7c3d6e3 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -1,6 +1,6 @@ ;;; mwheel.el --- Wheel mouse support -;; Copyright (C) 1998,2000,2001,2002 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2004 Free Software Foundation, Inc. ;; Maintainer: William M. Perry <wmperry@gnu.org> ;; Keywords: mouse @@ -137,7 +137,7 @@ less than a full screen." (integer :tag "Specific # of lines") (float :tag "Fraction of window")))))) -(defcustom mouse-wheel-progessive-speed t +(defcustom mouse-wheel-progressive-speed t "If non-nil, the faster the user moves the wheel, the faster the scrolling. Note that this has no effect when `mouse-wheel-scroll-amount' specifies a \"near full screen\" scroll or when the mouse wheel sends key instead @@ -197,7 +197,7 @@ This should only be bound to mouse buttons 4 and 5." (let ((list-elt mouse-wheel-scroll-amount)) (while (consp (setq amt (pop list-elt)))))) (if (floatp amt) (setq amt (1+ (truncate (* amt (window-height)))))) - (when (and mouse-wheel-progessive-speed (numberp amt)) + (when (and mouse-wheel-progressive-speed (numberp amt)) ;; When the double-mouse-N comes in, a mouse-N has been executed already, ;; So by adding things up we get a squaring up (1, 3, 6, 10, 15, ...). (setq amt (* amt (event-click-count event)))) @@ -250,5 +250,5 @@ Returns non-nil if the new state is enabled." (provide 'mwheel) -;;; arch-tag: 50ed00e7-3686-4b7a-8037-fb31aa5c237f +;; arch-tag: 50ed00e7-3686-4b7a-8037-fb31aa5c237f ;;; mwheel.el ends here |