Commit e3b71439 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(define-ibuffer-sorter): Define the sorter to reverse sorting order if

last sorting mode was the sorter's.
parent e7820654
...@@ -150,7 +150,10 @@ value if and only if `a' is \"less than\" `b'. ...@@ -150,7 +150,10 @@ value if and only if `a' is \"less than\" `b'.
,(or documentation "No :documentation specified for this sorting method.") ,(or documentation "No :documentation specified for this sorting method.")
(interactive) (interactive)
(setq ibuffer-sorting-mode ',name) (setq ibuffer-sorting-mode ',name)
(ibuffer-redisplay t)) (when (eq ibuffer-sorting-mode ibuffer-last-sorting-mode)
(setq ibuffer-sorting-reversep (not ibuffer-sorting-reversep)))
(ibuffer-redisplay t)
(setq ibuffer-last-sorting-mode ',name))
(push (list ',name ,description (push (list ',name ,description
#'(lambda (a b) #'(lambda (a b)
,@body)) ,@body))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment