[elpa] externals/ebdb-i18n-chn 1ee38b9 06/16: Re-convolute ebdb-string-i18n for addresses

[Stefan Monnier]

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

    Re-convolute ebdb-string-i18n for addresses
    
    * packages/ebdb-i18n-chn/ebdb-i18n-chn.el (ebdb-string-i18n): Dunno
      how that happened.
---
 ebdb-i18n-chn.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ebdb-i18n-chn.el b/ebdb-i18n-chn.el
index 82ad9fb..82feb80 100644
--- a/ebdb-i18n-chn.el
+++ b/ebdb-i18n-chn.el
@@ -72,8 +72,8 @@
 
 (cl-defmethod ebdb-string-i18n ((adr ebdb-field-address)
                                (_cc (eql chn)))
-  (if (eql (aref char-script-table (aref (car streets) 0)) 'han)
-      (with-slots (streets locality region postcode) adr
+  (with-slots (streets locality region postcode) adr
+    (if (eql (aref char-script-table (aref (car streets) 0)) 'han)
        (concat
         ;; There are four municipalities, we don't need to repeat
         ;; city-plus-province for them.
@@ -81,8 +81,8 @@
           region)
         locality
         (mapconcat #'identity streets "")
-        ", " postcode))
-    (ebdb-format-address address 2)))
+        ", " postcode)
+      (ebdb-format-address adr 2))))
 
 ;; 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