diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-12-01 10:12:12 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-12-01 10:13:06 +0100 |
| commit | f22501185e7d5885270eadb5dc32ef267153f2ac (patch) | |
| tree | 7eed7b3f06bcbc15078ecd64e7047b06f6cb9d13 | |
| parent | 293eb3259883c0b8465926a850b9ca7131e70074 (diff) | |
| download | emacs-f22501185e7d5885270eadb5dc32ef267153f2ac.tar.gz | |
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.el | 9 |
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 (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)))) |