[nongnu] elpa/scroll-on-drag cacadcd9bd 20/35: Cleanup: add sections

[ELPA Syncer]

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

    Cleanup: add sections
---
 scroll-on-drag.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index 9dfbcb00bd..c956e3561c 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -32,6 +32,9 @@
 
 ;;; Code:
 
+;; ---------------------------------------------------------------------------
+;; Custom Variables
+
 (defcustom scroll-on-drag-style 'line-by-pixel
   "The method of scrolling."
   :group 'scroll-on-drag
@@ -58,12 +61,12 @@
   :type 'boolean)
 
 (defcustom scroll-on-drag-pre-hook nil
-  "List of functions to be called when scroll-on-drag starts."
+  "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."
+  "List of functions to be called when `scroll-on-drag' finishes."
   :group 'scroll-on-drag
   :type 'hook)
 
@@ -73,6 +76,9 @@
   :type 'hook)
 
 
+;; ---------------------------------------------------------------------------
+;; Internal Functions
+
 ;; Generic scrolling functions.
 ;;
 ;; It would be nice if this were part of a more general library.
@@ -149,6 +155,10 @@ Argument ALSO-MOVE-POINT When non-nil, move the POINT as 
well."
 
 ;; End generic scrolling functions.
 
+
+;; ---------------------------------------------------------------------------
+;; Public Functions
+
 ;;;###autoload
 (defun scroll-on-drag ()
   "Interactively scroll (typically on click event).