diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-01-28 10:23:18 -0500 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-01-28 10:49:51 -0500 |
| commit | 0510a78da5faaa40ebfdf59d0ac6107a72c1be1d (patch) | |
| tree | 1fd0abd958f1f31e200b5f2aac8fe97ceb88a2a2 /src/lread.c | |
| parent | 6415b2d40c13be2c5cd5f797718c391d1c4ce9e6 (diff) | |
| download | emacs-0510a78da5faaa40ebfdf59d0ac6107a72c1be1d.tar.gz emacs-0510a78da5faaa40ebfdf59d0ac6107a72c1be1d.tar.bz2 emacs-0510a78da5faaa40ebfdf59d0ac6107a72c1be1d.zip | |
Revert "Signal error for symbol names with strange quotes (Bug#2967)"
That commit did not make the corresponding change to printing, thus
breaking the (eq (read (prin1-to-string SYM)) SYM) invariant for those
symbols. It's too late in the release cycle to change printing
behavior, therefore revert the reader change.
Don't merge to master, the print function will be updated there (see
"Fix round tripping of read->print for symbols with strange quotes").
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/lread.c b/src/lread.c index 45d60647bee..3104c441ecf 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3479,24 +3479,6 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) if (! NILP (result)) return unbind_to (count, result); } - if (!quoted && multibyte) - { - int ch = STRING_CHAR ((unsigned char *) read_buffer); - switch (ch) - { - case 0x2018: /* LEFT SINGLE QUOTATION MARK */ - case 0x2019: /* RIGHT SINGLE QUOTATION MARK */ - case 0x201B: /* SINGLE HIGH-REVERSED-9 QUOTATION MARK */ - case 0x201C: /* LEFT DOUBLE QUOTATION MARK */ - case 0x201D: /* RIGHT DOUBLE QUOTATION MARK */ - case 0x201F: /* DOUBLE HIGH-REVERSED-9 QUOTATION MARK */ - case 0x301E: /* DOUBLE PRIME QUOTATION MARK */ - case 0xFF02: /* FULLWIDTH QUOTATION MARK */ - case 0xFF07: /* FULLWIDTH APOSTROPHE */ - xsignal2 (Qinvalid_read_syntax, build_string ("strange quote"), - CALLN (Fstring, make_number (ch))); - } - } { Lisp_Object result; ptrdiff_t nbytes = p - read_buffer; |