diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-02-13 07:35:46 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-02-13 07:35:46 +0100 |
commit | da6fb7448b691e18042aa186bab3fa7eea217cf8 (patch) | |
tree | cf7c50aa7362294c8cbd33fb1ebcf64561541641 | |
parent | edd2aab5ee5b4e344168ba600d6a84c6032e30b2 (diff) | |
download | org-mode-da6fb7448b691e18042aa186bab3fa7eea217cf8.tar.gz |
org-choose: Apply Tom's patch
-rw-r--r-- | contrib/ChangeLog | 5 | ||||
-rw-r--r-- | contrib/lisp/org-choose.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/contrib/ChangeLog b/contrib/ChangeLog index c410d34..1e1aae2 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,8 @@ +2009-02-13 Carsten Dominik <carsten.dominik@gmail.com> + + * lisp/org-choose.el (org-choose-get-fn-map-group): Require + `org-agenda'. + 2009-02-12 Carsten Dominik <carsten.dominik@gmail.com> * lisp/org-choose.el ("org"): Use file name instead of feature for diff --git a/contrib/lisp/org-choose.el b/contrib/lisp/org-choose.el index 8a4d540..baa8584 100644 --- a/contrib/lisp/org-choose.el +++ b/contrib/lisp/org-choose.el @@ -273,7 +273,6 @@ interpretation." (defun org-choose-keep-sensible (change-plist) "Bring the other items back into a sensible state after an item's setting was changed." - (let* ( (from (plist-get change-plist :from)) (to (plist-get change-plist :to)) @@ -385,6 +384,7 @@ setting was changed." "Return a function to map over the group" #'(lambda (fn) + (require 'org-agenda) ;; `org-map-entries' seems to need it. (save-excursion (unless (org-up-heading-safe) (error "Chosing is only supported between siblings in a tree, not on top level")) @@ -421,7 +421,6 @@ If there is none, return 0" given that another mark has index IX. DATA must be a `org-choose-mark-data.'." - (let ( (bot-lower-range |