From: Carsten Dominik <dominik@science.uva.nl>
Date: Thu, 25 Aug 2005 07:06:07 +0000 (+0000)
Subject: (diary-modify-entry-list-string-function): New hook.
X-Git-Tag: emacs-pretest-22.0.90~7465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a20c79bcec8a2b87af788711c0f60ea1247af1d;p=emacs.git

(diary-modify-entry-list-string-function): New hook.
(add-to-diary-list): Call `diary-modify-entry-list-string-function'
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 8b14061a95b..ebcb4278ee7 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1650,6 +1650,11 @@ marked on the calendar."
       (or (diary-remind sexp (car days) marking)
           (diary-remind sexp (cdr days) marking))))))
 
+(defvar diary-modify-entry-list-string-function nil
+  "Function applied to entry string before putting it into the entries list.
+This is so that program that use the emacs diary for other purposes (e.g.
+planner.el and org.el) can modify the string or add properties to it.")
+
 (defun add-to-diary-list (date string specifier &optional marker globcolor)
   "Add the entry (DATE STRING SPECIFIER MARKER GLOBCOLOR) to `diary-entries-list'.
 Do nothing if DATE or STRING is nil."
@@ -1659,6 +1664,9 @@ Do nothing if DATE or STRING is nil."
                                (buffer-file-name))))
           (or (string= prefix "")
               (setq string (format "[%s] %s" prefix string)))))
+    (and diary-modify-entry-list-string-function
+	 (setq string (funcall diary-modify-entry-list-string-function
+			       string)))
     (setq diary-entries-list
           (append diary-entries-list
                   (list (list date string specifier marker globcolor))))))