mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Kangas 2022-08-09 19:42:07 +02:00
parent 47aa2317c3
commit 0bc2079ce6
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ibuf-ext.el
View File

@ -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"))