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

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

[elpa] externals/pyim 207ff432e0 10/20: pyim.el: pyim-page-start/end ->


From: ELPA Syncer
Subject: [elpa] externals/pyim 207ff432e0 10/20: pyim.el: pyim-page-start/end -> pyim-page--start/end
Date: Fri, 24 Jun 2022 03:57:54 -0400 (EDT)

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

    pyim.el: pyim-page-start/end -> pyim-page--start/end
---
 pyim.el             |  6 +++---
 tests/pyim-tests.el | 14 +++++++-------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/pyim.el b/pyim.el
index 5726dfa38d..4152cc3e11 100644
--- a/pyim.el
+++ b/pyim.el
@@ -634,12 +634,12 @@ FILE 的格式与 `pyim-dcache-export' 生成的文件格式相同,
         (let ((index (if (numberp n)
                          (- n 1)
                        0))
-              (end (pyim-page-end)))
+              (end (pyim-page--end)))
           (when (= index -1) (setq index 9))
-          (if (> (+ index (pyim-page-start)) end)
+          (if (> (+ index (pyim-page--start)) end)
               (pyim-page-refresh)
             (pyim-process-set-candidate-position
-             (+ (pyim-page-start) index))
+             (+ (pyim-page--start) index))
             (pyim-select-word))))
     ;; 有些输入法使用数字键编码,这种情况下,数字键就
     ;; 不能用来选词了。
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 68fca132df..6e1bd41f39 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -1733,22 +1733,22 @@ abc 这是")
                  "你好    
 abc 这是")))
 
-(ert-deftest pyim-tests-pyim-page-tooltip-valid-p ()
+(ert-deftest pyim-tests-pyim-page--tooltip-valid-p ()
   (let ((pyim-page-tooltip-infos
          `((posframe1 :package posframe1)
            (posframe2 :package posframe :test (lambda () t))
            (posframe3 :package posframe :test (lambda () nil)))))
-    (should-not (pyim-page-tooltip-valid-p 'posframe1))
-    (should (pyim-page-tooltip-valid-p 'posframe2))
-    (should-not (pyim-page-tooltip-valid-p 'posframe3))))
+    (should-not (pyim-page--tooltip-valid-p 'posframe1))
+    (should (pyim-page--tooltip-valid-p 'posframe2))
+    (should-not (pyim-page--tooltip-valid-p 'posframe3))))
 
-(ert-deftest pyim-tests-pyim-page-get-page-style ()
+(ert-deftest pyim-tests-pyim-page--get-page-style ()
   (let ((pyim-page-tooltip-style-alist
          '((minibuffer . minibuffer)))
         (pyim-page-style 'test))
-    (should (equal (pyim-page-get-page-style 'minibuffer)
+    (should (equal (pyim-page--get-page-style 'minibuffer)
                    'minibuffer))
-    (should (equal (pyim-page-get-page-style 'test)
+    (should (equal (pyim-page--get-page-style 'test)
                    'test))))
 
 (ert-deftest pyim-tests-pyim-page-info-format ()



reply via email to

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