[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/pyim 6241955: * pyim-cstring.el (pyim-cstring-to-codes)
From: |
ELPA Syncer |
Subject: |
[elpa] externals/pyim 6241955: * pyim-cstring.el (pyim-cstring-to-codes): better handle when no entered. |
Date: |
Fri, 7 May 2021 04:57:11 -0400 (EDT) |
branch: externals/pyim
commit 6241955a7e4facad787319822eda36c843a0022d
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* pyim-cstring.el (pyim-cstring-to-codes): better handle when no entered.
---
pyim-cstring.el | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/pyim-cstring.el b/pyim-cstring.el
index a5acb30..31a7f8d 100644
--- a/pyim-cstring.el
+++ b/pyim-cstring.el
@@ -356,16 +356,18 @@ code-prefix)。当RETURN-LIST 设置为 t 时,返回一个 code list。"
(cond ((eq class 'xingma)
(pyim-cstring-to-xingma string scheme-name t))
;;拼音使用了多音字校正
- (t (let* ((entered (or entered ""))
- (codes (pyim-cstring-to-pinyin string nil "-" t nil t))
- (codes-sorted
- (sort codes
- (lambda (a b)
- (< (string-distance a entered)
- (string-distance b entered))))))
- ;; 将 code 与用户输入 entered 比对,选取一个与用户输入最类似的
- ;; code. 这种处理方式适合拼音输入法。
- (list (car codes-sorted)))))))
+ (t (let ((codes (pyim-cstring-to-pinyin string nil "-" t nil t))
+ codes-sorted)
+ (if (< (length entered) 1)
+ codes
+ ;; 将 code 与用户输入 entered 比对,选取一个与用户输入最类似的
+ ;; code. 这种处理方式适合拼音输入法。
+ (setq codes-sorted
+ (sort codes
+ (lambda (a b)
+ (< (string-distance a entered)
+ (string-distance b entered)))))
+ (list (car codes-sorted))))))))
;; ** 获取光标处中文字符串或者中文词条的功能
(defun pyim-cstring-at-point (&optional number)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/pyim 6241955: * pyim-cstring.el (pyim-cstring-to-codes): better handle when no entered.,
ELPA Syncer <=