alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.
commit 26e832fc5ee0e0d3bd68cc8e92040ecc86f127d9
Author: Alex Kost <[email protected]>
Date: Wed Aug 12 15:37:20 2015 +0300
emacs: Add 'guix-any'.
* emacs/guix-utils.el (guix-any): New function.
---
emacs/guix-utils.el | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el
index 700eeec..5055186 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -204,6 +204,14 @@ accessed with KEYS."
(while (re-search-forward ,regexp nil t)
,@body)))
+(defun guix-any (pred lst)
+ "Test whether any element from LST satisfies PRED.
+If so, return the return value from the successful PRED call.
+Return nil otherwise."
+ (when lst
+ (or (funcall pred (car lst))
+ (guix-any pred (cdr lst)))))
+
;;; Diff
