aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-11-13 04:36:13 +0000
committerGlenn Morris2008-11-13 04:36:13 +0000
commit2cc7988b9a5a77531668ae80551af0494ffbaa3e (patch)
treeab25e3bc1d9aee5263fbc85e3377996d29068959
parent63961e6a1d35a467292bbabc8b9b33d28bba67dc (diff)
downloademacs-2cc7988b9a5a77531668ae80551af0494ffbaa3e.tar.gz
emacs-2cc7988b9a5a77531668ae80551af0494ffbaa3e.zip
(org-get-closed): Fix alias.
-rw-r--r--lisp/org/ChangeLog4
-rw-r--r--lisp/org/org-agenda.el4
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 @@
12008-11-13 Glenn Morris <rgm@gnu.org>
2
3 * org-agenda.el (org-get-closed): Fix alias.
4
12008-11-12 Juanma Barranquero <lekktu@gmail.com> 52008-11-12 Juanma Barranquero <lekktu@gmail.com>
2 6
3 * org.el (org-link-escape): Fix typo in docstring. 7 * 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'."
3384 (push txt ee)))) 3384 (push txt ee))))
3385 (nreverse ee))) 3385 (nreverse ee)))
3386 3386
3387(defalias 'org-get-closed 'org-get-progress) 3387(defalias 'org-get-closed 'org-agenda-get-progress)
3388(defun org-agenda-get-progress () 3388(defun org-agenda-get-progress ()
3389 "Return the logged TODO entries for agenda display." 3389 "Return the logged TODO entries for agenda display."
3390 (let* ((props (list 'mouse-face 'highlight 3390 (let* ((props (list 'mouse-face 'highlight
@@ -3398,7 +3398,7 @@ the documentation of `org-diary'."
3398 (items (if (consp org-agenda-show-log) 3398 (items (if (consp org-agenda-show-log)
3399 org-agenda-show-log 3399 org-agenda-show-log
3400 org-agenda-log-mode-items)) 3400 org-agenda-log-mode-items))
3401 (parts 3401 (parts
3402 (delq nil 3402 (delq nil
3403 (list 3403 (list
3404 (if (memq 'closed items) (concat "\\<" org-closed-string)) 3404 (if (memq 'closed items) (concat "\\<" org-closed-string))