mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

; Fix last change related to shorthands

Browse Source 
* 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.
This commit is contained in:
Eli Zaretskii 2021-10-12 16:20:47 +03:00
parent 3832b983cf
commit 66b8dfd060
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
doc/lispref/symbols.texi
View File

@ -742,13 +742,12 @@ There are two exceptions to rules governing Shorthand transformations:
@itemize @bullet
@item
Symbol forms comprised entirely of symbol constituents (@pxref{Syntax
Class Table}) are exempt not transform. For example, it's possible to
use @code{-} or @code{/=} as shorthand prefixes, but that won't shadow
the arithmetic @emph{functions} that have exactly that prefix as their
full name.;
Symbol forms comprised entirely of symbol and punctuation characters
(@pxref{Syntax Class Table}) are not transformed. For example,
it's possible to use @code{-} or @code{/=} as shorthand prefixes, but
that won't shadow the arithmetic @emph{functions} of those names.
@item
Symbol forms whose name starts with the the characters @code{#_} are
also exempted.
Symbol forms whose names start with @samp{#} or @samp{_} are not
transformed.
@end itemize

11
src/lread.c
View File

@ -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,