aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-08-04 07:23:59 +0200
committerLars Ingebrigtsen2022-08-04 07:23:59 +0200
commitc2bddf8fe77aab1a178a5617783dd9aab68d5a76 (patch)
tree1d965a3f5cc0070d576bc330ef9ca782f694ad75 /src/lread.c
parent40c11327118a6023745dbcbdca0564cbc6ba15da (diff)
downloademacs-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.c12
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