bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-mode must inhibit ro because special-mode already is, i think

Browse source
This commit is contained in:
bth 2026-06-07 00:05:11 -07:00
commit 1b7b8f1c70
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
um.el
View file

@ -456,13 +456,14 @@ Optional TAGS string may contain more than one tag separated by a comma.
\\{um-mode-map} \\{um-mode-map}
" "
;; restrict movement to (bolp) with cursor-intangible-mode ;; restrict movement to (bolp) with cursor-intangible-mode
(let ((inhibit-read-only t))
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (while (not (eobp))
;; NOTE: actually the newline is the only position not included, but this ;; NOTE: actually the newline is the only position not included, but this
;; positions the cursor visually at the bol: ;; positions the cursor visually at the bol:
(put-text-property (pos-bol) (pos-eol) 'cursor-intangible t) (put-text-property (pos-bol) (pos-eol) 'cursor-intangible t)
(forward-line 1))) (forward-line 1))))
(cursor-intangible-mode) (cursor-intangible-mode)
(read-only-mode)) (read-only-mode))