[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))