Permalink
Browse files

added kvdotassoc= - useful for querys

  • Loading branch information...
1 parent 620daf1 commit 6ea2bae0e0be6767c638c5d1954c158b4070c87d @nicferrier committed Oct 12, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 kv.el
View
4 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)

0 comments on commit 6ea2bae

Please sign in to comment.