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)
|
(when (and (< (point) end)
|
||||||
(not (org-looking-at-p org-property-drawer-re))
|
(not (org-looking-at-p org-property-drawer-re))
|
||||||
(save-excursion
|
(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
|
(insert (delete-and-extract-region
|
||||||
(match-beginning 0)
|
(match-beginning 0)
|
||||||
(min (1+ (match-end 0)) end)))
|
(min (1+ (match-end 0)) end)))
|
||||||
|
|
Loading…
Reference in New Issue