diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-24 15:05:41 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-24 15:05:41 +0100 |
commit | 9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7 (patch) | |
tree | db90f5f001825a8e41421d6fd6767dd5a7f7e166 | |
parent | cf1b5169de50f5392dcc55b1989a46e861c9fe1b (diff) | |
download | org-mode-9d11d5f3ecabfd932deb1a7c5b9fe8587c8b90b7.tar.gz |
Fix last commit.
-rw-r--r-- | lisp/org-agenda.el | 10 |
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. |