diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-04 07:23:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-04 07:23:59 +0200 |
| commit | c2bddf8fe77aab1a178a5617783dd9aab68d5a76 (patch) | |
| tree | 1d965a3f5cc0070d576bc330ef9ca782f694ad75 /src/lread.c | |
| parent | 40c11327118a6023745dbcbdca0564cbc6ba15da (diff) | |
| download | emacs-c2bddf8fe77aab1a178a5617783dd9aab68d5a76.tar.gz | |
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)], /* True if we saw an escape sequence specifying a single-byte character. */ bool force_singlebyte = false; - bool cancel = false; ptrdiff_t nchars = 0; int ch; @@ -3085,8 +3084,6 @@ read_string_literal (char stackbuf[VLA_ELEMS (stackbufsize)], case ' ': case '\n': /* `\SPC' and `\LF' generate no characters at all. */ - if (p == read_buffer) - cancel = true; continue; default: UNREAD (ch); @@ -3152,15 +3149,6 @@ read_string_literal (char stackbuf[VLA_ELEMS (stackbufsize)], if (ch < 0) end_of_file_error (); - /* If purifying, and string starts with \ newline, - return zero instead. This is for doc strings - that we are really going to find in etc/DOC.nn.nn. */ - if (!NILP (Vpurify_flag) && NILP (Vdoc_file_name) && cancel) - { - unbind_to (count, Qnil); - return make_fixnum (0); - } - if (!force_multibyte && force_singlebyte) { /* READ_BUFFER contains raw 8-bit bytes and no multibyte |