|
@@ -5107,8 +5107,8 @@ is signaled in this case."
|
|
|
(setq txt (buffer-substring beg end))
|
|
|
(org-save-markers-in-region beg end)
|
|
|
(delete-region beg end)
|
|
|
- (outline-flag-region (1- beg) beg nil)
|
|
|
- (outline-flag-region (1- (point)) (point) nil)
|
|
|
+ (or (= beg (point-min)) (outline-flag-region (1- beg) beg nil))
|
|
|
+ (or (bobp) (outline-flag-region (1- (point)) (point) nil))
|
|
|
(let ((bbb (point)))
|
|
|
(insert-before-markers txt)
|
|
|
(org-reinstall-markers-in-region bbb)
|