[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f225011: ibuffer-do-isearch: don't depend on `cl-values-list' (bu
From: |
Juanma Barranquero |
Subject: |
master f225011: ibuffer-do-isearch: don't depend on `cl-values-list' (bug#38430) |
Date: |
Sun, 1 Dec 2019 04:13:57 -0500 (EST) |
branch: master
commit f22501185e7d5885270eadb5dc32ef267153f2ac
Author: Juanma Barranquero <address@hidden>
Commit: Juanma Barranquero <address@hidden>
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.
---
lisp/ibuf-ext.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 13223de..de3035e 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f225011: ibuffer-do-isearch: don't depend on `cl-values-list' (bug#38430),
Juanma Barranquero <=