mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Fix Emoji zooming commands

Browse Source 
* lisp/international/emoji.el (emoji-zoom-increase): Handle the
case where face property at point is a list of faces.  (Bug#65994)
This commit is contained in:
Eli Zaretskii 2023-09-16 10:33:10 +03:00
parent 8970cdd009
commit 58fd212d8a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/emoji.el
View File

@ -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))