[elpa] externals/pyim 13a193a: * pyim.el (pyim-cregexp-build-1): handle ' char better.

[ELPA Syncer]

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

    * pyim.el (pyim-cregexp-build-1): handle ' char better.
---
 pyim.el | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/pyim.el b/pyim.el
index 8cb741b..e3ff5ea 100644
--- a/pyim.el
+++ b/pyim.el
@@ -3864,11 +3864,10 @@ PUNCT-LIST 格式类似：
          (class (pyim-scheme-get-option scheme-name :class))
          (code-prefix (pyim-scheme-get-option scheme-name :code-prefix))
          (sep "#####&&&&#####")
-         (lst (split-string
-               (replace-regexp-in-string
-                "\\([a-z']+\\)" (concat sep "\\1" sep) str)
-               sep))
-         (lst (remove "" lst)))
+         (lst (remove "" (split-string
+                          (replace-regexp-in-string
+                           "\\([a-z]+'*\\)" (concat sep "\\1" sep) str)
+                          sep))))
     ;; 确保 pyim 词库加载
     (pyim-dcache-init-variables)
     ;; pyim 暂时只支持全拼和双拼搜索
@@ -3878,14 +3877,9 @@ PUNCT-LIST 格式类似：
      (lambda (string)
        (if (or (pyim-string-match-p "[^a-z']+" string))
            string
-         (let* ((imobjs
-                 ;; 如果一个字符串以'结尾,就按照拼音首字母字符串处理。
-                 (if (pyim-string-match-p "'$" string)
-                     (list (mapcar #'(lambda (x)
-                                       (list (char-to-string x)))
-                                   (string-to-list string)))
-                   ;; Slowly operating, need to improve.
-                   (pyim-imobjs-create string scheme-name)))
+         (let* ((imobjs (pyim-imobjs-create
+                         (replace-regexp-in-string "'" "" string)
+                         scheme-name))
                 (regexp-list
                  (mapcar
                   #'(lambda (imobj)