org--backward-paragraph-once: Fix infinite loop at first element in section
* lisp/org.el (org--backward-paragraph-once): Do not consider section parent as greater element. section elements starts at the same point with its first child and we do not want to "move" from beginning of child to the beginning of the section. Fixes https://list.orgmode.org/87cznsnql6.fsf@localhost/T/#t
This commit is contained in:
parent
5ca866d08a
commit
cc3df3af2a
|
@ -21399,7 +21399,9 @@ See `org-backward-paragraph'."
|
||||||
(forward-line -1))
|
(forward-line -1))
|
||||||
;; At the beginning of the first element within a greater
|
;; At the beginning of the first element within a greater
|
||||||
;; element. Move to the beginning of the greater element.
|
;; element. Move to the beginning of the greater element.
|
||||||
((and parent (= begin (org-element-property :contents-begin parent)))
|
((and parent
|
||||||
|
(not (eq 'section (org-element-type parent)))
|
||||||
|
(= begin (org-element-property :contents-begin parent)))
|
||||||
(funcall reach (org-element-property :begin parent)))
|
(funcall reach (org-element-property :begin parent)))
|
||||||
;; Since we have to move anyway, find the beginning
|
;; Since we have to move anyway, find the beginning
|
||||||
;; position of the element above.
|
;; position of the element above.
|
||||||
|
|
Loading…
Reference in New Issue