[elpa] externals/pyim 1516af70bc 53/58: pyim-punctuation-pair-status -> pyim-punctuation--pair-status

[ELPA Syncer]

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

    pyim-punctuation-pair-status -> pyim-punctuation--pair-status
---
 pyim-punctuation.el | 10 +++++-----
 tests/pyim-tests.el |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/pyim-punctuation.el b/pyim-punctuation.el
index 59524fcdf6..5be611f50c 100644
--- a/pyim-punctuation.el
+++ b/pyim-punctuation.el
@@ -85,7 +85,7 @@ pyim 输入半角标点，函数列表中每个函数都有一个参数：char 
 2. 当第一个元素为 \\='no 时，输入半角标点。
 3. 当第一个元素为 \\='auto 时，根据中英文环境，自动切换。")
 
-(defvar pyim-punctuation-pair-status
+(defvar pyim-punctuation--pair-status
   '(("\"" nil) ("'" nil))
   "成对标点符号切换状态.")
 
@@ -96,7 +96,7 @@ If you don't like this function, set the variable to nil")
 
 (pyim-register-local-variables
  '(pyim-punctuation-translate-p
-   pyim-punctuation-pair-status
+   pyim-punctuation--pair-status
    pyim-punctuation-escape-list
    pyim-punctuation-half-width-functions))
 
@@ -203,15 +203,15 @@ PUNCT-LIST 格式类似：
 标点符号。
 
 函数 `pyim-punctuation-return-proper-punct' 内部，我们使用变量
-`pyim-punctuation-pair-status' 来记录 “成对” 中文标点符号的状态。"
+`pyim-punctuation--pair-status' 来记录 “成对” 中文标点符号的状态。"
   (let* ((str (car punc-list))
          (punc (cdr punc-list))
-         (switch-p (cdr (assoc str pyim-punctuation-pair-status))))
+         (switch-p (cdr (assoc str pyim-punctuation--pair-status))))
     (if (= (safe-length punc) 1)
         (car punc)
       (if before
           (setq switch-p (not switch-p))
-        (setf (cdr (assoc str pyim-punctuation-pair-status))
+        (setf (cdr (assoc str pyim-punctuation--pair-status))
               (not switch-p)))
       (if switch-p
           (car punc)
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index aac46c4b55..b16444377d 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -391,7 +391,7 @@
     (should (equal (buffer-string) "[]")))
 
   (with-temp-buffer
-    (let ((pyim-punctuation-pair-status
+    (let ((pyim-punctuation--pair-status
            '(("\"" nil) ("'" nil))))
       (insert "[{''}]")
       (backward-char 3)
@@ -401,7 +401,7 @@
       (should (equal (buffer-string) "[{''}]"))))
 
   (with-temp-buffer
-    (let ((pyim-punctuation-pair-status
+    (let ((pyim-punctuation--pair-status
            '(("\"" nil) ("'" nil))))
       (insert "[{''}]")
       (backward-char 3)
@@ -410,7 +410,7 @@
       (pyim-punctuation-translate-at-point)
       (should (equal (buffer-string) "[{''}]"))))
 
-  (let ((pyim-punctuation-pair-status
+  (let ((pyim-punctuation--pair-status
          '(("\"" nil) ("'" nil))))
     (should (equal (pyim-punctuation-return-proper-punct '("'" "‘" "’")) "‘"))
     (should (equal (pyim-punctuation-return-proper-punct '("'" "‘" "’")) 
"’"))))