[elpa] externals/pyim 4fdd7741cf 1/3: * pyim-candidates.el (pyim-candidates-search-buffer): 优化速度。

[ELPA Syncer]

branch: externals/pyim
commit 4fdd7741cfc40b52b3ce5a79d264856316137a98
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    * pyim-candidates.el (pyim-candidates-search-buffer): 优化速度。
---
 pyim-candidates.el | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/pyim-candidates.el b/pyim-candidates.el
index 1c485d8b8b..20afb04ab2 100644
--- a/pyim-candidates.el
+++ b/pyim-candidates.el
@@ -187,23 +187,24 @@ IMOBJS 获得候选词条。"
 
 (defun pyim-candidates-search-buffer (regexp)
   "在当前 buffer 中使用 REGEXP 搜索词条。"
-  (save-excursion
-    (let ((counts (make-hash-table :test #'equal))
-          (time-limit 0.1)
-          words)
-      (goto-char (point-min))
-      (pyim-time-limit-while (and (not (input-pending-p))
-                                  (re-search-forward regexp nil t)) time-limit
-        (let ((match (match-string-no-properties 0)))
-          ;; NOTE: 单个汉字我觉得不值得收集。
-          (when (>= (length match) 2)
-            (if (member match words)
-                (cl-incf (gethash match counts))
-              (push match words)
-              (puthash match 1 counts)))))
-      (sort words (lambda (a b)
-                    (> (or (gethash a counts) 0)
-                       (or (gethash b counts) 0)))))))
+  (when (not (input-pending-p)) ;只有在用户输入停顿的时候才搜索 buffer.
+    (save-excursion
+      (let ((counts (make-hash-table :test #'equal))
+            (time-limit 0.1)
+            words)
+        (goto-char (point-min))
+        (pyim-time-limit-while (and (not (input-pending-p)) ;如果用户继续输入，就停止 
buffer 搜索。
+                                    (re-search-forward regexp nil t)) 
time-limit
+          (let ((match (match-string-no-properties 0)))
+            ;; NOTE: 单个汉字我觉得不值得收集。
+            (when (>= (length match) 2)
+              (if (member match words)
+                  (cl-incf (gethash match counts))
+                (push match words)
+                (puthash match 1 counts)))))
+        (sort words (lambda (a b)
+                      (> (or (gethash a counts) 0)
+                         (or (gethash b counts) 0))))))))
 
 (defun pyim-candidates-create-quanpin (imobjs scheme-name &optional 
fast-search)
   "`pyim-candidates-create:quanpin' 内部使用的函数。"