emacs-emojify

commit b0bb1ff871d5f02c5dc6137d1d18a729f51f75b4
parent 8448877ad3f3a2129e3331af929a9ba576de92fc
Author: Iqbal Ansari <iqbal.ansari@ignitesol.com>
Date:   Mon, 30 Nov 2015 19:28:43 +0530

Revert "Remove special case for selection highlighting"

This reverts commit a3c45cf507e4bef5698df4d72d8fb8803b633072.

Diffstat:
M
emojify.el
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/emojify.el b/emojify.el
@@ -595,6 +595,11 @@ and end of region respectively."
         (and (<= emojify-region-beg end)
              (<= end emojify-region-end)))))
 
+(defun emojify--region-face (beg end)
+  (when (or (emojify--inside-non-rectangle-selection-p beg end)
+            (emojify--inside-rectangle-selection-p beg end))
+    (face-background 'region)))
+
 (defun emojify--overlay-face (beg)
   (let* ((overlays-with-face (seq-filter (lambda (overlay)
                                            (and (overlay-get overlay 'face)
@@ -605,7 +610,8 @@ and end of region respectively."
 
 (defun emojify--get-image-background (beg end)
   "Get the color to be used as background for emoji between BEG and END."
-  (or (emojify--overlay-face beg)
+  (or (emojify--region-face beg end)
+      (emojify--overlay-face beg)
       (face-background 'default)))
 
 (defun emojify--get-image-display (data beg end)