From 6ada0ad21c59c8659027f6f2276c3fe9d8e064a3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Omar=20Antol=C3=ADn?= Date: Thu, 16 Apr 2020 11:17:40 -0500 Subject: Add docstrings to functions (Even though these are the sort of functions that in minibuffer.el have no docstrings. :P) --- orderless.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/orderless.el b/orderless.el index f082ba6..c2c6237 100644 --- a/orderless.el +++ b/orderless.el @@ -36,7 +36,7 @@ ;; ;; By default the space key is bound to `minibuffer-complete-word' in ;; `minibuffer-local-map', which isn't useful with this completion -;; method. So, if you use it, you should also unbind SPC. +;; method. So, if you use it, you should also unbind SPC. ;; ;; So to test this completion you can use the following configuration: ;; @@ -97,7 +97,8 @@ component regexps." orderless-match-face-2 orderless-match-face-3])) (defun orderless--highlight-match (regexp string face) - ;; only call this when the match has already been checked! + "Highlight REGEXP match in STRING with the face numbered FACE. +Warning: only call this function when you know REGEXP matches STRING!" (string-match regexp string) (font-lock-prepend-text-property (match-beginning 0) @@ -106,6 +107,9 @@ component regexps." string))) (defun orderless-all-completions (string table pred _point) + "Split STRING into components and find entries TABLE matching all. +The predicate PRED is used to constrain the entries in TABLE. +This function is part of the `orderless' completion style." (save-match-data (let* ((limit (car (completion-boundaries string table pred ""))) (prefix (substring string 0 limit)) @@ -132,6 +136,13 @@ component regexps." (invalid-regexp nil))))) (defun orderless-try-completion (string table pred point &optional _metadata) + "Complete STRING to unique matching entry in TABLE. +This uses `orderless-all-completions' to find matches for STRING +in TABLE among entries satisfying PRED (that function ignores +POINT). If there is only one match, it completes to that match. +If there are no matches, it returns nil. In any other case it +\"completes\" STRING to itself. This function is part of the +`orderless' completion style." (let* ((limit (car (completion-boundaries string table pred ""))) (prefix (substring string 0 limit)) (all (orderless-all-completions string table pred point))) -- cgit v1.0