From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 1 Dec 2019 09:12:12 +0000 (+0100)
Subject: ibuffer-do-isearch: don't depend on `cl-values-list' (bug#38430)
X-Git-Tag: emacs-27.0.90~467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f22501185e7d5885270eadb5dc32ef267153f2ac;p=emacs.git

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.
---

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