diff options
| author | Eli Zaretskii | 2023-06-03 05:47:29 -0400 |
|---|---|---|
| committer | Eli Zaretskii | 2023-06-03 05:47:29 -0400 |
| commit | 919f3a7aae0481bdfe732eb84ded081e0d89e6c1 (patch) | |
| tree | afa5c7e9ac5aa880df1d5f9b15b492423d939dce /src | |
| parent | f1fd3d2606220ee55046e0adb0cc0688c7327c14 (diff) | |
| parent | 95ee5477e1615e07e49e924deda6e5c01efc25f0 (diff) | |
| download | emacs-919f3a7aae0481bdfe732eb84ded081e0d89e6c1.tar.gz emacs-919f3a7aae0481bdfe732eb84ded081e0d89e6c1.zip | |
Merge from origin/emacs-29
95ee5477e16 ; * src/lread.c (read0, skip_lazy_string): Fix commentary...
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 34a5cdfd36c..0ee208b7cba 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3403,7 +3403,7 @@ read_bool_vector (Lisp_Object readcharfun) | |||
| 3403 | 3403 | ||
| 3404 | /* Skip (and optionally remember) a lazily-loaded string | 3404 | /* Skip (and optionally remember) a lazily-loaded string |
| 3405 | preceded by "#@". Return true if this was a normal skip, | 3405 | preceded by "#@". Return true if this was a normal skip, |
| 3406 | false if we read #@00 (which skips to EOB). */ | 3406 | false if we read #@00 (which skips to EOB/EOF). */ |
| 3407 | static bool | 3407 | static bool |
| 3408 | skip_lazy_string (Lisp_Object readcharfun) | 3408 | skip_lazy_string (Lisp_Object readcharfun) |
| 3409 | { | 3409 | { |
| @@ -3940,7 +3940,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms) | |||
| 3940 | and function definitions that can be loaded lazily. */ | 3940 | and function definitions that can be loaded lazily. */ |
| 3941 | if (skip_lazy_string (readcharfun)) | 3941 | if (skip_lazy_string (readcharfun)) |
| 3942 | goto read_obj; | 3942 | goto read_obj; |
| 3943 | obj = Qnil; /* #@00 skips to EOB and yields nil. */ | 3943 | obj = Qnil; /* #@00 skips to EOB/EOF and yields nil. */ |
| 3944 | break; | 3944 | break; |
| 3945 | 3945 | ||
| 3946 | case '$': | 3946 | case '$': |