diff options
| author | Glenn Morris | 2008-11-13 04:36:13 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-11-13 04:36:13 +0000 |
| commit | 2cc7988b9a5a77531668ae80551af0494ffbaa3e (patch) | |
| tree | ab25e3bc1d9aee5263fbc85e3377996d29068959 | |
| parent | 63961e6a1d35a467292bbabc8b9b33d28bba67dc (diff) | |
| download | emacs-2cc7988b9a5a77531668ae80551af0494ffbaa3e.tar.gz emacs-2cc7988b9a5a77531668ae80551af0494ffbaa3e.zip | |
(org-get-closed): Fix alias.
| -rw-r--r-- | lisp/org/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2008-11-13 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * org-agenda.el (org-get-closed): Fix alias. | ||
| 4 | |||
| 1 | 2008-11-12 Juanma Barranquero <lekktu@gmail.com> | 5 | 2008-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)) |