diff options
| author | Glenn Morris | 2015-06-16 20:44:57 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-06-16 20:44:57 -0400 |
| commit | d3b779fa79f3570879b2df2effa683c3b4aaa96a (patch) | |
| tree | 68b0b826af8cd6b8de0f856e11fd0e271f760144 | |
| parent | c07e67aaafc5374ad6f26a5f6c631f19a9256969 (diff) | |
| download | emacs-d3b779fa79f3570879b2df2effa683c3b4aaa96a.tar.gz emacs-d3b779fa79f3570879b2df2effa683c3b4aaa96a.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Revert earlier workaround.
No longer needed.
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index bcc2d58a0bc..50a25072128 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -774,9 +774,9 @@ Otherwise, it defers to REST which is a list of branches of the form | |||
| 774 | ((memq upat '(t _)) | 774 | ((memq upat '(t _)) |
| 775 | (let ((code (pcase--u1 matches code vars rest))) | 775 | (let ((code (pcase--u1 matches code vars rest))) |
| 776 | (if (eq upat '_) code | 776 | (if (eq upat '_) code |
| 777 | (message "%s" | 777 | (macroexp--warn-and-return |
| 778 | "Pattern t is deprecated. Use `_' instead") | 778 | "Pattern t is deprecated. Use `_' instead" |
| 779 | code))) | 779 | code)))) |
| 780 | ((eq upat 'pcase--dontcare) :pcase--dontcare) | 780 | ((eq upat 'pcase--dontcare) :pcase--dontcare) |
| 781 | ((memq (car-safe upat) '(guard pred)) | 781 | ((memq (car-safe upat) '(guard pred)) |
| 782 | (if (eq (car upat) 'pred) (pcase--mark-used sym)) | 782 | (if (eq (car upat) 'pred) (pcase--mark-used sym)) |