branch: elpa/magit
commit 63f7c6d02e607b21565b9e08dbe56fdf988928e5
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Track highlighting and selection overlays separately
That isn't actually necessary but is conceptually cleaner.
---
lisp/magit-mode.el | 1 +
lisp/magit-section.el | 27 +++++++++++++++++++++------
2 files changed, 22 insertions(+), 6 deletions(-)
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index b08c26fb32a..20d62b2bcee 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1094,6 +1094,7 @@ Run hooks `magit-pre-refresh-hook' and
`magit-post-refresh-hook'."
(deactivate-mark)
(setq magit-section-pre-command-section nil)
(setq magit-section-highlight-overlays nil)
+ (setq magit-section-selection-overlays nil)
(setq magit-section-highlighted-sections nil)
(setq magit-section-unhighlight-sections nil)
(let ((inhibit-read-only t))
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index ea98d612cfe..52306fcee99 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -306,6 +306,7 @@ no effect. This also has no effect for Emacs >= 28, where
(defvar-local magit-section-pre-command-section nil)
(defvar-local magit-section-highlight-force-update nil)
(defvar-local magit-section-highlight-overlays nil)
+(defvar-local magit-section-selection-overlays nil)
(defvar-local magit-section-highlighted-sections nil)
(defvar-local magit-section-unhighlight-sections nil)
(defvar-local magit-section-focused-sections nil)
@@ -1712,15 +1713,18 @@ evaluated its BODY. Admittedly that's a bit of a hack."
(defun magit-section-update-highlight (&optional force)
(let ((section (magit-current-section)))
- (when (or force
- magit-section-highlight-force-update
- (xor magit-section-pre-command-region-p (region-active-p))
- (not (eq magit-section-pre-command-section section)))
+ (cond
+ ((or force
+ magit-section-highlight-force-update
+ (xor magit-section-pre-command-region-p (region-active-p))
+ (not (eq magit-section-pre-command-section section)))
(let ((inhibit-read-only t)
(deactivate-mark nil)
(selection (magit-region-sections)))
(mapc #'delete-overlay magit-section-highlight-overlays)
+ (mapc #'delete-overlay magit-section-selection-overlays)
(setq magit-section-highlight-overlays nil)
+ (setq magit-section-selection-overlays nil)
(setq magit-section-unhighlight-sections
magit-section-highlighted-sections)
(setq magit-section-highlighted-sections nil)
@@ -1733,6 +1737,12 @@ evaluated its BODY. Admittedly that's a bit of a hack."
(run-hook-with-args-until-success
'magit-section-unhighlight-hook s selection))
(restore-buffer-modified-p nil)))
+ ((and (eq magit-section-pre-command-section section)
+ magit-section-selection-overlays
+ (region-active-p)
+ (not (magit-region-sections)))
+ (mapc #'delete-overlay magit-section-selection-overlays)
+ (setq magit-section-selection-overlays nil)))
(setq magit-section-highlight-force-update nil)
(magit-section-maybe-paint-visibility-ellipses)))
@@ -1775,8 +1785,13 @@ invisible."
(when selection
(dolist (sibling selection)
(with-slots (start content end heading-selection-face) sibling
- (magit-section-make-overlay start (or content end)
- 'magit-section-heading-selection)))
+ (let ((ov (make-overlay start (or content end) nil t)))
+ (overlay-put ov 'font-lock-face
+ (or heading-selection-face
+ 'magit-section-heading-selection))
+ (overlay-put ov 'evaporate t)
+ (push ov magit-section-selection-overlays)
+ ov)))
t))
(defun magit-section-make-overlay (start end face)
