summaryrefslogtreecommitdiff
path: root/lisp/mpc.el
diff options
context:
space:
mode:
authorMark Oteiza <mvoteiza@udel.edu>2015-10-12 16:46:29 -0400
committerMark Oteiza <mvoteiza@udel.edu>2015-10-12 16:50:11 -0400
commite57a0c3d38b3e2bdd408a7e02b7308fa281f3073 (patch)
tree9120d42b5340b53f9d168ac47c0aa0c43fa70108 /lisp/mpc.el
parent0f4efd12209607b54371868141064c12b7f021e9 (diff)
downloademacs-e57a0c3d38b3e2bdd408a7e02b7308fa281f3073.tar.gz
Use highlight for current items.
* lisp/mpc.el (mpc-select-make-overlay, mpc-tagbrowser-all-select): Apply highlight face instead of region face.
Diffstat (limited to 'lisp/mpc.el')
-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."
(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))))))