From cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Tue, 16 Jun 2015 18:27:02 -0400
Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--u1):
Paper-over today's bootstrap failure.
---
lisp/emacs-lisp/pcase.el | 6 +++---
1 file 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))
--
2.39.5