diff options
| author | Stefan Kangas | 2022-08-09 19:42:07 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-08-09 21:58:00 +0200 |
| commit | 0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace (patch) | |
| tree | d464653414f5364edf829d59c7e848e953bf5536 | |
| parent | 47aa2317c343de3cf1bca1e19906dccc7415fe28 (diff) | |
| download | emacs-0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace.tar.gz emacs-0bc2079ce664cfe089a10f8ba0b17f4d2dae9ace.zip | |
* lisp/ibuf-ext.el (ibuffer-remove-alist): Simplify.
| -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 @@ | |||
| 48 | ;;; Utility functions | 48 | ;;; Utility functions |
| 49 | (defun ibuffer-remove-alist (key alist) | 49 | (defun ibuffer-remove-alist (key alist) |
| 50 | "Remove all entries in ALIST that have a key equal to KEY." | 50 | "Remove all entries in ALIST that have a key equal to KEY." |
| 51 | (while (when-let ((it (assoc key alist))) | 51 | (assoc-delete-all key (copy-sequence alist))) |
| 52 | (setq alist (remove it alist)) it)) | ||
| 53 | alist) | ||
| 54 | 52 | ||
| 55 | (defun ibuffer-split-list (fn elts) | 53 | (defun ibuffer-split-list (fn elts) |
| 56 | (declare (obsolete seq-group-by "29.1")) | 54 | (declare (obsolete seq-group-by "29.1")) |