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

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

[elpa] externals/pyim 9a45018 2/2: * pyim-pinyin.el (pyim-pinyin-find-fu


From: ELPA Syncer
Subject: [elpa] externals/pyim 9a45018 2/2: * pyim-pinyin.el (pyim-pinyin-find-fuzzy): Use cl-assoc instead of assoc.
Date: Wed, 8 Dec 2021 22:57:32 -0500 (EST)

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

    * pyim-pinyin.el (pyim-pinyin-find-fuzzy): Use cl-assoc instead of assoc.
    
    assoc in Emacs25 do not support testfn.
---
 pyim-pinyin.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/pyim-pinyin.el b/pyim-pinyin.el
index b68b427..6a3baae 100644
--- a/pyim-pinyin.el
+++ b/pyim-pinyin.el
@@ -162,11 +162,9 @@
  (\"f\" \"en\" \"f\" \"en\") -> ((\"f\" \"en\" \"f\" \"en\")
                                  (\"f\" \"eng\" \"f\" \"en\"))"
   (let* ((fuzzy-alist pyim-pinyin-fuzzy-alist)
-         (sm-list (or (assoc (nth 0 info)
-                             fuzzy-alist #'equal)
+         (sm-list (or (cl-assoc (nth 0 info) fuzzy-alist :test #'equal)
                       (list (nth 0 info))))
-         (ym-list (or (assoc (nth 1 info)
-                             fuzzy-alist #'equal)
+         (ym-list (or (cl-assoc (nth 1 info) fuzzy-alist :test #'equal)
                       (list (nth 1 info))))
          result)
     (dolist (a sm-list)



reply via email to

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