procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
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 (add-text-properties
(point) (1+ (point)) (point) (1+ (point))
(list 'face (list 'face
(if (eq (car old) :height) (cond
(plist-put (copy-sequence old) :height newheight) ((eq (car old) :height)
(plist-put (copy-sequence old) :height newheight))
((plistp (car old))
(cons (plist-put (car old) :height newheight) (cons (plist-put (car old) :height newheight)
(cdr old))) (cdr old)))
(t
(append (list (list :height newheight)) old)))
'rear-nonsticky t)) 'rear-nonsticky t))
(add-face-text-property (point) (1+ (point)) (add-face-text-property (point) (1+ (point))
(list :height newheight)) (list :height newheight))