diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-10-12 16:20:47 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-10-12 16:20:47 +0300 |
| commit | 66b8dfd0602c2175a0296ce6a844d77c94813429 (patch) | |
| tree | e970782d9697beba52de50adc214d0c24942422a /src/lread.c | |
| parent | 3832b983cfbb7163616041e68f5f46d094137e79 (diff) | |
| download | emacs-66b8dfd0602c2175a0296ce6a844d77c94813429.tar.gz emacs-66b8dfd0602c2175a0296ce6a844d77c94813429.tar.bz2 emacs-66b8dfd0602c2175a0296ce6a844d77c94813429.zip | |
; Fix last change related to shorthands
* src/lread.c (read1): Minor stylistic fixes of the last change,
including the wording of the comment.
* doc/lispref/symbols.texi (Shorthands): Fix wording and typos.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/lread.c b/src/lread.c index 128b46aefef..b3f9e6ff527 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3805,12 +3805,13 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) ptrdiff_t longhand_bytes = 0; Lisp_Object tem; - if (skip_shorthand || + if (skip_shorthand /* The following ASCII characters are used in the - only "core" Emacs Lisp symbols that are - exclusively comprised of 'symbol constituent' - syntax. */ - strspn(read_buffer, "^*+-/<=>_|") >= nbytes) + only "core" Emacs Lisp symbols that are comprised + entirely of characters that have the 'symbol + constituent' syntax. We exempt them from + transforming according to shorthands. */ + || strspn (read_buffer, "^*+-/<=>_|") >= nbytes) tem = oblookup (obarray, read_buffer, nchars, nbytes); else tem = oblookup_considering_shorthand (obarray, read_buffer, |