[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el

[Carsten Dominik]

Index: emacs/lisp/calendar/diary-lib.el
diff -c emacs/lisp/calendar/diary-lib.el:1.99 
emacs/lisp/calendar/diary-lib.el:1.100
*** emacs/lisp/calendar/diary-lib.el:1.99       Mon Jul  4 17:37:03 2005
--- emacs/lisp/calendar/diary-lib.el    Thu Aug 25 07:06:07 2005
***************
*** 1650,1655 ****
--- 1650,1660 ----
        (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,1664 ****
--- 1664,1672 ----
                                 (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))))))