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

Use highlight for current items.

Browse source 
* lisp/mpc.el (mpc-select-make-overlay, mpc-tagbrowser-all-select):
Apply highlight face instead of region face.
This commit is contained in:
Mark Oteiza 2015-10-12 16:46:29 -04:00
parent 0f4efd1220
commit e57a0c3d38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mpc.el
View file

@ -1263,7 +1263,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
(let ((ol (make-overlay
(line-beginning-position) (line-beginning-position 2))))
(overlay-put ol 'mpc-select t)
(overlay-put ol 'face 'region)
(overlay-put ol 'face 'highlight)
(overlay-put ol 'evaporate t)
(push ol mpc-select)))
@ -1562,7 +1562,7 @@ when constructing the set of constraints."
(move-overlay mpc-tagbrowser-all-ol
(point) (line-beginning-position 2))
(let ((ol (make-overlay (point) (line-beginning-position 2))))
(overlay-put ol 'face 'region)
(overlay-put ol 'face 'highlight)
(overlay-put ol 'evaporate t)
(setq-local mpc-tagbrowser-all-ol ol))))))