[Emacs-diffs] Changes to emacs/lisp/ibuf-macs.el,v

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      08/05/01 01:19:26

Index: ibuf-macs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ibuf-macs.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- ibuf-macs.el        10 Apr 2008 14:09:38 -0000      1.26
+++ ibuf-macs.el        1 May 2008 01:19:26 -0000       1.27
@@ -150,7 +150,10 @@
        ,(or documentation "No :documentation specified for this sorting 
method.")
        (interactive)
        (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
                 #'(lambda (a b)
                     ,@body))