# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1014500029 0
# Node ID a08f4763cba4394ffe7db906fc361bc52dd275ea
# Parent  ffa9b62fa5b98365a276258a1c4176de8f3bbe0d
(ibuffer-old-time): Change to hours.
(ibuffer-mark-old-buffers): Handle it.

diff -r ffa9b62fa5b9 -r a08f4763cba4 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Sat Feb 23 21:33:33 2002 +0000
+++ b/lisp/ibuf-ext.el	Sat Feb 23 21:33:49 2002 +0000
@@ -147,9 +147,12 @@
 (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 @@
 			      (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 ()