[elpa] externals/pyim f5bc9da4fe 5/5: * pyim-dhashcache.el (pyim-dhashcache-export): Use sort-lines.

[ELPA Syncer]

branch: externals/pyim
commit f5bc9da4fe305384c06ee5ae38190f360ccf1b04
Author: Feng Shu <tuma...@163.com>
Commit: Feng Shu <tuma...@163.com>

    * pyim-dhashcache.el (pyim-dhashcache-export): Use sort-lines.
---
 pyim-dhashcache.el  | 5 ++++-
 tests/pyim-tests.el | 4 ++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/pyim-dhashcache.el b/pyim-dhashcache.el
index d4ff1093a1..d79b0bf110 100644
--- a/pyim-dhashcache.el
+++ b/pyim-dhashcache.el
@@ -39,6 +39,7 @@
 (require 'pyim-dcache)
 (require 'pyim-dict)
 (require 'pyim-scheme)
+(require 'sort)
 
 (defvar pyim-dhashcache-count-types
   `((day
@@ -718,7 +719,6 @@ pyim 使用的词库文件是简单的文本文件，编码 *强制* 为 \\='utf
 如果 CONFIRM 为 non-nil，文件存在时将会提示用户是否覆盖，
 默认为覆盖模式"
   (with-temp-buffer
-    (insert ";;; -*- coding: utf-8-unix -*-\n")
     (maphash
      (lambda (key value)
        (let ((value (cl-remove-if
@@ -733,6 +733,9 @@ pyim 使用的词库文件是简单的文本文件，编码 *强制* 为 \\='utf
          (when value
            (insert (format "%s %s\n" key (mapconcat #'identity value " "))))))
      dcache)
+    (sort-lines nil (point-min) (point-max))
+    (goto-char (point-min))
+    (insert ";;; -*- coding: utf-8-unix -*-\n")
     (pyim-dcache-write-file file confirm)))
 
 (cl-defmethod pyim-dcache-export-words-and-counts
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 829f0e1e81..485eb77bf5 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -1033,6 +1033,7 @@
         (file (pyim-tests-make-temp-file)))
     (puthash "你好" 10 pyim-dhashcache-iword2count)
     (puthash "尼耗" 1 pyim-dhashcache-iword2count)
+    (puthash "wo-hao" (list "我好") pyim-dhashcache-icode2word)
     (puthash "ni-hao" (list "你好" "尼耗") pyim-dhashcache-icode2word)
     (pyim-dcache-export-words-and-counts file)
     (with-temp-buffer
@@ -1041,6 +1042,7 @@
                      ";;; -*- coding: utf-8-unix -*-
 你好 10
 尼耗 1
+我好 0
 ")))
     (pyim-dcache-export-words-and-counts file nil t)
     (with-temp-buffer
@@ -1049,6 +1051,7 @@
                      ";;; -*- coding: utf-8-unix -*-
 你好
 尼耗
+我好
 ")))
     (pyim-dcache-export-personal-words file)
     (with-temp-buffer
@@ -1056,6 +1059,7 @@
       (should (equal (buffer-string)
                      ";;; -*- coding: utf-8-unix -*-
 ni-hao 你好 尼耗
+wo-hao 我好
 ")))))
 
 (ert-deftest pyim-tests-pyim-dcache-insert-word ()