Commit f2250118 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

ibuffer-do-isearch: don't depend on `cl-values-list' (bug#38430)

* lisp/ibuf-ext.el (ibuffer-generate-filter-groups): Don't call
`cl-values-list'.  Our implementation of that function just
checks that its argument is a list, and then returns it.  In
this specific case, the argument is guaranteed to be a list.
parent 293eb325
Pipeline #4214 failed with stage
in 90 minutes and 1 second
...@@ -761,11 +761,10 @@ specification, with the same structure as an element of the list ...@@ -761,11 +761,10 @@ specification, with the same structure as an element of the list
(dolist (filtergroup filter-group-alist) (dolist (filtergroup filter-group-alist)
(let ((filterset (cdr filtergroup))) (let ((filterset (cdr filtergroup)))
(cl-multiple-value-bind (hip-crowd lamers) (cl-multiple-value-bind (hip-crowd lamers)
(cl-values-list (ibuffer-split-list (lambda (bufmark)
(ibuffer-split-list (lambda (bufmark) (ibuffer-included-in-filters-p (car bufmark)
(ibuffer-included-in-filters-p (car bufmark) filterset))
filterset)) bmarklist)
bmarklist))
(aset vec i hip-crowd) (aset vec i hip-crowd)
(cl-incf i) (cl-incf i)
(setq bmarklist lamers)))) (setq bmarklist lamers))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment