From: Colin Walters <walters@gnu.org>
Date: Sat, 23 Feb 2002 21:33:49 +0000 (+0000)
Subject: (ibuffer-old-time): Change to hours.
X-Git-Tag: ttn-vms-21-2-B4~16511
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c1bb3d3385aaee8c4cc205e4b4128be792af620;p=emacs.git

(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 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 ()