Commit 3bd7d448 authored by Jason Rumney's avatar Jason Rumney
Browse files

(mouse-wheel-scroll-amount): Use same definition as

mwheel.el.
parent 744de246
2002-02-25 Jason Rumney <jasonr@gnu.org>
 
* w32-vars.el (mouse-wheel-scroll-amount): Use same definition as
mwheel.el.
* language/japanese.el (iso-2022-jp-2): Add init-bol flag.
 
2002-02-25 Andre Spiegel <spiegel@gnu.org>
......
......@@ -31,10 +31,28 @@
:version "21.3"
:prefix "w32")
(defcustom mouse-wheel-scroll-amount 4
"*Number of lines to scroll per click of the mouse wheel."
:type 'integer
:group 'w32)
;; mwheel.el should probably be adapted to accept mouse-wheel events
;; then this could go.
(defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
"*Amount to scroll windows by when spinning the mouse wheel.
This is actually a cons cell, where the first item is the amount to scroll
on a normal wheel event. The rest is ignored on Windows, see mwheel.el if
you wish to implement modifier keys."
:group 'w32
:group 'mouse
:type '(cons
(choice :tag "Normal"
(const :tag "Full screen" :value nil)
(integer :tag "Specific # of lines")
(float :tag "Fraction of window"))
(repeat
(cons
(repeat (choice :tag "modifier" (const alt) (const control) (const hyper)
(const meta) (const shift) (const super)))
(choice :tag "scroll amount"
(const :tag "Full screen" :value nil)
(integer :tag "Specific # of lines")
(float :tag "Fraction of window"))))))
;; Redefine the font selection to use the standard W32 dialog
(defcustom w32-use-w32-font-dialog t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment