05/12: emacs: Add 'guix-any'.

[Alex Kost]

alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.

commit dcc677595c2de091060725568822adc7c103c9b2
Author: Alex Kost <address@hidden>
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 8a0673a..3343d41 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -168,6 +168,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