diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ibuf-ext.el | 4 |
1 files changed, 1 insertions, 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")) |