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

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

[nongnu] elpa/git-commit 4f2b55ecf5 17/20: magit-process-section: New cl


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 4f2b55ecf5 17/20: magit-process-section: New class
Date: Sun, 28 Apr 2024 16:03:27 -0400 (EDT)

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

    magit-process-section: New class
---
 lisp/magit-process.el | 5 +++++
 lisp/magit-section.el | 1 -
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-process.el b/lisp/magit-process.el
index 51a6a29bc5..0e56dafa7e 100644
--- a/lisp/magit-process.el
+++ b/lisp/magit-process.el
@@ -670,6 +670,11 @@ Magit status buffer."
 
 ;;; Process Internals
 
+(defclass magit-process-section (magit-section)
+  ((process :initform nil)))
+
+(setf (alist-get 'process magit--section-type-alist) 'magit-process-section)
+
 (defun magit-process-setup (program args)
   (magit-process-set-mode-line program args)
   (let ((pwd default-directory)
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index a0de516f99..b9f635762f 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -386,7 +386,6 @@ no effect.  This also has no effect for Emacs >= 28, where
    (end      :initform nil)
    (hidden   :initform nil)
    (washer   :initform nil :initarg :washer)
-   (process  :initform nil)
    (heading-highlight-face :initform nil :initarg :heading-highlight-face)
    (inserter :initform (symbol-value 'magit--current-section-hook))
    (parent   :initform nil :initarg :parent)



reply via email to

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