um--reset-cursor-intangible-property : remove faces

This commit is contained in:
bth 2026-07-06 12:17:57 -07:00
commit 3dcf437d3e

6
um.el
View file

@ -566,7 +566,11 @@ A negative prefix argument moves it backward.
(defun um--reset-cursor-intangible-property () (defun um--reset-cursor-intangible-property ()
(let ((modified (buffer-modified-p))) (let ((modified (buffer-modified-p)))
;; NOTE: remove all first, because otherwise we might miss a newline: ;; NOTE: remove all first, because otherwise we might miss a newline:
(remove-text-properties (point-min) (point-max) '(cursor-intangible t)) (remove-text-properties (point-min) (point-max)
'(
cursor-intangible t
;; NOTE: no faces in yanked text:
face nil))
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (while (not (eobp))