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

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

[elpa] externals/pyim 291798d23d 09/58: pyim-cregexp-scheme -> pyim-creg


From: ELPA Syncer
Subject: [elpa] externals/pyim 291798d23d 09/58: pyim-cregexp-scheme -> pyim-cregexp--scheme
Date: Fri, 24 Jun 2022 06:57:52 -0400 (EDT)

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

    pyim-cregexp-scheme -> pyim-cregexp--scheme
---
 pyim-cregexp.el     |  4 ++--
 tests/pyim-tests.el | 12 ++++++------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/pyim-cregexp.el b/pyim-cregexp.el
index 885b87c9a2..4d8f6ad7f1 100644
--- a/pyim-cregexp.el
+++ b/pyim-cregexp.el
@@ -52,10 +52,10 @@
 这个函数的功能和 `pyim-cregexp-build' 类似,大多数参数也相同,不
 同点是这个函数没有 scheme 参数,它会根据 `pyim-default-scheme' 和
 `pyim-cregexp-fallback-scheme' 等信息动态的获取 scheme."
-  (let ((scheme (pyim-cregexp-scheme)))
+  (let ((scheme (pyim-cregexp--scheme)))
     (pyim-cregexp-create string scheme char-level-num chinese-only)))
 
-(defun pyim-cregexp-scheme (&optional scheme)
+(defun pyim-cregexp--scheme (&optional scheme)
   "返回一个支持 cregexp 的 scheme.
 
 这个函数同时考虑 SCHEME, `pyim-default-scheme' 和
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 8b40a275c2..92ac2da221 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -926,24 +926,24 @@
   (should-not (pyim-cregexp--find-scheme 'wubi1))
   (should (equal (pyim-scheme-name (pyim-cregexp--find-scheme (pyim-scheme-get 
'wubi))) 'wubi)))
 
-(ert-deftest pyim-tests-pyim-cregexp-scheme ()
+(ert-deftest pyim-tests-pyim-cregexp--scheme ()
   (let ((wubi (pyim-scheme-get 'wubi)))
-    (should (equal (pyim-scheme-name (pyim-cregexp-scheme wubi)) 'wubi)))
+    (should (equal (pyim-scheme-name (pyim-cregexp--scheme wubi)) 'wubi)))
 
   (let ((wubi (pyim-scheme-get 'wubi1))
         (pyim-default-scheme 'quanpin))
-    (should (equal (pyim-scheme-name (pyim-cregexp-scheme wubi)) 'quanpin)))
+    (should (equal (pyim-scheme-name (pyim-cregexp--scheme wubi)) 'quanpin)))
 
   (let ((pyim-default-scheme 'quanpin))
-    (should (equal (pyim-scheme-name (pyim-cregexp-scheme)) 'quanpin)))
+    (should (equal (pyim-scheme-name (pyim-cregexp--scheme)) 'quanpin)))
 
   (let ((pyim-default-scheme 'quanpin1)
         (pyim-cregexp-fallback-scheme 'wubi))
-    (should (equal (pyim-scheme-name (pyim-cregexp-scheme)) 'wubi)))
+    (should (equal (pyim-scheme-name (pyim-cregexp--scheme)) 'wubi)))
 
   (let ((pyim-default-scheme 'quanpin1)
         (pyim-cregexp-fallback-scheme 'wubi1))
-    (should (equal (pyim-scheme-name (pyim-cregexp-scheme)) 'quanpin))))
+    (should (equal (pyim-scheme-name (pyim-cregexp--scheme)) 'quanpin))))
 
 (ert-deftest pyim-tests-pyim-cregexp ()
   (let ((regexp (pyim-cregexp-build "nihao")))



reply via email to

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