diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-14 12:56:11 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-14 12:56:11 -0500 |
| commit | 572eed83fcce65c3f81cbbfd777f5020bed1d81a (patch) | |
| tree | 6c46d00b12ffb21d71e81cddb66aa2922dd980fa /src/lread.c | |
| parent | d75ba220e0a5a4ed26d086c305bc4ea4e4647e5d (diff) | |
| download | emacs-572eed83fcce65c3f81cbbfd777f5020bed1d81a.tar.gz emacs-572eed83fcce65c3f81cbbfd777f5020bed1d81a.tar.bz2 emacs-572eed83fcce65c3f81cbbfd777f5020bed1d81a.zip | |
* src/lread.c (read_escape): Fix handling of ?\C-<char> for chars 128-255
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 3052bcbd063..2e63ec48912 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2709,7 +2709,7 @@ read_escape (Lisp_Object readcharfun, bool stringp) c = read_escape (readcharfun, 0); if ((c & ~CHAR_MODIFIER_MASK) == '?') return 0177 | (c & CHAR_MODIFIER_MASK); - else if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_MODIFIER_MASK))) + else if (! ASCII_CHAR_P ((c & ~CHAR_MODIFIER_MASK))) return c | ctrl_modifier; /* ASCII control chars are made from letters (both cases), as well as the non-letters within 0100...0137. */ |