diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-08-13 14:53:22 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-08-13 14:55:17 -0700 |
| commit | a2309a5f35849907744ce758a3f4408f179a92ee (patch) | |
| tree | b9034c9ad95ee7dab60dffffb7e76bb5fa8dd5a7 | |
| parent | d7c6ea172c01c5c20570c66ea3c65cc3257a8d34 (diff) | |
Stick to variable naming scheme
* packages/ebdb-i18n-chn/ebdb-i18n-chn.el (ebdb-i18n-china-compound-surnames):
All auxiliary variables should start with "ebdb-i18n".
| -rw-r--r-- | ebdb-i18n-chn.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ebdb-i18n-chn.el b/ebdb-i18n-chn.el index 7fd80ac..1287b82 100644 --- a/ebdb-i18n-chn.el +++ b/ebdb-i18n-chn.el @@ -83,7 +83,7 @@ ;; This isn't all of them, but it seems like a reasonable subset. See ;; https://en.wikipedia.org/wiki/Chinese_compound_surname for a fuller ;; list. -(defvar ebdb-china-compound-surnames +(defvar ebdb-i18n-chn-compound-surnames '("慕容" "上官" "司马" "欧阳" "司徒" "司空" "西门" "爱新觉罗") "A list of Chinese surnames that are longer than one character.") @@ -93,7 +93,9 @@ (_script (eql han)) &optional _slots) (let (surname given-names) - (if (string-match (format "\\`\\(%s\\)\\(.*\\)\\'" (regexp-opt ebdb-china-compound-surnames)) string) + (if (string-match (format "\\`\\(%s\\)\\(.*\\)\\'" + (regexp-opt ebdb-i18n-chn-compound-surnames)) + string) (setq surname (match-string 1 string) given-names (match-string 2 string)) (setq surname (substring string 0 1) |