From 9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 24 Jan 2013 15:05:41 +0100 Subject: [PATCH] Fix last commit. --- lisp/org-agenda.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 246a6b136..65d54a568 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5225,11 +5225,11 @@ function from a program - use `org-agenda-get-day-entries' instead." (while (setq file (pop files)) (setq rtn (apply 'org-agenda-get-day-entries file date args)) (setq results (append results rtn))) - (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")))) + (when results + (setq results + (mapcar (lambda (i) (replace-regexp-in-string + org-bracket-link-regexp "\\3" i)) results)) + (concat (org-agenda-finalize-entries results) "\n")))) (autoload 'org-diary "org-agenda" "\ Return diary information from org files.