ORG-NEWS: Improve properties drawers repair function
This commit is contained in:
parent
5945beef05
commit
25a974a231
|
@ -45,7 +45,10 @@ Ignore non Org buffers."
|
|||
(when (and (< (point) end)
|
||||
(not (org-looking-at-p org-property-drawer-re))
|
||||
(save-excursion
|
||||
(re-search-forward org-property-drawer-re end t)))
|
||||
(and (re-search-forward org-property-drawer-re end t)
|
||||
(eq (org-element-type
|
||||
(save-match-data (org-element-at-point)))
|
||||
'drawer))))
|
||||
(insert (delete-and-extract-region
|
||||
(match-beginning 0)
|
||||
(min (1+ (match-end 0)) end)))
|
||||
|
|
Loading…
Reference in New Issue