diff options
| -rw-r--r-- | lisp/ibuffer.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index fbd3769edd7..47c7ab2ab3d 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -214,6 +214,7 @@ view of the buffers." | |||
| 214 | (const :tag "Major mode" :value major-mode)) | 214 | (const :tag "Major mode" :value major-mode)) |
| 215 | :group 'ibuffer) | 215 | :group 'ibuffer) |
| 216 | (defvar ibuffer-sorting-mode nil) | 216 | (defvar ibuffer-sorting-mode nil) |
| 217 | (defvar ibuffer-last-sorting-mode nil) | ||
| 217 | 218 | ||
| 218 | (defcustom ibuffer-default-sorting-reversep nil | 219 | (defcustom ibuffer-default-sorting-reversep nil |
| 219 | "If non-nil, reverse the default sorting order." | 220 | "If non-nil, reverse the default sorting order." |
| @@ -1997,7 +1998,10 @@ the value of point at the beginning of the line for that buffer." | |||
| 1997 | "Sort the buffers by last view time." | 1998 | "Sort the buffers by last view time." |
| 1998 | (interactive) | 1999 | (interactive) |
| 1999 | (setq ibuffer-sorting-mode 'recency) | 2000 | (setq ibuffer-sorting-mode 'recency) |
| 2000 | (ibuffer-update nil t)) | 2001 | (when (eq ibuffer-last-sorting-mode 'recency) |
| 2002 | (setq ibuffer-sorting-reversep (not ibuffer-sorting-reversep))) | ||
| 2003 | (ibuffer-update nil t) | ||
| 2004 | (setq ibuffer-last-sorting-mode 'recency)) | ||
| 2001 | 2005 | ||
| 2002 | (defun ibuffer-update-format () | 2006 | (defun ibuffer-update-format () |
| 2003 | (when (null ibuffer-current-format) | 2007 | (when (null ibuffer-current-format) |