1
如何插入带有特定面孔的文字？
我有一张脸，是这样创建的： (defface test-face '((t . (:height 2.0))) "A face for testing.") 我想在那张脸上插入一些文字。但是这些方法可以插入没有表情的文本： (insert (propertize "text to insert" 'face 'test-face)) (let ((current-string "text to insert")) (put-text-property 1 (length current-string) 'face 'test-face) (insert current-string)) 甚至首先插入文本，然后再将其插入上面也不起作用： (progn (insert "text to insert") (add-text-properties (save-excursion (backward-word 3) (point)) (point) '(face test-face))) 问题不在于面部的清晰度，因为如果我要自定义它，它的高度已经是原来的两倍。即使这样，将脸部内衬也行不通： (insert (propertize "to …