[Emacs-diffs] master cf94a3e: * lisp/emacs-lisp/pcase.el (pcase--u1):

[Glenn Morris]

branch: master
commit cf94a3e0c4320f74c1de8c9a887b1ed8e74163d3
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/emacs-lisp/pcase.el (pcase--u1):
    
    Paper-over today's bootstrap failure.
---
 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 50a2507..bcc2d58 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))