diff options
| author | Noam Postavsky | 2018-03-10 18:20:45 -0500 |
|---|---|---|
| committer | Noam Postavsky | 2019-11-28 18:03:42 -0500 |
| commit | 85f586f3ce5c6d9598d345440fd57e0fc9b8d98b (patch) | |
| tree | 10723ac9f3d20dc4a4bb045b1e58c02234a9c9e5 /src/lread.c | |
| parent | 98f8c5fb07dcb4e20b8ba6648bdabf5c0d3b5145 (diff) | |
| download | emacs-85f586f3ce5c6d9598d345440fd57e0fc9b8d98b.tar.gz emacs-85f586f3ce5c6d9598d345440fd57e0fc9b8d98b.zip | |
Stop signaling an error when reading "smart quotes" in symbols
Revert commits from 2018-01-28 "Fix round tripping of read->print for
symbols with strange quotes", and 2017-07-22 "Signal error for symbol
names with strange quotes (Bug#2967)".
* etc/NEWS: Remove corresponding entries.
* src/character.c (confusable_symbol_character_p):
* test/src/lread-tests.el (lread-tests--old-style-backquotes): Remove.
* src/lread.c (read1): Don't signal error on confusable character.
* src/print.c (print_object): Don't escape confusable characters.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/lread.c b/src/lread.c index 4ea62029727..e5a9c93c55e 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3571,13 +3571,6 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 3571 | if (! NILP (result) && len == nbytes) | 3571 | if (! NILP (result) && len == nbytes) |
| 3572 | return unbind_to (count, result); | 3572 | return unbind_to (count, result); |
| 3573 | } | 3573 | } |
| 3574 | if (!quoted && multibyte) | ||
| 3575 | { | ||
| 3576 | int ch = STRING_CHAR ((unsigned char *) read_buffer); | ||
| 3577 | if (confusable_symbol_character_p (ch)) | ||
| 3578 | xsignal2 (Qinvalid_read_syntax, build_string ("strange quote"), | ||
| 3579 | CALLN (Fstring, make_fixnum (ch))); | ||
| 3580 | } | ||
| 3581 | { | 3574 | { |
| 3582 | Lisp_Object result; | 3575 | Lisp_Object result; |
| 3583 | ptrdiff_t nchars | 3576 | ptrdiff_t nchars |