In display-buffer-record-window record selected window if necessary.

[gnu-emacs] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index 050e43e2d08ab61cdbb2647679edc3e818a161d4..fa9a63e63a9fc279c9180848b03025c330b75ea2 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3778,8 +3778,11 @@ intern_1 (const char *str, ptrdiff_t len)
   Lisp_Object obarray = check_obarray (Vobarray);
   Lisp_Object tem = oblookup (obarray, str, len, len);
 
-  return SYMBOLP (tem) ? tem : intern_driver (make_string (str, len),
-                                             obarray, tem);
+  return (SYMBOLP (tem) ? tem
+         /* The above `oblookup' was done on the basis of nchars==nbytes, so
+            the string has to be unibyte.  */
+         : intern_driver (make_unibyte_string (str, len),
+                          obarray, tem));
 }
 
 Lisp_Object