mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-choose.el: Fix bug.

This commit is contained in:
Carsten Dominik 2009-04-08 15:12:20 +02:00
parent 978ac28e9f
commit 31446d85a3
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-08 Carsten Dominik <carsten.dominik@gmail.com>
* lisp/org-choose.el (org-choose-get-fn-map-group): Fix bug with
level selection.
2009-04-01 Carsten Dominik <carsten.dominik@gmail.com>
* lisp/org-exp-bibtex.el (org-export-bibtex-preprocess): Handle

4
contrib/lisp/org-choose.el
View File

@ -388,9 +388,9 @@ setting was changed."
(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"))
(error "Choosing is only supported between siblings in a tree, not on top level"))
(let
((level (org-reduced-level (org-outline-level))))
((level (1+ (org-reduced-level (org-outline-level)))))
(save-restriction
(org-map-entries
fn