mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 19:30:38 -08:00
Code Issues Projects Releases Wiki Activity

; * src/lread.c (read0, skip_lazy_string): Fix commentary again.

Browse source
This commit is contained in:
Eli Zaretskii 2023-05-26 15:11:35 +03:00
parent aa5158630e
commit 95ee5477e1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lread.c
View file

@ -3401,7 +3401,7 @@ read_bool_vector (Lisp_Object readcharfun)
/* Skip (and optionally remember) a lazily-loaded string /* Skip (and optionally remember) a lazily-loaded string
preceded by "#@". Return true if this was a normal skip, preceded by "#@". Return true if this was a normal skip,
false if we read #@00 (which skips to EOB). */ false if we read #@00 (which skips to EOB/EOF). */
static bool static bool
skip_lazy_string (Lisp_Object readcharfun) skip_lazy_string (Lisp_Object readcharfun)
{ {
@ -3938,7 +3938,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
and function definitions that can be loaded lazily. */ and function definitions that can be loaded lazily. */
if (skip_lazy_string (readcharfun)) if (skip_lazy_string (readcharfun))
goto read_obj; goto read_obj;
obj = Qnil; /* #@00 skips to EOB and yields nil. */ obj = Qnil; /* #@00 skips to EOB/EOF and yields nil. */
break; break;
case '$': case '$':