[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-27 cb1e309: Have pulse.el preserve existing overlay priorities
From: |
João Távora |
Subject: |
emacs-27 cb1e309: Have pulse.el preserve existing overlay priorities |
Date: |
Wed, 4 Mar 2020 17:34:00 -0500 (EST) |
branch: emacs-27
commit cb1e30910ea7972ea82e28545782c75496d7b6d3
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Have pulse.el preserve existing overlay priorities
Fixes: bug#39821
* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Save
overlay priority.
(pulse-momentary-unhighlight): Restore.
---
lisp/cedet/pulse.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index 5713a7b..16243e1 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -181,6 +181,7 @@ Optional argument FACE specifies the face to do the
highlighting."
(overlay-put o 'original-face (overlay-get o 'face))
;; Make this overlay take priority over the `transient-mark-mode'
;; overlay.
+ (overlay-put o 'original-priority (overlay-get o 'priority))
(overlay-put o 'priority 1)
(setq pulse-momentary-overlay o)
(if (eq pulse-flag 'never)
@@ -214,6 +215,7 @@ Optional argument FACE specifies the face to do the
highlighting."
(let ((ol pulse-momentary-overlay))
(overlay-put ol 'face (overlay-get ol 'original-face))
(overlay-put ol 'original-face nil)
+ (overlay-put ol 'priority (overlay-get ol 'original-priority))
;; Clear the overlay if it needs deleting.
(when (overlay-get ol 'pulse-delete) (delete-overlay ol)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 cb1e309: Have pulse.el preserve existing overlay priorities,
João Távora <=