คำถามติดแท็ก insert

ฉันมีใบหน้าสร้างด้วยวิธีนี้: (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 …

15 faces  insert