From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 12 Dec 2020 13:22:58 +0000 (+0100)
Subject: Alter the "Redundant pcase patter" warning message
X-Git-Tag: emacs-28.0.90~4755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4afef614cd6c93b4d4a57aa5bb211563649abc56;p=emacs.git

Alter the "Redundant pcase patter" warning message

* lisp/emacs-lisp/pcase.el (pcase--expand): Make the "Redundant
pcase pattern" warning less vague (bug#31350).
---

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index e603900b095..206f0dd1a9d 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -409,7 +409,8 @@ of the elements of LIST is performed as if by `pcase-let'.
       (dolist (case cases)
         (unless (or (memq case used-cases)
                     (memq (car case) pcase--dontwarn-upats))
-          (message "Redundant pcase pattern: %S" (car case))))
+          (message "pcase pattern %S shadowed by previous pcase pattern"
+                   (car case))))
       (macroexp-let* defs main))))
 
 (defun pcase--macroexpand (pat)