Fix Emoji zooming commands

* lisp/international/emoji.el (emoji-zoom-increase): Handle the
case where face property at point is a list of faces.  (Bug#65994)

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index 04854ede6be377129a6109ef5ad501074fc310bd..8a34be91d10e82260b5f4db8c922013850419871 100644 (file)
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -726,10 +726,14 @@ FACTOR is the multiplication factor for the size."
             (add-text-properties
              (point) (1+ (point))
              (list 'face
-                   (if (eq (car old) :height)
-                       (plist-put (copy-sequence old) :height newheight)
+                   (cond
+                    ((eq (car old) :height)
+                     (plist-put (copy-sequence old) :height newheight))
+                    ((plistp (car old))
                      (cons (plist-put (car old) :height newheight)
                            (cdr old)))
+                    (t
+                     (append (list (list :height newheight)) old)))
                    'rear-nonsticky t))
           (add-face-text-property (point) (1+ (point))
                                   (list :height newheight))