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

[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
 



reply via email to

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