[elpa] externals/xr 461dce1 03/12: Remove dead function xr--matches-nonempty-only-p

[Mattias Engdegård]

branch: externals/xr
commit 461dce1434cd19bb95baf1a5f4c7112b6f9f4dd6
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Remove dead function xr--matches-nonempty-only-p
---
 xr.el | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/xr.el b/xr.el
index aa5e7be..c84895d 100644
--- a/xr.el
+++ b/xr.el
@@ -444,29 +444,6 @@ UPPER may be nil, meaning infinity."
      (cl-every #'xr--matches-empty-p body))
     ("" t)))
 
-(defun xr--matches-nonempty-only-p (rx)
-  "Whether RX matches non-empty strings only."
-  (pcase rx
-    ((pred stringp) (> (length rx) 0))
-    (`(,(or 'seq 'one-or-more '+? 'group) . ,body)
-     (cl-some #'xr--matches-nonempty-only-p body))
-    (`(or . ,body)
-     (cl-every #'xr--matches-nonempty-only-p body))
-    (`(group-n ,_ . ,body)
-     (cl-some #'xr--matches-nonempty-only-p body))
-    (`(repeat ,from ,_ . ,body)
-     (and (> from 0)
-          (cl-some #'xr--matches-nonempty-only-p body)))
-    (`(,(or '= '>=) ,n . ,body)
-     (and (> n 0)
-          (cl-some #'xr--matches-nonempty-only-p body)))
-    (`(,(or 'any 'not 'intersection) . ,_) t)
-    ((or 'ascii 'alnum 'alpha 'blank 'cntrl 'digit 'graph
-         'lower 'multibyte 'nonascii 'print 'punct 'space
-         'unibyte 'upper 'word 'xdigit
-         'nonl 'anything)
-     t)))
-
 (defun xr--adjacent-subsumption (a b)
   "Check if A subsumes B, or vice versa, or not, assuming they are adjacent.
 Return `a-subsumes-b', `b-subsumes-a' or nil."