diff options
| author | Eli Zaretskii | 2023-05-26 15:11:35 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-05-26 15:11:35 +0300 |
| commit | 95ee5477e1615e07e49e924deda6e5c01efc25f0 (patch) | |
| tree | 9abdee45324d1ce29cc11d25885a48f69a00755e /src | |
| parent | aa5158630e7113a67ae804d4253911028cb8f984 (diff) | |
| download | emacs-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.c | 4 |
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). */ |
| 3405 | static bool | 3405 | static bool |
| 3406 | skip_lazy_string (Lisp_Object readcharfun) | 3406 | skip_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 '$': |