From 064afa0c0165af1f1e830d4e5b4ce4957beb949d Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Mon, 2 May 2022 11:56:15 +0800 Subject: [PATCH] org-indent: Fix edge case when edited region ends at headline leading stars * lisp/org-indent.el (org-indent-refresh-maybe): Extend affected region to the whole line after END. Fixes https://orgmode.org/list/t4lpos$l3p$1@ciao.gmane.io --- lisp/org-indent.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 08b4aacb28..01a53f7534 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -409,7 +409,13 @@ This function is meant to be called by `after-change-functions'." (goto-char beg) (beginning-of-line) (re-search-forward - (org-with-limited-levels org-outline-regexp-bol) end t))) + (org-with-limited-levels org-outline-regexp-bol) + (save-excursion + (goto-char end) + ;; Extend to headline if END is within its + ;; headline stars. + (line-end-position)) + t))) (let ((end (save-excursion (goto-char end) (org-with-limited-levels (outline-next-heading))