diff options
| author | Joakim Verona | 2012-01-09 11:26:23 +0100 |
|---|---|---|
| committer | Joakim Verona | 2012-01-09 11:26:23 +0100 |
| commit | e4f761f1e3df7fbc7793c73c5d808b8da0b3a700 (patch) | |
| tree | 4bdf869626ac37c6a5a1fd5764a9c8481136d805 /src/lread.c | |
| parent | 2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f (diff) | |
| parent | 7655cb66d86564e792b825f1a0e1a4de7d6e6db5 (diff) | |
| download | emacs-e4f761f1e3df7fbc7793c73c5d808b8da0b3a700.tar.gz emacs-e4f761f1e3df7fbc7793c73c5d808b8da0b3a700.zip | |
upstream
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 7c0b0475786..7b5fc91e991 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Lisp parsing and input streams. | 1 | /* Lisp parsing and input streams. |
| 2 | 2 | ||
| 3 | Copyright (C) 1985-1989, 1993-1995, 1997-2011 Free Software Foundation, Inc. | 3 | Copyright (C) 1985-1989, 1993-1995, 1997-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -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 | ||