Check parts of dabbrev in hash

* helm-dabbrev.el (helm-dabbrev--cache-data): Do it.

1 files changed, 7 insertions, 3 deletions

diff --git a/helm-dabbrev.el b/helm-dabbrev.el
index 7c9c84a5..ce9643b3 100644
--- a/helm-dabbrev.el
+++ b/helm-dabbrev.el
@@ -229,9 +229,13 @@ but the initial search for all candidates in buffer(s)."
 (defvar helm-dabbrev--hash (make-hash-table :test 'equal))
 
 (defun helm-dabbrev--cache-data (dabbrev)
-  (or (gethash dabbrev helm-dabbrev--hash)
-      (puthash dabbrev (helm-dabbrev--get-candidates dabbrev)
-               helm-dabbrev--hash)))
+  (unless (or (null dabbrev) (string= dabbrev ""))
+    (or (cl-loop for count downfrom (length dabbrev) to 1
+                 when (gethash (substring-no-properties dabbrev 0 count)
+                               helm-dabbrev--hash)
+                 return it)
+        (puthash dabbrev (helm-dabbrev--get-candidates dabbrev)
+                 helm-dabbrev--hash))))
 
 ;;;###autoload
 (defun helm-dabbrev ()