aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2023-05-26 15:11:35 +0300
committerEli Zaretskii2023-05-26 15:11:35 +0300
commit95ee5477e1615e07e49e924deda6e5c01efc25f0 (patch)
tree9abdee45324d1ce29cc11d25885a48f69a00755e /src
parentaa5158630e7113a67ae804d4253911028cb8f984 (diff)
downloademacs-95ee5477e1615e07e49e924deda6e5c01efc25f0.tar.gz
emacs-95ee5477e1615e07e49e924deda6e5c01efc25f0.zip
; * src/lread.c (read0, skip_lazy_string): Fix commentary again.
Diffstat (limited to 'src')
-rw-r--r--src/lread.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c
index f8ee4e63e23..c9df72a7306 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3401,7 +3401,7 @@ read_bool_vector (Lisp_Object readcharfun)
3401 3401
3402/* Skip (and optionally remember) a lazily-loaded string 3402/* Skip (and optionally remember) a lazily-loaded string
3403 preceded by "#@". Return true if this was a normal skip, 3403 preceded by "#@". Return true if this was a normal skip,
3404 false if we read #@00 (which skips to EOB). */ 3404 false if we read #@00 (which skips to EOB/EOF). */
3405static bool 3405static bool
3406skip_lazy_string (Lisp_Object readcharfun) 3406skip_lazy_string (Lisp_Object readcharfun)
3407{ 3407{
@@ -3938,7 +3938,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
3938 and function definitions that can be loaded lazily. */ 3938 and function definitions that can be loaded lazily. */
3939 if (skip_lazy_string (readcharfun)) 3939 if (skip_lazy_string (readcharfun))
3940 goto read_obj; 3940 goto read_obj;
3941 obj = Qnil; /* #@00 skips to EOB and yields nil. */ 3941 obj = Qnil; /* #@00 skips to EOB/EOF and yields nil. */
3942 break; 3942 break;
3943 3943
3944 case '$': 3944 case '$':