From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 9 Aug 2022 17:42:07 +0000 (+0200)
Subject: * lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify.
X-Git-Tag: emacs-29.0.90~1447^2~273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace;p=emacs.git

* lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify.
---

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 44c1ae867d4..6b5cccec515 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -48,9 +48,7 @@
 ;;; Utility functions
 (defun ibuffer-remove-alist (key alist)
   "Remove all entries in ALIST that have a key equal to KEY."
-  (while (when-let ((it (assoc key alist)))
-           (setq alist (remove it alist)) it))
-  alist)
+  (assoc-delete-all key (copy-sequence alist)))
 
 (defun ibuffer-split-list (fn elts)
   (declare (obsolete seq-group-by "29.1"))