From: Francois Fleuret Date: Wed, 21 Apr 2010 06:35:59 +0000 (+0200) Subject: *** empty log message *** X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=9de4097defbc659d5bf8c79ce7846155c71dda60;p=elisp.git *** empty log message *** --- diff --git a/enotes.el b/enotes.el index 63c4431..48c4ed3 100644 --- a/enotes.el +++ b/enotes.el @@ -455,7 +455,7 @@ heuristic. Improvements are welcome" (format "in %dmin" (/ second 60))) ((< second enotes/day-duration) (format "in %dh" (/ second 3600))) - ((< second enotes/month-duration) + ((< second (* 3 enotes/month-duration)) (format "in %d day%s" (/ second 86400) (if (> (ftruncate (/ second 86400)) 1) "s" ""))) @@ -480,10 +480,12 @@ heuristic. Improvements are welcome" ;; The small color tag (if (enotes/get-color note) - (propertize " " 'face (cons 'background-color - (enotes/get-color note))) + (propertize " " + 'face (cons 'background-color (enotes/get-color note))) " ") + (if (equal (enotes/get-event-time note) (enotes/get-warning-time note)) "+" " ") + " ") 'field 'title)