emacs-emojify

commit 74c97a656c7ad515ed244c77c370742c22c83a08
parent 033e3b2fa171d73b932ecf27df237be2fd6e1c36
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Mon, 12 Jun 2017 13:12:35 +0530

Do not switch to after-string based display of company tooltip unless needed

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

1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/emojify.el b/emojify.el
@@ -2038,8 +2038,13 @@ displayed."
            (disp (or (overlay-get ov 'display)
                      (overlay-get ov 'after-string)))
            (emojified-display (when disp
-                                (emojify-string disp))))
-      (when disp
+                                (emojify-string disp)))
+           (emojified-p (when emojified-display
+                          (text-property-any 0 (1- (length emojified-display))
+                                             'emojified t
+                                             emojified-display))))
+      ;; Do not switch to after-string if menu is not emojified
+      (when (and disp emojified-p)
         (overlay-put ov 'after-string nil)
         (overlay-put ov 'display (propertize " " 'invisible t))
         (overlay-put ov 'after-string emojified-display)))))