From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 9 Aug 2022 22:27:51 +0000 (+0200)
Subject: Make unused function filesets-ormap obsolete
X-Git-Tag: emacs-29.0.90~1447^2~262
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=561d09d7adfc6d346780b30e4a2afd908ae4f4a0;p=emacs.git

Make unused function filesets-ormap obsolete

* lisp/filesets.el (filesets-ormap): Simplify and make obsolete in
favor of 'seq-drop-while'.
---

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 83e7fa3c9a6..4831bf167dd 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")