branch: externals/xr commit 461dce1434cd19bb95baf1a5f4c7112b6f9f4dd6 Author: Mattias Engdegård <matti...@acm.org> Commit: Mattias Engdegård <matti...@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."