aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2023-05-26 12:30:40 +0300
committerEli Zaretskii2023-05-26 12:30:40 +0300
commitf42de74ebea14de1d8a69d2b79489814ab711883 (patch)
tree85645b021d0f900e88cddc2c648cd15e34546b89 /src
parentb6b384023a97185486ed4d69fb18bcd2d3cf8049 (diff)
downloademacs-f42de74ebea14de1d8a69d2b79489814ab711883.tar.gz
emacs-f42de74ebea14de1d8a69d2b79489814ab711883.zip
; * src/lread.c (read0, skip_lazy_string): Fix commentary wording.
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 29321263af3..f8ee4e63e23 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 EOF). */ 3404 false if we read #@00 (which skips to EOB). */
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 EOF and yields nil. */ 3941 obj = Qnil; /* #@00 skips to EOB and yields nil. */
3942 break; 3942 break;
3943 3943
3944 case '$': 3944 case '$':