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

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

[elpa] externals/pyim 03ac31810d 2/2: Add pyim-process--feed-entered-int


From: ELPA Syncer
Subject: [elpa] externals/pyim 03ac31810d 2/2: Add pyim-process--feed-entered-into-pyim
Date: Wed, 29 Jun 2022 21:57:53 -0400 (EDT)

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

    Add pyim-process--feed-entered-into-pyim
---
 pyim-process.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/pyim-process.el b/pyim-process.el
index 728096f7bd..cd37b9c397 100644
--- a/pyim-process.el
+++ b/pyim-process.el
@@ -394,9 +394,7 @@ imobj 组合构成在一起,构成了 imobjs 这个概念。比如:
          (entered (nth 0 entered-info))
          (char-num-need-delete (nth 1 entered-info)))
     (pyim-process--delete-region-or-chars char-num-need-delete)
-    (when (> (length entered) 0)
-      (pyim-add-unread-command-events entered)
-      (pyim-process--force-input-chinese))))
+    (pyim-process--feed-entered-into-pyim entered)))
 
 (defun pyim-process-find-entered-at-point ()
   "从光标处提取一个有效的 entered 字符串."
@@ -425,6 +423,11 @@ imobj 组合构成在一起,构成了 imobjs 这个概念。比如:
     (when (and (numberp num) (> num 0))
       (backward-delete-char num))))
 
+(defun pyim-process--feed-entered-into-pyim (entered)
+  (when (and (stringp entered) (> (length entered) 0))
+    (pyim-add-unread-command-events entered)
+    (pyim-process--force-input-chinese)))
+
 (defun pyim-process--force-input-chinese ()
   "让 pyim 强制输入中文,忽略所有探针函数。"
   (setq pyim-process--force-input-chinese t))



reply via email to

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