Use caching in helm-mm-migemo-forward (#1175).

* helm-multi-match.el (helm-mm-migemo-forward): Reuse the previously stored regexp if some.
emacs-helm · Sep 25, 2015 · 2df997b · 2df997b
1 parent 9659305
commit 2df997b
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/helm-multi-match.el b/helm-multi-match.el
@@ -287,13 +287,16 @@ i.e the sources which have the slot :migemo with non--nil value."
                 always (funcall pred (helm-mm-migemo-string-match re str)))))
 
 (defun helm-mm-migemo-forward (word &optional bound noerror count)
-  (let ((regex (if (delq 'ascii (find-charset-string word))
-                   word
-                   (concat (migemo-search-pattern-get word) "\\|" word))))
-    (with-helm-buffer
+  (with-helm-buffer
+    (unless (assoc word helm-mm--previous-migemo-info)
       (setq helm-mm--previous-migemo-info
-            (push (cons word regex) helm-mm--previous-migemo-info)))
-    (re-search-forward regex bound noerror count)))
+            (push (cons word (if (delq 'ascii (find-charset-string word))
+                                 word
+                                 (concat (migemo-search-pattern-get word)
+                                         "\\|" word)))
+                  helm-mm--previous-migemo-info))))
+  (re-search-forward
+   (assoc-default word helm-mm--previous-migemo-info) bound noerror count))
 
 (defun helm-mm-3-migemo-search (pattern &rest _ignore)
   (and helm-migemo-mode