[elpa] externals/ebdb bfc5d9d 208/350: Internationalized ebdb-parse method for names must accept slots arg

[Eric Abrahamsen]

branch: externals/ebdb
commit bfc5d9d851f78ebb0db0bfb24adc1b28755d4f7a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Internationalized ebdb-parse method for names must accept slots arg
    
    Addresses #33
    
    * ebdb-chn.el (ebdb-parse-i18n): Both these methods must handle a
      "slots" argument.
    * ebdb-i18n.el (ebdb-parse)
---
 ebdb-chn.el  | 3 ++-
 ebdb-i18n.el | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ebdb-chn.el b/ebdb-chn.el
index dce7dfe..d785116 100644
--- a/ebdb-chn.el
+++ b/ebdb-chn.el
@@ -73,7 +73,8 @@
 
 (cl-defmethod ebdb-parse-i18n ((class (subclass ebdb-field-name-complex))
                               (string string)
-                              (script (eql han)))
+                              (script (eql han))
+                              &optional slots)
   (let (surname given-names)
     (if (string-match (format "\\`\\(%s\\)\\(.*\\)\\'" (regexp-opt 
ebdb-china-compound-surnames)) string)
        (setq surname (match-string 1 string)
diff --git a/ebdb-i18n.el b/ebdb-i18n.el
index 3224489..0063ae7 100644
--- a/ebdb-i18n.el
+++ b/ebdb-i18n.el
@@ -182,7 +182,7 @@ for their symbol representations.")
     (or (and script
             (null (memq script ebdb-i18n-ignorable-scripts))
             (condition-case nil
-                (ebdb-parse-i18n class string script)
+                (ebdb-parse-i18n class string script slots)
               (cl-no-applicable-method
                nil)))
        (cl-call-next-method))))