Fix a bug in org-choose.el

contrib/ChangeLog

@@ -1,3 +1,9 @@
+2009-02-10  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* lisp/org-choose.el (org-choose-get-fn-map-group): Call
+	`org-up-heading-all' instead of `outline-up-heading-all', which
+	does not exist.
+
 2009-02-04  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* lisp/org-depend.el (org-depend-act-on-sibling): New macro.

contrib/lisp/org-choose.el

@@ -386,9 +386,10 @@ setting was changed."
    
    #'(lambda (fn)
 	(save-excursion
-	   (outline-up-heading-all 1)
-	   (save-restriction
-	      (org-map-entries fn nil 'tree)))))
+	  (unless (org-up-heading-safe)
+	    (error "Chosing is only supported between siblings in a tree, not on top level"))
+	  (save-restriction
+	    (org-map-entries fn nil 'tree)))))
 
 ;;;_  . org-choose-get-highest-mark-index