aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2015-10-12 16:46:29 -0400
committerMark Oteiza2015-10-12 16:50:11 -0400
commite57a0c3d38b3e2bdd408a7e02b7308fa281f3073 (patch)
tree9120d42b5340b53f9d168ac47c0aa0c43fa70108
parent0f4efd12209607b54371868141064c12b7f021e9 (diff)
downloademacs-e57a0c3d38b3e2bdd408a7e02b7308fa281f3073.tar.gz
emacs-e57a0c3d38b3e2bdd408a7e02b7308fa281f3073.zip
Use highlight for current items.
* lisp/mpc.el (mpc-select-make-overlay, mpc-tagbrowser-all-select): Apply highlight face instead of region face.
-rw-r--r--lisp/mpc.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 6e69b6fa9d0..a5fc376eaea 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1263,7 +1263,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
1263 (let ((ol (make-overlay 1263 (let ((ol (make-overlay
1264 (line-beginning-position) (line-beginning-position 2)))) 1264 (line-beginning-position) (line-beginning-position 2))))
1265 (overlay-put ol 'mpc-select t) 1265 (overlay-put ol 'mpc-select t)
1266 (overlay-put ol 'face 'region) 1266 (overlay-put ol 'face 'highlight)
1267 (overlay-put ol 'evaporate t) 1267 (overlay-put ol 'evaporate t)
1268 (push ol mpc-select))) 1268 (push ol mpc-select)))
1269 1269
@@ -1562,7 +1562,7 @@ when constructing the set of constraints."
1562 (move-overlay mpc-tagbrowser-all-ol 1562 (move-overlay mpc-tagbrowser-all-ol
1563 (point) (line-beginning-position 2)) 1563 (point) (line-beginning-position 2))
1564 (let ((ol (make-overlay (point) (line-beginning-position 2)))) 1564 (let ((ol (make-overlay (point) (line-beginning-position 2))))
1565 (overlay-put ol 'face 'region) 1565 (overlay-put ol 'face 'highlight)
1566 (overlay-put ol 'evaporate t) 1566 (overlay-put ol 'evaporate t)
1567 (setq-local mpc-tagbrowser-all-ol ol)))))) 1567 (setq-local mpc-tagbrowser-all-ol ol))))))
1568 1568