branch: externals/dict-tree
commit 1dde6e1123eb46865972745166523b5a3e6884f3
Author: Toby Cubitt <toby-predict...@dr-qubit.org>
Commit: tsc25 <toby-predict...@dr-qubit.org>
Define missing setf methods for data cells
so we can still use the setf abstraction wherever possible.
---
dict-tree.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/dict-tree.el b/dict-tree.el
index bb0eca1..1d117a1 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -255,6 +255,10 @@ If START or END is negative, it counts from the end."
;; set property list component of data cons cell
(defalias 'dictree--cell-set-plist 'setcdr) ; INTERNAL USE ONLY
+;; define setf methods so we can use setf abstraction wherever possible
+(defsetf dictree--cell-data dictree--cell-set-data)
+(defsetf dictree--cell-plist dictree--cell-set-plist)
+
;; (defstruct
;; (dictree--cell
;; :named
