summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2018-03-10 18:30:54 -0800
committerPaul Eggert <eggert@cs.ucla.edu>2018-03-10 18:30:54 -0800
commita3f26048a9b115e8dabffaa768128eaccd07dfd3 (patch)
tree1a2be0f6fbceab35f2b14f91683cff5bacdf1134 /lisp/emacs-lisp
parentab04a0941b67a76575b99d89ba7ba3db1169b901 (diff)
parent5c91ca8f30098cb2593ca375daa82d25aef03ad7 (diff)
downloademacs-a3f26048a9b115e8dabffaa768128eaccd07dfd3.tar.gz
emacs-a3f26048a9b115e8dabffaa768128eaccd07dfd3.tar.bz2
emacs-a3f26048a9b115e8dabffaa768128eaccd07dfd3.zip
Merge from origin/emacs-26
5c91ca8 Fix create_process bug breaking eudc-expand-inline e244fed Clarify that nil doesn't match itself as a cl-case clause (Bu... df0e7e2 Improve SVG documentation a34ef52 Document the "URL" keyword in library headers fbc7f9a * test/lisp/international/mule-tests.el: Avoid local variable... 16faff6 ; * lisp/org/org-table.el: Replace obsolete alias in comment.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/cl-macs.el16
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 4d4640cbe0d..9600230c076 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -771,13 +771,15 @@ The result of the body appears to the compiler as a quoted constant."
;;;###autoload
(defmacro cl-case (expr &rest clauses)
"Eval EXPR and choose among clauses on that value.
-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, cl-case returns nil. A single atom may be used in
-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'.
-\n(fn EXPR (KEYLIST BODY...)...)"
+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, cl-case returns nil. A
+single non-nil atom may be used in 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'.
+
+\(fn EXPR (KEYLIST BODY...)...)"
(declare (indent 1) (debug (form &rest (sexp body))))
(macroexp-let2 macroexp-copyable-p temp expr
(let* ((head-list nil))