forked from mirrors/org-mode
org-choose.el: Fix bug with checking siblings
Org-choose.el would check not only siblings but also any children of them. Patch by Tom Breton
This commit is contained in:
parent
21221dd564
commit
8f819da4d5
|
@ -1,3 +1,8 @@
|
|||
2009-02-24 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* lisp/org-choose.el (org-choose-get-fn-map-group): Only check
|
||||
true siblings.
|
||||
|
||||
2009-02-18 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* lisp/org-R.el: New file.
|
||||
|
|
|
@ -389,8 +389,13 @@ setting was changed."
|
|||
(save-excursion
|
||||
(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)))))
|
||||
(let
|
||||
((level (org-reduced-level (org-outline-level))))
|
||||
(save-restriction
|
||||
(org-map-entries
|
||||
fn
|
||||
(format "LEVEL=%d" level)
|
||||
'tree))))))
|
||||
|
||||
;;;_ . org-choose-get-highest-mark-index
|
||||
|
||||
|
|
Loading…
Reference in a new issue