/[emacs]/emacs/lisp/w32-vars.el
ViewVC logotype

Diff of /emacs/lisp/w32-vars.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pj, Wed May 1 09:45:59 2002 UTC revision 1.4 by jasonr, Sat May 4 22:16:31 2002 UTC
# Line 33  Line 33 
33    :version "21.3"    :version "21.3"
34    :prefix "w32")    :prefix "w32")
35    
 ;; 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"))))))  
   
36  ;; Redefine the font selection to use the standard W32 dialog  ;; Redefine the font selection to use the standard W32 dialog
37  (defcustom w32-use-w32-font-dialog t  (defcustom w32-use-w32-font-dialog t
38    "*Use the standard font dialog.    "*Use the standard font dialog.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26