From 0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 9 Aug 2022 19:42:07 +0200 Subject: [PATCH] * lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify. --- lisp/ibuf-ext.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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")) -- 2.39.5