mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 01:32:52 +00:00
org-choose.el: Fix bug.
This commit is contained in:
parent
978ac28e9f
commit
31446d85a3
|
@ -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>
|
2009-04-01 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* lisp/org-exp-bibtex.el (org-export-bibtex-preprocess): Handle
|
* lisp/org-exp-bibtex.el (org-export-bibtex-preprocess): Handle
|
||||||
|
|
|
@ -388,9 +388,9 @@ setting was changed."
|
||||||
(require 'org-agenda) ;; `org-map-entries' seems to need it.
|
(require 'org-agenda) ;; `org-map-entries' seems to need it.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(unless (org-up-heading-safe)
|
(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
|
(let
|
||||||
((level (org-reduced-level (org-outline-level))))
|
((level (1+ (org-reduced-level (org-outline-level)))))
|
||||||
(save-restriction
|
(save-restriction
|
||||||
(org-map-entries
|
(org-map-entries
|
||||||
fn
|
fn
|
||||||
|
|
Loading…
Reference in a new issue