[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d3b779f 2/3: * lisp/emacs-lisp/pcase.el (pcase--u1)
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master d3b779f 2/3: * lisp/emacs-lisp/pcase.el (pcase--u1): Revert earlier workaround. |
Date: |
Wed, 17 Jun 2015 00:45:50 +0000 |
branch: master
commit d3b779fa79f3570879b2df2effa683c3b4aaa96a
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/emacs-lisp/pcase.el (pcase--u1): Revert earlier workaround.
No longer needed.
---
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 bcc2d58..50a2507 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))