comparison lisp/org/org-agenda.el @ 99866:57447f70a253

2008-11-24 Carsten Dominik <carsten.dominik@gmail.com> * org-agenda.el (org-get-closed): Re-apply changes accidentially overwritten by last commit to Emacs. * org.el (org-outline-path-complete-in-steps): New option. (org-refile-get-location): Honor `org-outline-path-complete-in-steps'. (org-agenda-change-all-lines, org-tags-sparse-tree) (org-time-string-to-absolute, org-small-year-to-year) (org-link-escape): Re-apply changes accidentially overwritten by last commit to Emacs.
author Carsten Dominik <dominik@science.uva.nl>
date Mon, 24 Nov 2008 12:16:13 +0000
parents 621e15919df0
children c851df8e004e
comparison
equal deleted inserted replaced
99865:7a3672b295e4 99866:57447f70a253
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Carsten Dominik <carsten at orgmode dot org> 6 ;; Author: Carsten Dominik <carsten at orgmode dot org>
7 ;; Keywords: outlines, hypermedia, calendar, wp 7 ;; Keywords: outlines, hypermedia, calendar, wp
8 ;; Homepage: http://orgmode.org 8 ;; Homepage: http://orgmode.org
9 ;; Version: 6.13 9 ;; Version: 6.13a
10 ;; 10 ;;
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 ;; 12 ;;
13 ;; GNU Emacs is free software: you can redistribute it and/or modify 13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
3396 'org-category category 'date date 3396 'org-category category 'date date
3397 'type "sexp") 3397 'type "sexp")
3398 (push txt ee)))) 3398 (push txt ee))))
3399 (nreverse ee))) 3399 (nreverse ee)))
3400 3400
3401 (defalias 'org-get-closed 'org-get-progress) 3401 (defalias 'org-get-closed 'org-agenda-get-progress)
3402 (defun org-agenda-get-progress () 3402 (defun org-agenda-get-progress ()
3403 "Return the logged TODO entries for agenda display." 3403 "Return the logged TODO entries for agenda display."
3404 (let* ((props (list 'mouse-face 'highlight 3404 (let* ((props (list 'mouse-face 'highlight
3405 'org-not-done-regexp org-not-done-regexp 3405 'org-not-done-regexp org-not-done-regexp
3406 'org-todo-regexp org-todo-regexp 3406 'org-todo-regexp org-todo-regexp