Browse Source

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
Ihor Radchenko 3 years ago
parent
commit
064afa0c01
1 changed files with 7 additions and 1 deletions
  1. 7 1
      lisp/org-indent.el

+ 7 - 1
lisp/org-indent.el

@@ -409,7 +409,13 @@ This function is meant to be called by `after-change-functions'."
 		 (goto-char beg)
 		 (goto-char beg)
 		 (beginning-of-line)
 		 (beginning-of-line)
 		 (re-search-forward
 		 (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
 	   (let ((end (save-excursion
 			(goto-char end)
 			(goto-char end)
 			(org-with-limited-levels (outline-next-heading))
 			(org-with-limited-levels (outline-next-heading))