[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4afef61: Alter the "Redundant pcase patter" warning message
From: |
Lars Ingebrigtsen |
Subject: |
master 4afef61: Alter the "Redundant pcase patter" warning message |
Date: |
Sat, 12 Dec 2020 08:23:25 -0500 (EST) |
branch: master
commit 4afef614cd6c93b4d4a57aa5bb211563649abc56
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Alter the "Redundant pcase patter" warning message
* lisp/emacs-lisp/pcase.el (pcase--expand): Make the "Redundant
pcase pattern" warning less vague (bug#31350).
---
lisp/emacs-lisp/pcase.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index e603900..206f0dd 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4afef61: Alter the "Redundant pcase patter" warning message,
Lars Ingebrigtsen <=