andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(diary-modify-entry-list-string-function): New hook.

Browse source 
(add-to-diary-list): Call `diary-modify-entry-list-string-function'
This commit is contained in:
Carsten Dominik 2005-08-25 07:06:07 +00:00
parent 822fcf5b09
commit 9a20c79bce
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/diary-lib.el
View file

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