X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=enotes.el;h=48c4ed3f0299db3644175b1fbc16851a9de55ffe;hp=5870df1b55891bebd49e03c2acbb20448cd75996;hb=HEAD;hpb=451cd872c40a21611618f23e0873ac18cf97c644

diff --git a/enotes.el b/enotes.el
index 5870df1..48c4ed3 100644
--- a/enotes.el
+++ b/enotes.el
@@ -1,4 +1,3 @@
-
 ;; -*-Emacs-Lisp-*-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -456,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" "")))
@@ -481,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)