diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-12-27 13:14:30 +0000 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-12-27 13:14:30 +0000 |
| commit | df882c9701755e2ae063f05d3381de14ae09951e (patch) | |
| tree | a4001e80be19d2d6e53218b39624489ea5749829 | |
| parent | 8bc727d0b4e46554ee4e92c1d1db7d3b3e672068 (diff) | |
| download | emacs-df882c9701755e2ae063f05d3381de14ae09951e.tar.gz | |
; Fix recent shortdoc.el and fns.c additions
* lisp/emacs-lisp/shortdoc.el (list): Fix typos.
* src/fns.c (Flength_equal): Fix docstring.
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 6 | ||||
| -rw-r--r-- | src/fns.c | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index c6259f89711..7fb1a88b861 100644 --- 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 217e3b62cca..2de1d26dd31 100644 --- 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) |