branch: elpa/git-commit
commit 50953fc4f0115643bdb1a39c3bed42972e1410e1
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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
