summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-24 14:05:41 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-01-24 14:05:41 (GMT)
commit9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7 (patch)
treedb90f5f001825a8e41421d6fd6767dd5a7f7e166
parentcf1b5169de50f5392dcc55b1989a46e861c9fe1b (diff)
downloadorg-mode-9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7.zip
org-mode-9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7.tar.gz
Fix last commit.
-rw-r--r--lisp/org-agenda.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 246a6b1..65d54a5 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.