procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-wheel-progressive-speed): Fix typo in name.

Browse source 
(mwheel-scroll): Adjust accordingly.
This commit is contained in:
Stefan Monnier 2004-11-11 23:51:40 +00:00
parent d6a1331707
commit d1ff89d941
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/mwheel.el
View file

@ -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