[elpa] externals/pyim 904158eeea 05/22: Add functions about last created words.

[ELPA Syncer]

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

    Add functions about last created words.
---
 pyim-process.el | 15 ++++++++++++---
 pyim.el         | 11 +++++------
 2 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/pyim-process.el b/pyim-process.el
index 586ae22163..a9378d6112 100644
--- a/pyim-process.el
+++ b/pyim-process.el
@@ -740,9 +740,7 @@ BUG：拼音无法有效地处理多音字。"
     ;; 以词定字功能使用时，保存的词条应该是定字后的词条。
     (when (pyim-process-select-subword-p)
       (setq word (pyim-outcome-get-subword word)))
-    ;; 记录最近创建的词条，用于快速删词功能。
-    (setq pyim-process-last-created-words
-          (cons word (remove word pyim-process-last-created-words)))
+    (pyim-process-add-last-created-word word)
     (let* ((scheme (pyim-scheme-current))
            (code-prefix (pyim-scheme-code-prefix scheme))
            (codes (pyim-cstring-to-codes
@@ -769,6 +767,17 @@ BUG：拼音无法有效地处理多音字。"
                    (format "%s -> %s" (concat (or code-prefix "") code) word))
                  codes "; "))))
 
+(defun pyim-process-last-created-words ()
+  pyim-process-last-created-words)
+
+(defun pyim-process-add-last-created-word (word)
+  (setq pyim-process-last-created-words
+        (cons word (remove word pyim-process-last-created-words))))
+
+(defun pyim-process-remove-last-created-word (word)
+  (setq pyim-process-last-created-words
+        (remove word pyim-process-last-created-words)))
+
 (defun pyim-process-delete-word (word)
   (pyim-dcache-delete-word word))
 
diff --git a/pyim.el b/pyim.el
index c60198270c..cc71672902 100644
--- a/pyim.el
+++ b/pyim.el
@@ -487,9 +487,9 @@ FILE 的格式与 `pyim-dcache-export' 生成的文件格式相同，
 (defun pyim-delete-last-word ()
   "从个人词库中删除最新创建的词条。"
   (interactive)
-  (when pyim-process-last-created-words
-    (pyim-process-delete-word (car pyim-process-last-created-words))
-    (message "pyim: 从个人词库中删除词条 “%s” !" (car pyim-process-last-created-words))))
+  (when (pyim-process-last-created-words)
+    (pyim-process-delete-word (car (pyim-process-last-created-words)))
+    (message "pyim: 从个人词库中删除词条 “%s” !" (car 
(pyim-process-last-created-words)))))
 
 (defun pyim-delete-word-at-point (&optional number silent)
   "将光标前字符数为 NUMBER 的中文字符串从个人词库中删除
@@ -514,11 +514,10 @@ FILE 的格式与 `pyim-dcache-export' 生成的文件格式相同，
         (deactivate-mark))))
    (t (let ((words (completing-read-multiple
                     "请选择需要删除的词条(可多选): "
-                    pyim-process-last-created-words)))
+                    (pyim-process-last-created-words))))
         (dolist (word words)
           (pyim-process-delete-word word)
-          (setq pyim-process-last-created-words
-                (remove word pyim-process-last-created-words))
+          (pyim-process-remove-last-created-word word)
           (message "将词条: %S 从 personal 缓冲中删除。" word))))))
 
 ;; ** 选词功能