diff options
author | Adam Porter <adam@alphapapa.net> | 2024-01-23 17:29:15 -0600 |
---|---|---|
committer | Adam Porter <adam@alphapapa.net> | 2024-01-23 17:29:15 -0600 |
commit | 13a51e332cfc608e8507418c621952aca0a607fb (patch) | |
tree | f2b05d02737651db3592708d5f60983516c1ee28 | |
parent | f43bbf602ee4cc47c3a6596b5e1e69acb021b226 (diff) |
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.
-rw-r--r-- | taxy-magit-section.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/taxy-magit-section.el b/taxy-magit-section.el index c02a7c3..c4e68b1 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 |