Rename helm--dabbrev--search (fix typo) and add docstring

* helm-dabbrev.el (helm-dabbrev--collect): Do it.
(helm-dabbrev--search):                    Do it.

1 files changed, 9 insertions, 2 deletions

diff --git a/helm-dabbrev.el b/helm-dabbrev.el
index 19a5481b..dc1c525e 100644
--- a/helm-dabbrev.el
+++ b/helm-dabbrev.el
@@ -160,7 +160,7 @@ but the initial search for all candidates in buffer(s)."
               (let* ((pbeg (match-beginning 0))
                      (replace-regexp (concat "\\(" helm-dabbrev-separator-regexp
                                              "\\)\\'"))
-                     (match-word (helm--dabbrev--search
+                     (match-word (helm-dabbrev--search
                                   pattern pbeg replace-regexp)))
                 (unless (member match-word result)
                   (push match-word result)))))))
@@ -190,7 +190,14 @@ but the initial search for all candidates in buffer(s)."
              when (> (length result) limit) return (nreverse result)
              finally return (nreverse result))))
 
-(defun helm--dabbrev--search (pattern beg sep-regexp)
+(defun helm-dabbrev--search (pattern beg sep-regexp)
+  "Search word or symbol at point matching PATTERN.
+Argument BEG is corresponding to the previous match-beginning search.
+The search starts at (1- BEG) with a regexp starting with
+`helm-dabbrev-separator-regexp' followed by PATTERN followed by a
+regexp matching syntactically any word or symbol.
+The possible false positives matching SEP-REGEXP at end are finally
+removed."
   (let ((eol (point-at-eol))) 
     (save-excursion
       (goto-char (1- beg))