From 2cc7988b9a5a77531668ae80551af0494ffbaa3e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 13 Nov 2008 04:36:13 +0000 Subject: [PATCH] (org-get-closed): Fix alias. --- lisp/org/ChangeLog | 4 ++++ lisp/org/org-agenda.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 4d5ebb6c885..03a3e1a6558 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,7 @@ +2008-11-13 Glenn Morris + + * org-agenda.el (org-get-closed): Fix alias. + 2008-11-12 Juanma Barranquero * org.el (org-link-escape): Fix typo in docstring. diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index e538756cc10..4f7b87769b0 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -3384,7 +3384,7 @@ the documentation of `org-diary'." (push txt ee)))) (nreverse ee))) -(defalias 'org-get-closed 'org-get-progress) +(defalias 'org-get-closed 'org-agenda-get-progress) (defun org-agenda-get-progress () "Return the logged TODO entries for agenda display." (let* ((props (list 'mouse-face 'highlight @@ -3398,7 +3398,7 @@ the documentation of `org-diary'." (items (if (consp org-agenda-show-log) org-agenda-show-log org-agenda-log-mode-items)) - (parts + (parts (delq nil (list (if (memq 'closed items) (concat "\\<" org-closed-string)) -- 2.11.4.GIT