diff options
Diffstat (limited to 'orderless.el')
| -rw-r--r-- | orderless.el | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/orderless.el b/orderless.el index 0719935..7e97e22 100644 --- a/orderless.el +++ b/orderless.el @@ -128,9 +128,6 @@ a list of them." :options '(orderless-regexp orderless-literal orderless-initialism - orderless-strict-initialism - orderless-strict-leading-initialism - orderless-strict-full-initialism orderless-prefixes orderless-flex)) @@ -208,45 +205,6 @@ candidate, in that order, at the beginning of words." (orderless--separated-by '(zero-or-more nonl) (cl-loop for char across component collect `(seq word-start ,char)))) -(defun orderless--strict-*-initialism (component &optional anchored) - "Match a COMPONENT as a strict initialism, optionally ANCHORED. -The characters in COMPONENT must occur in the candidate in that -order at the beginning of subsequent words comprised of letters. -Only non-letters can be in between the words that start with the -initials. - -If ANCHORED is `start' require that the first initial appear in -the first word of the candidate. If ANCHORED is `both' require -that the first and last initials appear in the first and last -words of the candidate, respectively." - (orderless--separated-by - '(seq (zero-or-more alpha) word-end (zero-or-more (not alpha))) - (cl-loop for char across component collect `(seq word-start ,char)) - (when anchored '(seq (group buffer-start) (zero-or-more (not alpha)))) - (when (eq anchored 'both) - '(seq (zero-or-more alpha) word-end (zero-or-more (not alpha)) eol)))) - -(defun orderless-strict-initialism (component) - "Match a COMPONENT as a strict initialism. -This means the characters in COMPONENT must occur in the -candidate in that order at the beginning of subsequent words -comprised of letters. Only non-letters can be in between the -words that start with the initials." - (orderless--strict-*-initialism component)) - -(defun orderless-strict-leading-initialism (component) - "Match a COMPONENT as a strict initialism, anchored at start. -See `orderless-strict-initialism'. Additionally require that the -first initial appear in the first word of the candidate." - (orderless--strict-*-initialism component 'start)) - -(defun orderless-strict-full-initialism (component) - "Match a COMPONENT as a strict initialism, anchored at both ends. -See `orderless-strict-initialism'. Additionally require that the -first and last initials appear in the first and last words of the -candidate, respectively." - (orderless--strict-*-initialism component 'both)) - (defun orderless-prefixes (component) "Match a component as multiple word prefixes. The COMPONENT is split at word endings, and each piece must match |