Ensure that the pulse overlay is visible

* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Make
the pulse overlay have priority over the marked-region overlay
(bug#29173).
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 10:41:27 +02:00
parent fdf7349b1c
commit 13f7e07e7c

View file

@ -179,6 +179,9 @@ Optional argument FACE specifies the face to do the highlighting."
;; We don't support simultaneous highlightings.
(pulse-momentary-unhighlight)
(overlay-put o 'original-face (overlay-get o 'face))
;; Make this overlay take priority over the `transient-mark-mode'
;; overlay.
(overlay-put o 'priority 1)
(setq pulse-momentary-overlay o)
(if (eq pulse-flag 'never)
nil