diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 1497a9906bd..a712b3a1b46 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -14660,9 +14660,9 @@ beginning of the file.  The function definition looks like this:
 @smallexample
 @group
 (defun lengths-list-file (filename)
-  "Return list of definitions' lengths within FILE.
+  "Return list of definitions' lengths within the file named FILENAME.
 The returned list is a list of numbers.
-Each number is the number of words or
+Each number in the list is the number of words or
 symbols in one function definition."
 @end group
 @group
@@ -14683,10 +14683,10 @@ symbols in one function definition."
 @end smallexample
 
 @noindent
-The function is passed one argument, the name of the file on which it
-will work.  It has four lines of documentation, but no interactive
-specification.  Since people worry that a computer is broken if they
-don't see anything going on, the first line of the body is a
+The function is passed one argument @var{filename}, the name of the file
+on which it will work.  It has four lines of documentation, but no
+interactive specification.  Since people worry that a computer is broken
+if they don't see anything going on, the first line of the body is a
 message.
 
 The next line contains a @code{save-excursion} that returns Emacs's
@@ -14730,8 +14730,8 @@ definition and constructs a lengths' list containing the information.
 Emacs kills the buffer after working through it.  This is to save
 space inside of Emacs.  My version of GNU Emacs 19 contained over 300
 source files of interest; GNU Emacs 22 contains over a thousand source
-files.  Another function will apply @code{lengths-list-file} to each
-of the files.
+files, and Emacs 30.2 more than 1600.  Another function will apply
+@code{lengths-list-file} to each of the files.
 
 Finally, the last expression within the @code{let} expression is the
 @code{lengths-list} variable; its value is returned as the value of
@@ -14744,13 +14744,13 @@ C-e} (@code{eval-last-sexp}).
 @c !!! 22.1.1 lisp sources location here
 @smallexample
 (lengths-list-file
- "/usr/local/share/emacs/22.1/lisp/emacs-lisp/debug.el")
+ "/usr/local/share/emacs/30.2/lisp/emacs-lisp/debug.el")
 @end smallexample
 
 @noindent
-You may need to change the pathname of the file; the one here is for
-GNU Emacs version 22.1.  To change the expression, copy it to
-the @file{*scratch*} buffer and edit it.
+You may need to change the name of the file; the one here is for default
+installation tree of GNU Emacs version 30.2.  To change the expression,
+copy it to the @file{*scratch*} buffer and edit it.
 
 @need 1200
 @noindent
@@ -14768,10 +14768,11 @@ Then evaluate the @code{lengths-list-file} expression.)
 
 @need 1200
 The lengths' list for @file{debug.el} takes less than a second to
-produce and looks like this in GNU Emacs 22:
+produce and looks like this in GNU Emacs 30.2:
 
 @smallexample
-(83 113 105 144 289 22 30 97 48 89 25 52 52 88 28 29 77 49 43 290 232 587)
+(79 26 140 34 17 112 81 24 155 54 43 102 21 36 36 117 28 29 102 49 43
+ 208 101 28 22 728 15 27)
 @end smallexample
 
 @need 1500