* lisp.h (STRING_COPYIN): Remove; unused.

[bpt/emacs.git] / src / font.c

diff --git a/src/font.c b/src/font.c
index 6113e1c..9e472fb 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -279,10 +279,8 @@ font_intern_prop (const char *str, ptrdiff_t len, bool force_symbol)
 
   if (SYMBOLP (tem))
     return tem;
-  if (len == nchars || len != nbytes)
-    tem = make_unibyte_string (str, len);
-  else
-    tem = make_multibyte_string (str, nchars, len);
+  tem = make_specified_string (str, nchars, len,
+                              len != nchars && len == nbytes);
   return Fintern (tem, obarray);
 }