]> code.delx.au - gnu-emacs/commitdiff
Use highlight for current items.
authorMark Oteiza <mvoteiza@udel.edu>
Mon, 12 Oct 2015 20:46:29 +0000 (16:46 -0400)
committerMark Oteiza <mvoteiza@udel.edu>
Mon, 12 Oct 2015 20:50:11 +0000 (16:50 -0400)
* lisp/mpc.el (mpc-select-make-overlay, mpc-tagbrowser-all-select):
Apply highlight face instead of region face.

lisp/mpc.el

index 6e69b6fa9d04d7460e770c642dca461560f17bc1..a5fc376eaea07ddf5e5ec9fdeff56c6626946da4 100644 (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))))))