aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorNoam Postavsky2018-03-10 18:20:45 -0500
committerNoam Postavsky2019-11-28 18:03:42 -0500
commit85f586f3ce5c6d9598d345440fd57e0fc9b8d98b (patch)
tree10723ac9f3d20dc4a4bb045b1e58c02234a9c9e5 /src/lread.c
parent98f8c5fb07dcb4e20b8ba6648bdabf5c0d3b5145 (diff)
downloademacs-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.c7
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