Skip to content
Browse files

lots of new stuff

  • Loading branch information...
1 parent 13311d9 commit e485201209d2307809a92fab32191148e9a54b4d @nicferrier committed Sep 19, 2012
Showing with 8 additions and 3 deletions.
  1. +8 −3 kv.el
11 kv.el
@@ -153,15 +153,20 @@ cons cells."
(assoc-default car-key alist)
(assoc-default cdr-key alist)))))
-(defun kvalist-keys->symbols (alist)
- "Convert the keys in ALIST to symbols."
+(defun kvalist-keys->* (alist fn)
+ "Convert the keys of ALIST through FN."
(lambda (pair)
- (intern (format "%s" (car pair)))
+ (funcall fn (car pair))
(cdr pair)))
+(defun kvalist-keys->symbols (alist)
+ "Convert the keys of ALIST into symbols."
+ (kvalist-keys->* alist (lambda (key) (intern (format "%s" key)))))
(defun kvcmp (a b)
"Do a comparison of the two values using printable syntax.

0 comments on commit e485201

Please sign in to comment.
Something went wrong with that request. Please try again.