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

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

[elpa] externals/pyim 4348aa3: * pyim.el (pyim-search-word-code): Use py


From: ELPA Syncer
Subject: [elpa] externals/pyim 4348aa3: * pyim.el (pyim-search-word-code): Use pyim-cstring-to-codes.
Date: Thu, 6 May 2021 09:57:13 -0400 (EDT)

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

    * pyim.el (pyim-search-word-code): Use pyim-cstring-to-codes.
---
 pyim.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/pyim.el b/pyim.el
index d140d5e..63f77c9 100644
--- a/pyim.el
+++ b/pyim.el
@@ -838,17 +838,18 @@ FILE 的格式与 `pyim-dcache-export' 生成的文件格式相同,
 
 ;; ** 编码反查功能
 (defun pyim-search-word-code ()
-  "选择词条,然后反查它的 code. 这个功能对五笔用户有用。"
+  "选择词条,然后反查它的 code。"
   (interactive)
   (when (region-active-p)
     (let* ((string (buffer-substring-no-properties (region-beginning) 
(region-end)))
            code)
       (if (not (string-match-p "^\\cc+\\'" string))
-          (error "不是纯中文字符串")
-        (setq code (pyim-dcache-search-word-code string))
-        (if code
-            (message "%S -> %S " string code)
-          (message "没有找到 %S 对应的编码。" string))))))
+          (error "PYIM: 不是纯中文字符串。")
+        (setq codes (pyim-cstring-to-codes string pyim-default-scheme))
+        (if codes
+            (message "PYIM (%S): %S -> %S" pyim-default-scheme string codes)
+          (message "PYIM: 没有找到 %S 对应的编码。" string)))
+      (deactivate-mark))))
 
 ;; ** pyim 中文字符串工具
 (require 'pyim-cstring)



reply via email to

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