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