master 561d09d7ad 2/3: Make unused function filesets-ormap obsolete

[Stefan Kangas]

branch: master
commit 561d09d7adfc6d346780b30e4a2afd908ae4f4a0
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Make unused function filesets-ormap obsolete
    
    * lisp/filesets.el (filesets-ormap): Simplify and make obsolete in
    favor of 'seq-drop-while'.
---
 lisp/filesets.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 83e7fa3c9a..4831bf167d 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -154,14 +154,8 @@ COND-FN takes one argument: the current element."
 
 (defun filesets-ormap (fsom-pred lst)
   "Return the tail of LST for the head of which FSOM-PRED is non-nil."
-  (let ((fsom-lst lst)
-       (fsom-rv nil))
-    (while (and fsom-lst
-               (null fsom-rv))
-      (if (funcall fsom-pred (car fsom-lst))
-         (setq fsom-rv fsom-lst)
-       (setq fsom-lst (cdr fsom-lst))))
-    fsom-rv))
+  (declare (obsolete seq-drop-while "29.1"))
+  (seq-drop-while (lambda (x) (not (funcall fsom-pred x))) lst))
 
 (define-obsolete-function-alias 'filesets-some #'cl-some "28.1")
 (define-obsolete-function-alias 'filesets-member #'cl-member "28.1")