Mercurial > emacs
changeset 50854:bb29b3dba5ac
(case, typecase): Don't quote nil and t in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 06 May 2003 17:37:04 +0000 |
| parents | 3a65ede5c70c |
| children | 31ce4fcda3d8 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Tue May 06 17:36:16 2003 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Tue May 06 17:37:04 2003 +0000 @@ -486,7 +486,7 @@ Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared against each key in each KEYLIST; the corresponding BODY is evaluated. If no clause succeeds, case returns nil. A single atom may be used in -place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is +place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is allowed only in the final clause, and matches if no other keys match. Key values are compared by `eql'." (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) @@ -523,7 +523,7 @@ "Evals EXPR, chooses from CLAUSES on that value. Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, -typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the +typecase returns nil. A TYPE of t or `otherwise' is allowed only in the final clause, and matches if no other keys match." (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) (type-list nil)