emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/scroll-on-drag 6d62a239a9 28/35: Cleanup: use defgroup


From: ELPA Syncer
Subject: [nongnu] elpa/scroll-on-drag 6d62a239a9 28/35: Cleanup: use defgroup
Date: Thu, 7 Jul 2022 12:02:52 -0400 (EDT)

branch: elpa/scroll-on-drag
commit 6d62a239a9a6295c9c519827019cde8c6c3658fa
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use defgroup
---
 scroll-on-drag.el | 22 +++++-----------------
 1 file changed, 5 insertions(+), 17 deletions(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index 9329211072..085daeebdf 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -35,44 +35,32 @@
 ;; ---------------------------------------------------------------------------
 ;; Custom Variables
 
+(defgroup scroll-on-drag nil "Configure smooth scrolling on drag." :group 
'scrolling)
+
 (defcustom scroll-on-drag-style 'line-by-pixel
   "The method of scrolling."
-  :group 'scroll-on-drag
   :type '(choice (const :tag "Line" line) (const :tag "Line-By-Pixel" 
line-by-pixel)))
 
-(defcustom scroll-on-drag-delay 0.01
-  "Idle time between scroll updates."
-  :group 'scroll-on-drag
-  :type 'float)
+(defcustom scroll-on-drag-delay 0.01 "Idle time between scroll updates (in 
seconds)." :type 'float)
 
-(defcustom scroll-on-drag-motion-scale 0.25
-  "Scroll speed multiplier."
-  :group 'scroll-on-drag
-  :type 'float)
+(defcustom scroll-on-drag-motion-scale 0.25 "Scroll speed multiplier." :type 
'float)
 
 (defcustom scroll-on-drag-motion-accelerate 0.3
   "Non-linear scroll power (0.0 for linear speed, 1.0 for very fast 
acceleration)."
-  :group 'scroll-on-drag
   :type 'float)
 
-(defcustom scroll-on-drag-smooth t
-  "Use smooth (pixel) scrolling."
-  :group 'scroll-on-drag
-  :type 'boolean)
+(defcustom scroll-on-drag-smooth t "Use smooth (pixel) scrolling." :type 
'boolean)
 
 (defcustom scroll-on-drag-pre-hook nil
   "List of functions to be called when `scroll-on-drag' starts."
-  :group 'scroll-on-drag
   :type 'hook)
 
 (defcustom scroll-on-drag-post-hook nil
   "List of functions to be called when `scroll-on-drag' finishes."
-  :group 'scroll-on-drag
   :type 'hook)
 
 (defcustom scroll-on-drag-redisplay-hook nil
   "List of functions to run on scroll redraw."
-  :group 'scroll-on-drag
   :type 'hook)
 
 



reply via email to

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