diff options
| author | Lars Ingebrigtsen | 2022-08-04 07:23:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-08-04 07:23:59 +0200 |
| commit | c2bddf8fe77aab1a178a5617783dd9aab68d5a76 (patch) | |
| tree | 1d965a3f5cc0070d576bc330ef9ca782f694ad75 /src/lread.c | |
| parent | 40c11327118a6023745dbcbdca0564cbc6ba15da (diff) | |
| download | emacs-c2bddf8fe77aab1a178a5617783dd9aab68d5a76.tar.gz emacs-c2bddf8fe77aab1a178a5617783dd9aab68d5a76.zip | |
Remove read_string_literal purify doc string hack
* src/lread.c (read_string_literal): Since we're now
byte-compiling the loaddefs files (so doc strings come from the
.elc files), remove the hack that make this return 0 when the
string starts with "\\n".
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/lread.c b/src/lread.c index 0b46a2e4ee5..b7d8d9eeca5 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3056,7 +3056,6 @@ read_string_literal (char stackbuf[VLA_ELEMS (stackbufsize)], | |||
| 3056 | /* True if we saw an escape sequence specifying | 3056 | /* True if we saw an escape sequence specifying |
| 3057 | a single-byte character. */ | 3057 | a single-byte character. */ |
| 3058 | bool force_singlebyte = false; | 3058 | bool force_singlebyte = false; |
| 3059 | bool cancel = false; | ||
| 3060 | ptrdiff_t nchars = 0; | 3059 | ptrdiff_t nchars = 0; |
| 3061 | 3060 | ||
| 3062 | int ch; | 3061 | int ch; |
| @@ -3085,8 +3084,6 @@ read_string_literal (char stackbuf[VLA_ELEMS (stackbufsize)], | |||
| 3085 | case ' ': | 3084 | case ' ': |
| 3086 | case '\n': | 3085 | case '\n': |
| 3087 | /* `\SPC' and `\LF' generate no characters at all. */ | 3086 | /* `\SPC' and `\LF' generate no characters at all. */ |
| 3088 | if (p == read_buffer) | ||
| 3089 | cancel = true; | ||
| 3090 | continue; | 3087 | continue; |
| 3091 | default: | 3088 | default: |
| 3092 | UNREAD (ch); | 3089 | UNREAD (ch); |
| @@ -3152,15 +3149,6 @@ read_string_literal (char stackbuf[VLA_ELEMS (stackbufsize)], | |||
| 3152 | if (ch < 0) | 3149 | if (ch < 0) |
| 3153 | end_of_file_error (); | 3150 | end_of_file_error (); |
| 3154 | 3151 | ||
| 3155 | /* If purifying, and string starts with \ newline, | ||
| 3156 | return zero instead. This is for doc strings | ||
| 3157 | that we are really going to find in etc/DOC.nn.nn. */ | ||
| 3158 | if (!NILP (Vpurify_flag) && NILP (Vdoc_file_name) && cancel) | ||
| 3159 | { | ||
| 3160 | unbind_to (count, Qnil); | ||
| 3161 | return make_fixnum (0); | ||
| 3162 | } | ||
| 3163 | |||
| 3164 | if (!force_multibyte && force_singlebyte) | 3152 | if (!force_multibyte && force_singlebyte) |
| 3165 | { | 3153 | { |
| 3166 | /* READ_BUFFER contains raw 8-bit bytes and no multibyte | 3154 | /* READ_BUFFER contains raw 8-bit bytes and no multibyte |