From 561d09d7adfc6d346780b30e4a2afd908ae4f4a0 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 10 Aug 2022 00:27:51 +0200 Subject: [PATCH] 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 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") -- 2.39.5