[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy-magit-section 13a51e332c 1/2: Fix: (magit-section-
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy-magit-section 13a51e332c 1/2: Fix: (magit-section-ident-value) Call next method for other values |
Date: |
Tue, 23 Jan 2024 18:58:45 -0500 (EST) |
branch: externals/taxy-magit-section
commit 13a51e332cfc608e8507418c621952aca0a607fb
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Fix: (magit-section-ident-value) Call next method for other values
Not sure how the previous change suddenly caused this to happen in my
deffy-buffer command, but this seems to fix it, and seems correct.
---
taxy-magit-section.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/taxy-magit-section.el b/taxy-magit-section.el
index c02a7c335b..c4e68b18c8 100644
--- a/taxy-magit-section.el
+++ b/taxy-magit-section.el
@@ -96,8 +96,10 @@ this does not disable indentation of section headings.")
;; hierarchical path, but since the taxys aren't doubly linked, that isn't
easily done.
;; Could probably be worked around by binding a special variable around the
creation of
;; the taxy hierarchy that would allow the path to be saved into each taxy.
- (when-let ((taxy (oref section value)))
- (taxy-name taxy)))
+ (let ((value (oref section value)))
+ (cl-typecase value
+ (taxy (taxy-name value))
+ (otherwise (cl-call-next-method)))))
;;;; Commands