diff options
| author | Colin Walters <walters@gnu.org> | 2002-02-23 21:33:49 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-02-23 21:33:49 +0000 |
| commit | 2c1bb3d3385aaee8c4cc205e4b4128be792af620 (patch) | |
| tree | 993a756533074038ee90a94b018655cad0d17f19 /lisp/ibuf-ext.el | |
| parent | d99b259bdbf9c1f63ae932b2e213eaa0f160f773 (diff) | |
| download | emacs-2c1bb3d3385aaee8c4cc205e4b4128be792af620.tar.gz | |
(ibuffer-old-time): Change to hours.
(ibuffer-mark-old-buffers): Handle it.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index e5b85fd5a86..697583f288c 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -147,9 +147,12 @@ to this variable.") (defvar ibuffer-cached-filter-formats nil) (defvar ibuffer-compiled-filter-formats nil) -(defcustom ibuffer-old-time 3 - "The number of days before a buffer is considered \"old\"." - :type 'integer +(defcustom ibuffer-old-time 72 + "The number of hours before a buffer is considered \"old\"." + :type '(choice (const :tag "72 hours (3 days)" 72) + (const :tag "48 hours (2 days)" 48) + (const :tag "24 hours (1 day)" 24) + (integer :tag "hours")) :group 'ibuffer) (defcustom ibuffer-save-with-custom t @@ -1017,7 +1020,7 @@ You can then feed the file name(s) to other commands with C-y. (car buffer-display-time)) (float (cadr buffer-display-time)) (* 0.0000001 (caddr buffer-display-time))))) - (> (- now then) (* 24 60 60 ibuffer-old-time)))))))) + (> (- now then) (* 60 60 ibuffer-old-time)))))))) ;;;###autoload (defun ibuffer-mark-special-buffers () |