branch: externals/pyim commit 31a052173da6a80ed6ba624a75e2919370ac29d5 Author: Feng Shu <tuma...@163.com> Commit: Feng Shu <tuma...@163.com>
pyim-process--translate-punctuation* -> pyim-process--trigger-punctuation --- pyim-process.el | 8 ++++---- tests/pyim-tests.el | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/pyim-process.el b/pyim-process.el index efe3aedd7f..017ae7477b 100644 --- a/pyim-process.el +++ b/pyim-process.el @@ -884,11 +884,11 @@ BUG:拼音无法有效地处理多音字。" (message "PYIM: 运行 `pyim-outcome-trigger-function' 函数。") "") - ((pyim-process--translate-punctuation-to-full-width-p char) + ((pyim-process--trigger-punctuation-to-full-width-p char) (pyim-punctuation-translate 'full-width) "") - ((pyim-process--translate-punctuation-to-half-width-p char) + ((pyim-process--trigger-punctuation-to-half-width-p char) (pyim-punctuation-translate 'half-width) "") @@ -950,7 +950,7 @@ SILENT 设置为 t 是,不显示提醒信息。" (pyim-outcome-trigger-p str) (functionp pyim-outcome-trigger-function)))) -(defun pyim-process--translate-punctuation-to-full-width-p (char) +(defun pyim-process--trigger-punctuation-to-full-width-p (char) "当光标前面是半角标点时,返回 t." (let* ((str (char-to-string char)) (str-before-1 (pyim-char-before-to-string 0)) @@ -959,7 +959,7 @@ SILENT 设置为 t 是,不显示提醒信息。" (= punc-posit-before-1 0) (pyim-outcome-trigger-p str)))) -(defun pyim-process--translate-punctuation-to-half-width-p (char) +(defun pyim-process--trigger-punctuation-to-half-width-p (char) "当光标前面是全角标点时,返回 t." (let* ((str (char-to-string char)) (str-before-1 (pyim-char-before-to-string 0)) diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el index 6a4679d0f7..e37a220860 100644 --- a/tests/pyim-tests.el +++ b/tests/pyim-tests.el @@ -2215,17 +2215,17 @@ abc 这是"))) (insert "你好") (should (pyim-process--trigger-call-function-p ?v))))) -(ert-deftest pyim-tests-pyim-process--translate-punctuation-to-full-width-p () +(ert-deftest pyim-tests-pyim-process--trigger-punctuation-to-full-width-p () (let ((pyim-default-scheme 'quanpin)) (with-temp-buffer (insert ",") - (should (pyim-process--translate-punctuation-to-full-width-p ?v))))) + (should (pyim-process--trigger-punctuation-to-full-width-p ?v))))) -(ert-deftest pyim-tests-pyim-process--translate-punctuation-to-half-width-p () +(ert-deftest pyim-tests-pyim-process--trigger-punctuation-to-half-width-p () (let ((pyim-default-scheme 'quanpin)) (with-temp-buffer (insert ",") - (should (pyim-process--translate-punctuation-to-half-width-p ?v))))) + (should (pyim-process--trigger-punctuation-to-half-width-p ?v))))) (ert-run-tests-batch-and-exit)