diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2015-09-05 17:10:50 +0200 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2015-09-05 18:58:24 +0200 |
| commit | 96d6689d3c9b7ed3ea791c6a6c0345e89ba209f9 (patch) | |
| tree | 71cb37be0ad235164fef33251029baabcf1bbd2a /lisp/emacs-lisp/cl-macs.el | |
| parent | 6d2a3ca2fc60d89a2454a0ee6cd4e814801e4e39 (diff) | |
| download | emacs-96d6689d3c9b7ed3ea791c6a6c0345e89ba209f9.tar.gz | |
Use PAT rather than UPAT in pcase macros
* lisp/emacs-lisp/cl-macs.el (cl-struct) <pcase-defmacro>:
* lisp/emacs-lisp/eieio.el (eieio) <pcase-defmacro>: Use PAT rather
than UPAT.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 06e75b36670..30581e37e94 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2777,10 +2777,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 UPAT) in which case the contents of -field NAME is matched against UPAT, or they can be of the form NAME which +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-UPAT) sexp]))) + (declare (debug (sexp &rest [&or (sexp pcase-PAT) sexp]))) `(and (pred (pcase--flip cl-typep ',type)) ,@(mapcar (lambda (field) |