|
@@ -11828,7 +11828,6 @@ be removed."
|
|
|
(setq list (cons what remove))
|
|
|
(while list
|
|
|
(setq elt (pop list))
|
|
|
- (goto-char (point-min))
|
|
|
(when (or (and (eq elt 'scheduled)
|
|
|
(re-search-forward org-scheduled-time-regexp nil t))
|
|
|
(and (eq elt 'deadline)
|
|
@@ -11836,10 +11835,8 @@ be removed."
|
|
|
(and (eq elt 'closed)
|
|
|
(re-search-forward org-closed-time-regexp nil t)))
|
|
|
(replace-match "")
|
|
|
- (if (looking-at "--+<[^>]+>") (replace-match ""))
|
|
|
- (skip-chars-backward " ")
|
|
|
- (if (looking-at " +") (replace-match ""))))
|
|
|
- (goto-char (point-max))
|
|
|
+ (if (looking-at "--+<[^>]+>") (replace-match ""))))
|
|
|
+ (and (looking-at "^[ \t]+") (replace-match ""))
|
|
|
(and org-adapt-indentation (bolp) (org-indent-to-column col))
|
|
|
(when what
|
|
|
(insert
|