emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/pyim 9e006e703d 21/58: pyim-candidates-search-buffer ->


From: ELPA Syncer
Subject: [elpa] externals/pyim 9e006e703d 21/58: pyim-candidates-search-buffer -> pyim-candidates--search-buffer
Date: Fri, 24 Jun 2022 06:57:53 -0400 (EDT)

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

    pyim-candidates-search-buffer -> pyim-candidates--search-buffer
---
 pyim-candidates.el  | 4 ++--
 tests/pyim-tests.el | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/pyim-candidates.el b/pyim-candidates.el
index 966dea5fbc..feecb6f4bb 100644
--- a/pyim-candidates.el
+++ b/pyim-candidates.el
@@ -289,10 +289,10 @@ ning niu 等等。"
   ;; 索词条。
   (let ((str (string-join (pyim-codes-create (car imobjs) scheme))))
     (when (> (length str) 0)
-      (pyim-candidates-search-buffer
+      (pyim-candidates--search-buffer
        (pyim-cregexp-create str scheme 3 t)))))
 
-(defun pyim-candidates-search-buffer (regexp)
+(defun pyim-candidates--search-buffer (regexp)
   "在当前 buffer 中使用 REGEXP 搜索词条。"
   (when (not (input-pending-p)) ;只有在用户输入停顿的时候才搜索 buffer.
     (save-excursion
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index fe12f5a72c..0539ca3a46 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -703,12 +703,12 @@
     (should (equal (pyim-tests-sublist 
(pyim-candidates--quanpin-first-possible-chars (car imobjs2) quanpin) 10)
                    '("你" "年" "娘" "鸟" "摄" "您" "宁" "牛" "尼" "念")))))
 
-(ert-deftest pyim-tests-pyim-candidates-search-buffer ()
+(ert-deftest pyim-tests-pyim-candidates--search-buffer ()
   (with-temp-buffer
     (insert "你好你好你坏你坏你话牛蛤牛和牛蛤牛蛤牛蛤牛蛤牛蛤")
-    (should (equal (pyim-candidates-search-buffer (pyim-cregexp-build "nh" 3 
t))
+    (should (equal (pyim-candidates--search-buffer (pyim-cregexp-build "nh" 3 
t))
                    '("牛蛤" "你坏" "你好" "牛和" "你话")))
-    (let ((words (pyim-candidates-search-buffer (pyim-cregexp-build "nh" 3 
t))))
+    (let ((words (pyim-candidates--search-buffer (pyim-cregexp-build "nh" 3 
t))))
       (should (equal (get-text-property 0 :comment (car words)) "(buf)")))))
 
 ;; ** pyim-cstring 相关单元测试



reply via email to

[Prev in Thread] Current Thread [Next in Thread]