awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-09 12:57:22 -05:00
Code Issues Packages Projects Releases Wiki Activity

Ignore errors when attempting to delete region in org-format

Browse Source
This commit is contained in:
Chris Barrett
2022-09-18 16:19:02 +12:00
parent c15b175f5e
commit 0e3fca4634
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-format.el
View File

@ -67,8 +67,9 @@ Only applies to level-1 headings in the document."
(forward-char -1) (forward-char -1)
(let ((start (point))) (let ((start (point)))
(when (search-backward-regexp (rx (not (any space "\n")))) (when (search-backward-regexp (rx (not (any space "\n"))))
(forward-char 1) (ignore-errors
(delete-region (point) start))) (forward-char 1)
(delete-region (point) start))))
(insert (make-string n ?\n))))) (insert (make-string n ?\n)))))
(defun org-format--in-archived-heading-p () (defun org-format--in-archived-heading-p ()