Comment insérer du texte avec un visage spécifique?

J'ai un visage, créé de cette façon: (defface test-face '((t . (:height 2.0))) "A face for testing.") Je voudrais insérer du texte avec ce visage. Mais ces façons insèrent le texte sans le visage: (insert (propertize "text to insert" 'face 'test-face)) (let ((current-string "text to insert"))...