branch: externals/ebdb
commit bfc5d9d851f78ebb0db0bfb24adc1b28755d4f7a
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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))))
