[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 3f1eb0d 04/17: New defsubst ebdb-i18n-countries
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb 3f1eb0d 04/17: New defsubst ebdb-i18n-countries |
Date: |
Tue, 26 Sep 2017 17:15:32 -0400 (EDT) |
branch: externals/ebdb
commit 3f1eb0de6e34062ae0dfea401070df9d7f65ce4d
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
New defsubst ebdb-i18n-countries
* ebdb-i18n.el (ebdb-i18n-countries): Just appends the two alists
ebdb-i18n-countries-pref-scripts and ebdb-i18n-countries.
(ebdb-internationalize-addresses): Use.
(ebdb-read): Use.
* ebdb.el (ebdb-format-address): Use.
---
ebdb-i18n.el | 19 ++++++++++---------
ebdb.el | 4 ++--
2 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/ebdb-i18n.el b/ebdb-i18n.el
index 180ab0f..b94e9cd 100644
--- a/ebdb-i18n.el
+++ b/ebdb-i18n.el
@@ -335,6 +335,10 @@ English version for display."
English, and a three-letter symbol identifying the country, as
per ISO 3166-1 alpha 3.")
+(defsubst ebdb-i18n-countries ()
+ (append ebdb-i18n-countries-pref-scripts
+ ebdb-i18n-countries))
+
;; Taken from https://en.wikipedia.org/wiki/Telephone_country_codes,
;; on Jul 30, 2016
(defvar ebdb-i18n-phone-codes
@@ -662,16 +666,14 @@ for their symbol representations.")
(cl-defmethod ebdb-read :extra "i18n" ((class (subclass ebdb-field-address))
&optional slots obj)
- (let* ((countries (append ebdb-i18n-countries-pref-scripts
- ebdb-i18n-countries))
- (country
+ (let ((country
(cdr (assoc (completing-read
"Country: "
countries
nil nil
(when obj (car (rassoc (ebdb-address-country obj)
- countries))))
- ebdb-i18n-countries))))
+ (ebdb-i18n-countries)))))
+ (ebdb-i18n-countries)))))
(setq slots
(condition-case nil
(ebdb-read-i18n class
@@ -705,13 +707,12 @@ for their symbol representations.")
;; (when (string-match (regexp-opt
;; (mapcar
;; (lambda (elt) (car elt))
-;; (append ebdb-i18n-countries-pref-scripts
-;; ebdb-i18n-countries)))
+;; (ebdb-i18n-countries)))
;; str)
;; (cdr-safe (assoc-string
;; (match-string 0 str)
-;; (append ebdb-i18n-countries-pref-scripts
-;; ebdb-i18n-countries)))))))
+;; (ebdb-i18n-countries)
+;; ))))))
;; (or (and cc
;; (symbolp cc)
;; (condition-case nil
diff --git a/ebdb.el b/ebdb.el
index 80c219f..bbe3656 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -53,6 +53,7 @@
(require 'eieio-opt)
;; Pacify the compiler.
+(autoload 'ebdb-i18n-countries "ebdb-i18n")
(autoload 'widget-group-match "wid-edit")
(autoload 'ebdb-migrate-from-bbdb "ebdb-migrate")
(autoload 'eieio-customize-object "eieio-custom")
@@ -5032,8 +5033,7 @@ This function is a possible formatting function for
(require 'ebdb-i18n)
(setq country (car-safe (rassq
country
- (append ebdb-i18n-countries-pref-scripts
- ebdb-i18n-countries)))))
+ (ebdb-i18n-countries)))))
(concat (if streets
(concat (mapconcat 'identity streets "\n") "\n"))
(ebdb-concat ", " (ebdb-address-locality address)
- [elpa] externals/ebdb updated (c298037 -> 91d73f8), Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 1abf847 02/17: Fix slot customize declaration for bank account field, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 2a17bb6 03/17: Set up EBDB buffers to offer save on save-some-buffers, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 26d632b 05/17: Finish ebdb-internationalize-addresses, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 3f1eb0d 04/17: New defsubst ebdb-i18n-countries,
Eric Abrahamsen <=
- [elpa] externals/ebdb f143265 07/17: Quietly swap order of arguments to ebdb-read-i18n for addresses, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 880be9f 14/17: Fix to dumb mistakes in 8fc7b6d69, fast lookups, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb b371784 15/17: Change ebdb-vcard to use generic ebdb-field-tags, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb c5aac30 01/17: Change name of automatic save option, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb fb7e4d2 11/17: Add formatting for Russian phone numbers, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb e947f59 06/17: Drop postcode guards, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb e78dd19 10/17: Provide an ebdb-parse method for addresses, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 7e7d6cd 09/17: Start collecting random internationalized methods, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb e326805 08/17: Simplify address formatting, Eric Abrahamsen, 2017/09/26
- [elpa] externals/ebdb 4f8e2a0 16/17: Use ebdb-i18n-countries defsubst in i18n address reading, Eric Abrahamsen, 2017/09/26