org-agenda.el (org-diary): Only keep the descriptions of the links

* org-agenda.el (org-diary): Only keep the descriptions of the
links since Org links are not active in the diary buffer.
This commit is contained in:
Bastien Guerry 2013-01-24 15:03:22 +01:00
parent b2abdfb95a
commit cf1b5169de
1 changed files with 3 additions and 0 deletions

View File

@ -5226,6 +5226,9 @@ function from a program - use `org-agenda-get-day-entries' instead."
(setq rtn (apply 'org-agenda-get-day-entries file date args)) (setq rtn (apply 'org-agenda-get-day-entries file date args))
(setq results (append results rtn))) (setq results (append results rtn)))
(if results (if results
(setq results
(mapcar (lambda (i) (replace-regexp-in-string
org-bracket-link-regexp "\\3" i)) results))
(concat (org-agenda-finalize-entries results) "\n")))) (concat (org-agenda-finalize-entries results) "\n"))))
(autoload 'org-diary "org-agenda" "\ (autoload 'org-diary "org-agenda" "\