diff options
| author | Juanma Barranquero | 2003-05-06 17:37:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-05-06 17:37:04 +0000 |
| commit | a8ea72a078b59ed1bfbed73b4e62cbb4eb043997 (patch) | |
| tree | 74d4ea82611899af237df4e7f323097a57874697 | |
| parent | 66d0d12c98cd2a5aac5fe5ecacf8de4e6b94c064 (diff) | |
| download | emacs-a8ea72a078b59ed1bfbed73b4e62cbb4eb043997.tar.gz emacs-a8ea72a078b59ed1bfbed73b4e62cbb4eb043997.zip | |
(case, typecase): Don't quote nil and t in docstrings.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 05932062d74..f861aa546e3 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -486,7 +486,7 @@ The result of the body appears to the compiler as a quoted constant." | |||
| 486 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared | 486 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared |
| 487 | against each key in each KEYLIST; the corresponding BODY is evaluated. | 487 | against each key in each KEYLIST; the corresponding BODY is evaluated. |
| 488 | If no clause succeeds, case returns nil. A single atom may be used in | 488 | If no clause succeeds, case returns nil. A single atom may be used in |
| 489 | place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is | 489 | place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is |
| 490 | allowed only in the final clause, and matches if no other keys match. | 490 | allowed only in the final clause, and matches if no other keys match. |
| 491 | Key values are compared by `eql'." | 491 | Key values are compared by `eql'." |
| 492 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) | 492 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) |
| @@ -523,7 +523,7 @@ Key values are compared by `eql'." | |||
| 523 | "Evals EXPR, chooses from CLAUSES on that value. | 523 | "Evals EXPR, chooses from CLAUSES on that value. |
| 524 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it | 524 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it |
| 525 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, | 525 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, |
| 526 | typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the | 526 | typecase returns nil. A TYPE of t or `otherwise' is allowed only in the |
| 527 | final clause, and matches if no other keys match." | 527 | final clause, and matches if no other keys match." |
| 528 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) | 528 | (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym))) |
| 529 | (type-list nil) | 529 | (type-list nil) |