procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ibuffer-exchange-filters: Simplify code

Browse source 
* lisp/ibuf-ext.el (ibuffer-exchange-filters): Use cl-rotatef.
This commit is contained in:
Tino Calancha 2016-11-19 20:48:17 +09:00
parent 4cdd14eabe
commit 92b3528cf3
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ibuf-ext.el
View file

@ -869,14 +869,11 @@ turned into two separate filters [name: foo] and [mode: bar-mode]."
(defun ibuffer-exchange-filters ()
"Exchange the top two filters on the stack in this buffer."
(interactive)
(when (< (length ibuffer-filtering-qualifiers)
2)
(error "Need two filters to exchange"))
(let ((first (pop ibuffer-filtering-qualifiers))
(second (pop ibuffer-filtering-qualifiers)))
(push first ibuffer-filtering-qualifiers)
(push second ibuffer-filtering-qualifiers))
(ibuffer-update nil t))
(let ((filters ibuffer-filtering-qualifiers))
(when (< (length filters) 2)
(error "Need two filters to exchange"))
(cl-rotatef (car filters) (cadr filters))
(ibuffer-update nil t)))
;;;###autoload
(defun ibuffer-negate-filter ()