[elpa] externals/pyim 63f5edffb2 27/35: pyim-process-input-chinese-predicate-2 -> pyim-process--input-chinese-predicate-2

[ELPA Syncer]

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

    pyim-process-input-chinese-predicate-2 -> 
pyim-process--input-chinese-predicate-2
---
 pyim-process.el     |  4 ++--
 tests/pyim-tests.el | 18 +++++++++---------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/pyim-process.el b/pyim-process.el
index e79e59cbc5..3bfbb13605 100644
--- a/pyim-process.el
+++ b/pyim-process.el
@@ -299,7 +299,7 @@ imobj 组合构成在一起，构成了 imobjs 这个概念。比如：
          (rest-chars (pyim-scheme-rest-chars scheme))
          (entered (pyim-entered-get 'point-before)))
     (and (pyim-process--input-chinese-predicate-1)
-         (pyim-process-input-chinese-predicate-2
+         (pyim-process--input-chinese-predicate-2
           last-command-event entered first-chars rest-chars))))
 
 (defun pyim-process--input-chinese-predicate-1 ()
@@ -308,7 +308,7 @@ imobj 组合构成在一起，构成了 imobjs 这个概念。比如：
       (and (not pyim-process-input-ascii)
            (not (pyim-process-auto-switch-english-input-p)))))
 
-(defun pyim-process-input-chinese-predicate-2 (event entered first-chars 
rest-chars)
+(defun pyim-process--input-chinese-predicate-2 (event entered first-chars 
rest-chars)
   "`pyim-process-input-chinese-p' 内部函数，测试输入。"
   (if (not (string< "" entered))
       (member event (mapcar #'identity first-chars))
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 5329b6e890..0f1c73158a 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -1988,34 +1988,34 @@ abc 这是")))
              (lambda () nil)))
     (should (pyim-process--input-chinese-predicate-1))))
 
-(ert-deftest pyim-tests-pyim-process-input-chinese-predicate-2 ()
-  (should (pyim-process-input-chinese-predicate-2 ?a "" "abc" "def"))
-  (should-not (pyim-process-input-chinese-predicate-2 ?d "" "abc" "def"))
-  (should (pyim-process-input-chinese-predicate-2 ?d "a" "abc" "def"))
-  (should-not (pyim-process-input-chinese-predicate-2 ?g "a" "abc" "def")))
+(ert-deftest pyim-tests-pyim-process--input-chinese-predicate-2 ()
+  (should (pyim-process--input-chinese-predicate-2 ?a "" "abc" "def"))
+  (should-not (pyim-process--input-chinese-predicate-2 ?d "" "abc" "def"))
+  (should (pyim-process--input-chinese-predicate-2 ?d "a" "abc" "def"))
+  (should-not (pyim-process--input-chinese-predicate-2 ?g "a" "abc" "def")))
 
 (ert-deftest pyim-tests-pyim-process-input-chinese-p ()
   (cl-letf (((symbol-function 'pyim-process--input-chinese-predicate-1)
              (lambda (&rest _) nil))
-            ((symbol-function 'pyim-process-input-chinese-predicate-2)
+            ((symbol-function 'pyim-process--input-chinese-predicate-2)
              (lambda (&rest _) nil)))
     (should-not (pyim-process-input-chinese-p)))
 
   (cl-letf (((symbol-function 'pyim-process--input-chinese-predicate-1)
              (lambda (&rest _) t))
-            ((symbol-function 'pyim-process-input-chinese-predicate-2)
+            ((symbol-function 'pyim-process--input-chinese-predicate-2)
              (lambda (&rest _) nil)))
     (should-not (pyim-process-input-chinese-p)))
 
   (cl-letf (((symbol-function 'pyim-process--input-chinese-predicate-1)
              (lambda (&rest _) nil))
-            ((symbol-function 'pyim-process-input-chinese-predicate-2)
+            ((symbol-function 'pyim-process--input-chinese-predicate-2)
              (lambda (&rest _) t)))
     (should-not (pyim-process-input-chinese-p)))
 
   (cl-letf (((symbol-function 'pyim-process--input-chinese-predicate-1)
              (lambda (&rest _) t))
-            ((symbol-function 'pyim-process-input-chinese-predicate-2)
+            ((symbol-function 'pyim-process--input-chinese-predicate-2)
              (lambda (&rest _) t)))
     (should (pyim-process-input-chinese-p))))