From: Francois Fleuret <francois@fleuret.org>
Date: Wed, 21 Apr 2010 06:35:59 +0000 (+0200)
Subject: *** empty log message ***
X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=commitdiff_plain;h=9de4097defbc659d5bf8c79ce7846155c71dda60

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