added kvdotassoc= - useful for querys

1 files changed, 4 insertions, 0 deletions

diff --git a/kv.el b/kv.el
index 0335f24..0cce41d 100644
--- a/kv.el
+++ b/kv.el
@@ -309,6 +309,10 @@ FUNC is some sort of `assoc' like function."
   "Dotted expression handling with `assq'."
   (kvdotassoc-fn expr table 'assq))
 
+(defun kvdotassoc= (expr value table)
+  (let ((v (kvdotassoc expr table)))
+    (and v (equal v value) v)))
+
 (defalias 'dotassoc 'kvdotassoc)
 (defalias 'dotassq 'kvdotassq)