emacs-emojify

commit 70251b406c28aaa8a2ee32a1b7d48494ff98e2a8
parent 133ced9537e3c1081d37ef707995bf1700b4e480
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Wed, 11 Nov 2015 17:54:03 +0530

Generalize check for image support

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

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/emojify.el b/emojify.el
@@ -455,14 +455,15 @@ mark the start and end of region containing the text."
 
 (defun emojify--get-image-display (data)
   "Get the display text property to display the emoji specified in DATA as an image."
-  (let ((image-file (expand-file-name (ht-get data "image")
-                                      emojify-image-dir)))
+  (let* ((image-file (expand-file-name (ht-get data "image")
+                                       emojify-image-dir))
+         (image-type (intern (upcase (file-name-extension image-file)))))
     (when (file-exists-p image-file)
       (create-image image-file
                     ;; use imagemagick if available and supports PNG images
                     ;; (allows resizing images)
                     (when (and (fboundp 'imagemagick-types)
-                               (memq 'PNG (imagemagick-types)))
+                               (memq image-type (imagemagick-types)))
                       'imagemagick)
                     nil
                     :ascent 'center