[nongnu] elpa/git-commit 50953fc4f0 02/10: Define section classes in magit-base.el

[ELPA Syncer]

branch: elpa/git-commit
commit 50953fc4f0115643bdb1a39c3bed42972e1410e1
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Define section classes in magit-base.el
---
 lisp/magit-base.el | 25 +++++++++++++++++++++++++
 lisp/magit-diff.el | 23 -----------------------
 2 files changed, 25 insertions(+), 23 deletions(-)

diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index ecb04421a2..e4641c616f 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -46,6 +46,8 @@
 
 (require 'crm)
 
+(require 'magit-section)
+
 (eval-when-compile (require 'ido))
 (declare-function Info-get-token "info" (pos start all &optional errorstring))
 
@@ -435,6 +437,29 @@ and delay of your graphical environment or operating 
system."
                  (const :tag "view manpage using `man'" man)
                  (const :tag "view manpage using `woman'" woman)))
 
+;;; Section Classes
+
+(defclass magit-file-section (magit-section)
+  ((keymap :initform 'magit-file-section-map)
+   (source :initform nil)
+   (header :initform nil)))
+
+(defclass magit-module-section (magit-file-section)
+  ((keymap :initform 'magit-hunk-section-map)))
+
+(defclass magit-hunk-section (magit-section)
+  ((keymap      :initform 'magit-hunk-section-map)
+   (refined     :initform nil)
+   (combined    :initform nil)
+   (from-range  :initform nil)
+   (from-ranges :initform nil)
+   (to-range    :initform nil)
+   (about       :initform nil)))
+
+(setf (alist-get 'file   magit--section-type-alist) 'magit-file-section)
+(setf (alist-get 'module magit--section-type-alist) 'magit-module-section)
+(setf (alist-get 'hunk   magit--section-type-alist) 'magit-hunk-section)
+
 ;;; User Input
 
 (defvar helm-completion-in-region-default-sort-fn)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index dcff92c65d..4549b12239 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -833,29 +833,6 @@ and `:slant'."
     (setq magit-buffer-diff-files files)
     (magit-refresh)))
 
-;;; Section Classes
-
-(defclass magit-file-section (magit-section)
-  ((keymap :initform 'magit-file-section-map)
-   (source :initform nil)
-   (header :initform nil)))
-
-(defclass magit-module-section (magit-file-section)
-  ((keymap :initform 'magit-hunk-section-map)))
-
-(defclass magit-hunk-section (magit-section)
-  ((keymap      :initform 'magit-hunk-section-map)
-   (refined     :initform nil)
-   (combined    :initform nil)
-   (from-range  :initform nil)
-   (from-ranges :initform nil)
-   (to-range    :initform nil)
-   (about       :initform nil)))
-
-(setf (alist-get 'hunk   magit--section-type-alist) 'magit-hunk-section)
-(setf (alist-get 'module magit--section-type-alist) 'magit-module-section)
-(setf (alist-get 'file   magit--section-type-alist) 'magit-file-section)
-
 ;;; Commands
 ;;;; Prefix Commands