diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 7c0b0475786..8e6b6f65e25 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3113,7 +3113,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) | |||
| 3113 | if (uninterned_symbol && ! NILP (Vpurify_flag)) | 3113 | if (uninterned_symbol && ! NILP (Vpurify_flag)) |
| 3114 | name = make_pure_string (read_buffer, nchars, nbytes, multibyte); | 3114 | name = make_pure_string (read_buffer, nchars, nbytes, multibyte); |
| 3115 | else | 3115 | else |
| 3116 | name = make_specified_string (read_buffer, nchars, nbytes,multibyte); | 3116 | name = make_specified_string (read_buffer, nchars, nbytes, multibyte); |
| 3117 | result = (uninterned_symbol ? Fmake_symbol (name) | 3117 | result = (uninterned_symbol ? Fmake_symbol (name) |
| 3118 | : Fintern (name, Qnil)); | 3118 | : Fintern (name, Qnil)); |
| 3119 | 3119 | ||