diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-23 06:20:41 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-23 06:20:41 +0200 |
| commit | fbbc257190d115dc76e1a8cf4e4992d52d7f55b9 (patch) | |
| tree | 4117327c4dbe9dab741175f929066718ef51584d /src/lread.c | |
| parent | e7d3ddf689300bdcccbd1762cf3387ceb17505a1 (diff) | |
| download | emacs-fbbc257190d115dc76e1a8cf4e4992d52d7f55b9.tar.gz emacs-fbbc257190d115dc76e1a8cf4e4992d52d7f55b9.tar.bz2 emacs-fbbc257190d115dc76e1a8cf4e4992d52d7f55b9.zip | |
Give a better error message when reading invalid "\unicode" escapes.
* src/lread.c (read_escape): Give a clearer error message on
Unicode escape sequences (bug#36988).
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index e444830c99a..6ae7a0d8ba0 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2585,7 +2585,8 @@ read_escape (Lisp_Object readcharfun, bool stringp) want. */ int digit = char_hexdigit (c); if (digit < 0) - error ("Non-hex digit used for Unicode escape"); + error ("Non-hex character used for Unicode escape: %c (%d)", + c, c); i = (i << 4) + digit; } if (i > 0x10FFFF) |