diff options
| author | Juanma Barranquero | 2019-12-02 01:38:31 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2019-12-02 01:38:31 +0100 |
| commit | 9c0ac88199accb4133d9fbf36d3c4adc3705b22f (patch) | |
| tree | 2fb4ede083eaca54467bf2d42665c8fd312478ad | |
| parent | 3dd7de625f13ac2ce85af6c28b91ce4bbcd972ac (diff) | |
| download | emacs-9c0ac88199accb4133d9fbf36d3c4adc3705b22f.tar.gz emacs-9c0ac88199accb4133d9fbf36d3c4adc3705b22f.zip | |
ibuf-ext.el: Fix previous change
* lisp/ibuf-ext.el (ibuffer-generate-filter-groups): Use
`cl-destructuring-bind' instead of `cl-multiple-value-bind', as we
don't want to assume how multiple-values are implemented, and we
know a list is being returned anyway. Suggested by Stefan Monnier.
| -rw-r--r-- | lisp/ibuf-ext.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 375090e09c3..12930fc0a67 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el | |||
| @@ -760,7 +760,7 @@ specification, with the same structure as an element of the list | |||
| 760 | (i 0)) | 760 | (i 0)) |
| 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-destructuring-bind (hip-crowd lamers) |
| 764 | (ibuffer-split-list (lambda (bufmark) | 764 | (ibuffer-split-list (lambda (bufmark) |
| 765 | (ibuffer-included-in-filters-p (car bufmark) | 765 | (ibuffer-included-in-filters-p (car bufmark) |
| 766 | filterset)) | 766 | filterset)) |