# HG changeset patch # User Juanma Barranquero # Date 1052242624 0 # Node ID bb29b3dba5acc1b7d0391bc3f52bed60e7cf0a36 # Parent 3a65ede5c70c36897da68a44538c4ad64e4f9ed8 (case, typecase): Don't quote nil and t in docstrings. diff -r 3a65ede5c70c -r bb29b3dba5ac lisp/emacs-lisp/cl-macs.el --- 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)