From 0e3fca4634152f3fb3090121e435cbcc79555e5c Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Sun, 18 Sep 2022 16:19:02 +1200 Subject: [PATCH] Ignore errors when attempting to delete region in org-format --- lisp/org-format.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-format.el b/lisp/org-format.el index 55c846b..448248a 100644 --- a/lisp/org-format.el +++ b/lisp/org-format.el @@ -67,8 +67,9 @@ Only applies to level-1 headings in the document." (forward-char -1) (let ((start (point))) (when (search-backward-regexp (rx (not (any space "\n")))) - (forward-char 1) - (delete-region (point) start))) + (ignore-errors + (forward-char 1) + (delete-region (point) start)))) (insert (make-string n ?\n))))) (defun org-format--in-archived-heading-p ()