[elpa] externals/ebdb a4abcbc 24/33: Fix to internationalized ebdb-read for phones

[Eric Abrahamsen]

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

    Fix to internationalized ebdb-read for phones
    
    * ebdb-i18n.el (ebdb-read): Need to pick up the existing area code.
    * ebdb.el (ebdb-read): But really, why aren't we letting them edit the
      area code?
---
 ebdb-i18n.el | 2 +-
 ebdb.el      | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/ebdb-i18n.el b/ebdb-i18n.el
index 27df4ea..180ab0f 100644
--- a/ebdb-i18n.el
+++ b/ebdb-i18n.el
@@ -728,7 +728,7 @@ for their symbol representations.")
                        "Country/Region: "
                        ebdb-i18n-phone-codes nil nil)
                       ebdb-i18n-phone-codes))))
-       area-code)
+       (area-code (when obj (slot-value obj 'area-code))))
     ;; Obviously this whole structure thing is just poorly
     ;; thought-out.
     (when (consp country)
diff --git a/ebdb.el b/ebdb.el
index 644fdfb..56d57d0 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1786,6 +1786,8 @@ first one."
          (concat "Number"
                  (when country
                    (format " +%d" country))
+                 ;; Why aren't we allowing them to change the area
+                 ;; code?
                  (when area
                    (format " (%d)" area))
                  ": "))