From 35d93637955291ae164e706c89c9b627dd489ea4 Mon Sep 17 00:00:00 2001 From: Chang Xiaoduan Date: Wed, 17 Jun 2026 21:39:41 +0800 Subject: [PATCH] Fold EOL if region ends upon it --- occult.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/occult.el b/occult.el index 67d8ea2..f1c7966 100644 --- a/occult.el +++ b/occult.el @@ -420,6 +420,12 @@ are created and deactivates when the last fold is removed." (null (occult--overlays-in (point-min) (point-max)))) (occult--mode -1))) +(defun occult--determine-end () + (let ((end (region-end))) + (if (= end (pos-eol)) + (+ 1 end) + end))) + ;;; Public commands ;;;###autoload @@ -449,7 +455,8 @@ reactivate the region at the fold's original boundaries. Otherwise, do nothing." (interactive) (if (use-region-p) - (occult-hide-region (region-beginning) (region-end)) + (occult-hide-region (region-beginning) + (occult--determine-end)) (if-let ((ov (occult--overlay-at-point))) (let ((beg (overlay-start ov)) (end (overlay-end ov)))