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

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

[elpa] externals/pyim e7c8d3782a 14/26: Use pyim-process-select-last-cha


From: ELPA Syncer
Subject: [elpa] externals/pyim e7c8d3782a 14/26: Use pyim-process-select-last-char in pyim-page.el
Date: Sun, 26 Jun 2022 10:57:52 -0400 (EDT)

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

    Use pyim-process-select-last-char in pyim-page.el
---
 pyim-page.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/pyim-page.el b/pyim-page.el
index f6bdfba445..09d3115961 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -577,9 +577,7 @@ pyim-page 的核心的功能,为此增加代码的复杂度和测试的难度
   "Pyim page 翻页命令."
   (interactive "p")
   (if (= (length (pyim-process-get-entered 'point-before)) 0)
-      (progn
-        (pyim-process-outcome-handle 'last-char)
-        (pyim-process-terminate))
+      (pyim-process-select-last-char)
     (let* ((new (+ (pyim-process-get-candidate-position)
                    (* pyim-page-length arg) 1))
            (maxpos (+ 1 (pyim-process-candidates-length))))
@@ -597,9 +595,7 @@ pyim-page 的核心的功能,为此增加代码的复杂度和测试的难度
 (defun pyim-page-next-word (arg)
   (interactive "p")
   (if (= (length (pyim-process-get-entered 'point-before)) 0)
-      (progn
-        (pyim-process-outcome-handle 'last-char)
-        (pyim-process-terminate))
+      (pyim-process-select-last-char)
     (let ((new (+ (pyim-process-get-candidate-position) arg))
           (len (pyim-process-candidates-length)))
       (pyim-process-plan-to-select-word



reply via email to

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