diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-06-16 18:27:02 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-06-16 18:27:02 -0400 |
| commit | cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3 (patch) | |
| tree | 4a6bc6e8f720e1457fde7bd9c57ff442f044b8d9 /lisp/emacs-lisp | |
| parent | 70a567971a930f104b47200fcdb01a858846d41d (diff) | |
| download | emacs-cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3.tar.gz emacs-cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3.tar.bz2 emacs-cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1):
Paper-over today's bootstrap failure.
Diffstat (limited to 'lisp/emacs-lisp')
| -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 50a25072128..bcc2d58a0bc 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 ((memq upat '(t _)) (let ((code (pcase--u1 matches code vars rest))) (if (eq upat '_) code - (macroexp--warn-and-return - "Pattern t is deprecated. Use `_' instead" - code)))) + (message "%s" + "Pattern t is deprecated. Use `_' instead") + code))) ((eq upat 'pcase--dontcare) :pcase--dontcare) ((memq (car-safe upat) '(guard pred)) (if (eq (car upat) 'pred) (pcase--mark-used sym)) |