(ibuffer-old-time): Change to hours.

(ibuffer-mark-old-buffers): Handle it.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index e5b85fd5a86a029f6d22bccf71ca76259707b81a..697583f288cce229c2eb7ee0e17a65a3fbae4815 100644 (file)
--- 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 ()