From f22501185e7d5885270eadb5dc32ef267153f2ac Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 1 Dec 2019 10:12:12 +0100 Subject: [PATCH] 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. --- lisp/ibuf-ext.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 13223de6e7e..de3035e9d04 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -761,11 +761,10 @@ specification, with the same structure as an element of the list (dolist (filtergroup filter-group-alist) (let ((filterset (cdr filtergroup))) (cl-multiple-value-bind (hip-crowd lamers) - (cl-values-list - (ibuffer-split-list (lambda (bufmark) - (ibuffer-included-in-filters-p (car bufmark) - filterset)) - bmarklist)) + (ibuffer-split-list (lambda (bufmark) + (ibuffer-included-in-filters-p (car bufmark) + filterset)) + bmarklist) (aset vec i hip-crowd) (cl-incf i) (setq bmarklist lamers)))) -- 2.39.2