my-org-fix-newlines - move past property drawers

2022-05-30 04:07:34 +05:30 · 2022-05-30 04:07:34 +05:30 · 2a62bc002a
parent 4e4f5007e9
commit 2a62bc002a
1 changed files with 2 additions and 0 deletions
--- a/init.org
+++ b/init.org
@ -4405,6 +4405,8 @@ preceded by another heading) and after headings."
         (insert "\n")))
     (save-excursion
       (forward-line)
+       (while (org-at-drawer-p)
+         (forward-line))
       (goto-char (point-at-bol))
       (when (looking-at-p "^$")
         (join-line))))))