[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb-i18n-chn a2309a5 03/16: Stick to variable naming s

From: Stefan Monnier
Subject: [elpa] externals/ebdb-i18n-chn a2309a5 03/16: Stick to variable naming scheme
Date: Sun, 29 Nov 2020 17:03:26 -0500 (EST)

branch: externals/ebdb-i18n-chn
commit a2309a5f35849907744ce758a3f4408f179a92ee
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Stick to variable naming scheme
    * packages/ebdb-i18n-chn/ebdb-i18n-chn.el 
      All auxiliary variables should start with "ebdb-i18n".
 ebdb-i18n-chn.el | 6 ++++--
 1 file 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
@@ -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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]