my-org-fix-newlines - move past property drawers
This commit is contained in:
parent
4e4f5007e9
commit
2a62bc002a
2
init.org
2
init.org
|
@ -4405,6 +4405,8 @@ preceded by another heading) and after headings."
|
||||||
(insert "\n")))
|
(insert "\n")))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(forward-line)
|
(forward-line)
|
||||||
|
(while (org-at-drawer-p)
|
||||||
|
(forward-line))
|
||||||
(goto-char (point-at-bol))
|
(goto-char (point-at-bol))
|
||||||
(when (looking-at-p "^$")
|
(when (looking-at-p "^$")
|
||||||
(join-line))))))
|
(join-line))))))
|
||||||
|
|
Loading…
Reference in New Issue