; Fix recent shortdoc.el and fns.c additions

* lisp/emacs-lisp/shortdoc.el (list): Fix typos.
* src/fns.c (Flength_equal): Fix docstring.

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index c6259f89711e7ef9ea5d889358e21852e84a2db9..7fb1a88b861f359ba87099cb11a0941e0b5af850 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -619,11 +619,11 @@ There can be any number of :example/:result elements."
   (length
    :eval (length '(a b c)))
   (length<
-   :eval (lenth< '(a b c) 1))
+   :eval (length< '(a b c) 1))
   (length>
-   :eval (lenth> '(a b c) 1))
+   :eval (length> '(a b c) 1))
   (length=
-   :eval (lenth> '(a b c) 3))
+   :eval (length> '(a b c) 3))
   (safe-length
    :eval (safe-length '(a b c))))
 

diff --git a/src/fns.c b/src/fns.c
index 217e3b62ccae1da0c02a91c02547d73007c5862a..2de1d26dd311d08e5309d1c93216af9f8eb5ddfe 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -202,7 +202,7 @@ counted.  */)
 }
 
 DEFUN ("length=", Flength_equal, Slength_equal, 2, 2, 0,
-       doc: /* Return non-nil if SEQUENCE is equal to LENGTH.
+       doc: /* Return non-nil if SEQUENCE has length equal to LENGTH.
 See `length' for allowed values of SEQUENCE and how elements are
 counted.  */)
   (Lisp_Object sequence, Lisp_Object length)