procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Have pulse.el preserve existing overlay priorities

Browse source 
Fixes: bug#39821

* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Save
overlay priority.
(pulse-momentary-unhighlight): Restore.
This commit is contained in:
João Távora 2020-02-28 13:30:48 +00:00
parent a3c2d186eb
commit cb1e30910e
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/cedet/pulse.el
View file

@ -181,6 +181,7 @@ Optional argument FACE specifies the face to do the highlighting."
(overlay-put o 'original-face (overlay-get o 'face)) (overlay-put o 'original-face (overlay-get o 'face))
;; Make this overlay take priority over the `transient-mark-mode' ;; Make this overlay take priority over the `transient-mark-mode'
;; overlay. ;; overlay.
(overlay-put o 'original-priority (overlay-get o 'priority))
(overlay-put o 'priority 1) (overlay-put o 'priority 1)
(setq pulse-momentary-overlay o) (setq pulse-momentary-overlay o)
(if (eq pulse-flag 'never) (if (eq pulse-flag 'never)
@ -214,6 +215,7 @@ Optional argument FACE specifies the face to do the highlighting."
(let ((ol pulse-momentary-overlay)) (let ((ol pulse-momentary-overlay))
(overlay-put ol 'face (overlay-get ol 'original-face)) (overlay-put ol 'face (overlay-get ol 'original-face))
(overlay-put ol 'original-face nil) (overlay-put ol 'original-face nil)
(overlay-put ol 'priority (overlay-get ol 'original-priority))
;; Clear the overlay if it needs deleting. ;; Clear the overlay if it needs deleting.
(when (overlay-get ol 'pulse-delete) (delete-overlay ol))) (when (overlay-get ol 'pulse-delete) (delete-overlay ol)))