procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/pcase.el (pcase--u1): Revert earlier workaround.

Browse source 
No longer needed.
This commit is contained in:
Glenn Morris 2015-06-16 20:44:57 -04:00
parent c07e67aaaf
commit d3b779fa79
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/pcase.el
View file

@ -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))