From d3b779fa79f3570879b2df2effa683c3b4aaa96a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 16 Jun 2015 20:44:57 -0400 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--u1): Revert earlier workaround. No longer needed. --- 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 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 ((memq upat '(t _)) (let ((code (pcase--u1 matches code vars rest))) (if (eq upat '_) code - (message "%s" - "Pattern t is deprecated. Use `_' instead") - code))) + (macroexp--warn-and-return + "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.2