aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2019-12-01 10:12:12 +0100
committerJuanma Barranquero2019-12-01 10:13:06 +0100
commitf22501185e7d5885270eadb5dc32ef267153f2ac (patch)
tree7eed7b3f06bcbc15078ecd64e7047b06f6cb9d13
parent293eb3259883c0b8465926a850b9ca7131e70074 (diff)
downloademacs-f22501185e7d5885270eadb5dc32ef267153f2ac.tar.gz
emacs-f22501185e7d5885270eadb5dc32ef267153f2ac.zip
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.
-rw-r--r--lisp/ibuf-ext.el9
1 files 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
761 (dolist (filtergroup filter-group-alist) 761 (dolist (filtergroup filter-group-alist)
762 (let ((filterset (cdr filtergroup))) 762 (let ((filterset (cdr filtergroup)))
763 (cl-multiple-value-bind (hip-crowd lamers) 763 (cl-multiple-value-bind (hip-crowd lamers)
764 (cl-values-list 764 (ibuffer-split-list (lambda (bufmark)
765 (ibuffer-split-list (lambda (bufmark) 765 (ibuffer-included-in-filters-p (car bufmark)
766 (ibuffer-included-in-filters-p (car bufmark) 766 filterset))
767 filterset)) 767 bmarklist)
768 bmarklist))
769 (aset vec i hip-crowd) 768 (aset vec i hip-crowd)
770 (cl-incf i) 769 (cl-incf i)
771 (setq bmarklist lamers)))) 770 (setq bmarklist lamers))))