]> git.eshelyaron.com Git - emacs.git/commitdiff
ibuffer-do-isearch: don't depend on `cl-values-list' (bug#38430)
authorJuanma Barranquero <lekktu@gmail.com>
Sun, 1 Dec 2019 09:12:12 +0000 (10:12 +0100)
committerJuanma Barranquero <lekktu@gmail.com>
Sun, 1 Dec 2019 09:13:06 +0000 (10:13 +0100)
* 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

index 13223de6e7e18c97713fd72f231cf9a46de5e5b3..de3035e9d040f0a46fbc3522d5390c1c5a85d079 100644 (file)
@@ -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))))