|
@@ -6585,6 +6585,15 @@ that range. See `after-change-functions' for more information."
|
|
|
(when (not (eq org-element--cache-change-tic (buffer-chars-modified-tick)))
|
|
|
(org-element--cache-log-message "After change")
|
|
|
(setq org-element--cache-change-warning (org-element--cache-before-change beg end))
|
|
|
+ ;; If beg is right after spaces in front of an element, we
|
|
|
+ ;; risk affecting previous element, so move beg to bol, making
|
|
|
+ ;; sure that we capture preceding element.
|
|
|
+ (setq beg (save-excursion
|
|
|
+ (goto-char beg)
|
|
|
+ (skip-chars-backward " \t")
|
|
|
+ (if (not (bolp)) beg
|
|
|
+ (cl-incf pre (- beg (point)))
|
|
|
+ (point))))
|
|
|
;; Store synchronization request.
|
|
|
(let ((offset (- end beg pre)))
|
|
|
(save-match-data
|