1 files changed, 1 insertions, 1 deletions

diff --git a/src/font.c b/src/font.c
index 575975ced73..50b966ec83e 100644
--- a/src/font.c
+++ b/src/font.c
@@ -3346,7 +3346,7 @@ font_load_for_lface (struct frame *f, Lisp_Object *attrs, Lisp_Object spec)
           name = Ffont_get (spec, QCuser_spec);
           if (STRINGP (name))
             {
-              char *p = SDATA (name), *q = strrchr (p, '-');
+              char *p = SSDATA (name), *q = strrchr (p, '-');
 
               if (q != NULL && c_isdigit (q[1]))
                 {