[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)