diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2018-05-29 10:07:21 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2018-05-29 10:07:21 +0200 |
commit | 8a09ec0d45cdc8fa54203a0f7cc1a8c909627497 (patch) | |
tree | 2b7516e767bea0d86e3f819b6856841083f138b9 /lisp/emacs-lisp/cl-macs.el | |
parent | 0f48d18fd2a30f29cc3592a835d2a2254c9b0afb (diff) | |
parent | 9d6a3ac73af66184e5bb23555b93833f6a4d9f2e (diff) | |
download | emacs-8a09ec0d45cdc8fa54203a0f7cc1a8c909627497.tar.gz |
Merge from origin/emacs-26
9d6a3ac73a Mention pcase as a fifth conditional form
567cb9046d Overhaul pcase documentation
4d7e54acff Use EXPVAL in docstrings of patterns defined using pcase-d...
7e8227ed68 Introduce EXPVAL for pcase, pcase-defmacro docstrings
e6de5b3d51 Ensure pcase doc shows `QPAT first among extensions
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
-rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9600230c076..d7e4b4e611a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2964,10 +2964,10 @@ non-nil value, that slot cannot be set via `setf'. ;;;###autoload (pcase-defmacro cl-struct (type &rest fields) - "Pcase patterns to match cl-structs. -Elements of FIELDS can be of the form (NAME PAT) in which case the contents of -field NAME is matched against PAT, or they can be of the form NAME which -is a shorthand for (NAME NAME)." + "Pcase patterns that match cl-struct EXPVAL of type TYPE. +Elements of FIELDS can be of the form (NAME PAT) in which case the +contents of field NAME is matched against PAT, or they can be of +the form NAME which is a shorthand for (NAME NAME)." (declare (debug (sexp &rest [&or (sexp pcase-PAT) sexp]))) `(and (pred (pcase--flip cl-typep ',type)) ,@(mapcar |