More efficient filtering.

[gnu-emacs-elpa] / company.el

diff --git a/company.el b/company.el
index 8f17ef99b953344e9b2c3a50729ebc15cdb890ca..5f7023a594045dbc03df95f92ccea32a3bde8a41 100644 (file)
--- a/company.el
+++ b/company.el
@@ -500,9 +500,11 @@
   (interactive)
   (let ((predicate `(lambda (candidate)
                       (string-match ,company-search-string candidate))))
-    (company-cancel)
     (setq company-candidates-predicate predicate)
-    (company-manual-begin)))
+    (company-update-candidates (company-apply-predicate company-candidates
+                                                        predicate))
+    (company-search-mode 0)
+    (company-call-frontends 'update)))
 
 (defun company-search-abort ()
   (interactive)