emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/w32-vars.el


From: Jason Rumney
Subject: [Emacs-diffs] Changes to emacs/lisp/w32-vars.el
Date: Mon, 25 Feb 2002 18:17:47 -0500

Index: emacs/lisp/w32-vars.el
diff -c emacs/lisp/w32-vars.el:1.1 emacs/lisp/w32-vars.el:1.2
*** emacs/lisp/w32-vars.el:1.1  Sun Jan 20 10:28:28 2002
--- emacs/lisp/w32-vars.el      Mon Feb 25 18:17:44 2002
***************
*** 31,40 ****
    :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)
  
  ;; Redefine the font selection to use the standard W32 dialog
  (defcustom w32-use-w32-font-dialog t
--- 31,58 ----
    :version "21.3"
    :prefix "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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]