diff options
| author | Mark Oteiza | 2015-10-12 16:46:29 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2015-10-12 16:50:11 -0400 |
| commit | e57a0c3d38b3e2bdd408a7e02b7308fa281f3073 (patch) | |
| tree | 9120d42b5340b53f9d168ac47c0aa0c43fa70108 | |
| parent | 0f4efd12209607b54371868141064c12b7f021e9 (diff) | |
| download | emacs-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.el | 4 |
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 | ||