diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 19:42:07 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 21:58:00 +0200 |
| commit | 0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace (patch) | |
| tree | d464653414f5364edf829d59c7e848e953bf5536 /lisp/ibuf-ext.el | |
| parent | 47aa2317c343de3cf1bca1e19906dccc7415fe28 (diff) | |
| download | emacs-0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace.tar.gz emacs-0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace.tar.bz2 emacs-0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace.zip | |
* lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -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")) |