;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317\307\304&\210\310\320\312\313\321DD\322\316\317\307\304&\207" [require ebdb ebdb-i18n-basic custom-declare-group ebdb-i18n nil "Options for EBDB internationalization." :group custom-declare-variable ebdb-i18n-ignorable-scripts funcall function #[0 "\300\207" [(latin)] 1] "A list of script types that should be considered \"standard\";\n ie, no special handling will be done for them." :type list ebdb-i18n-countries-pref-scripts #[0 "\300\207" [nil] 1] "An alist equivalent to `ebdb-i18n-countries', but in alternate scripts.\nIe, each alist element is a cons of a country name, in a\nnon-English script, plus the same three-letter symbol as found in\n`ebdb-i18n-countries'. This is meant to allow country names to\nbe listed in the country's own script, but the name can be given\nin any script the user prefers.\n\nAny country name listed here will be offered along with the\nEnglish version for completion, and will be preferred over the\nEnglish version for display."] 8) #@148 Mapping between a string label for countries or regions, in English, and a three-letter symbol identifying the country, as per ISO 3166-1 alpha 3. (defvar ebdb-i18n-countries '(("Afghanistan" . afg) ("Åland Islands" . ala) ("Albania" . alb) ("Algeria" . dza) ("American Samoa" . asm) ("Andorra" . and) ("Angola" . ago) ("Anguilla" . aia) ("Antarctica" . ata) ("Antigua and Barbuda" . atg) ("Argentina" . arg) ("Armenia" . arm) ("Aruba" . abw) ("Australia" . aus) ("Austria" . aut) ("Azerbaijan" . aze) ("Bahamas" . bhs) ("Bahrain" . bhr) ("Bangladesh" . bgd) ("Barbados" . brb) ("Belarus" . blr) ("Belgium" . bel) ("Belize" . blz) ("Benin" . ben) ("Bermuda" . bmu) ("Bhutan" . btn) ("Bolivia" . bol) ("Bonaire" . bes) ("Sint Eustatius" . bes) ("Saba" . bes) ("Bosnia and Herzegovina" . bih) ("Botswana" . bwa) ("Bouvet Island" . bvt) ("Brazil" . bra) ("British Indian Ocean Territory" . iot) ("Brunei Darussalam" . brn) ("Bulgaria" . bgr) ("Burkina Faso" . bfa) ("Burundi" . bdi) ("Cabo Verde" . cpv) ("Cambodia" . khm) ("Cameroon" . cmr) ("Canada" . can) ("Cayman Islands" . cym) ("Central African Republic" . caf) ("Chad" . tcd) ("Chile" . chl) ("China" . chn) ("Christmas Island" . cxr) ("Cocos (Keeling) Islands" . cck) ("Colombia" . col) ("Comoros" . com) ("Congo" . cog) ("Congo" . cod) ("Cook Islands" . cok) ("Costa Rica" . cri) ("Côte d'Ivoire" . civ) ("Croatia" . hrv) ("Cuba" . cub) ("Curaçao" . cuw) ("Cyprus" . cyp) ("Czech Republic" . cze) ("Denmark" . dnk) ("Djibouti" . dji) ("Dominica" . dma) ("Dominican Republic" . dom) ("Ecuador" . ecu) ("Egypt" . egy) ("El Salvador" . slv) ("Emacs" . emc) ("Equatorial Guinea" . gnq) ("Eritrea" . eri) ("Estonia" . est) ("Ethiopia" . eth) ("Falkland Islands" . flk) ("Faroe Islands" . fro) ("Fiji" . fji) ("Finland" . fin) ("France" . fra) ("French Guiana" . guf) ("French Polynesia" . pyf) ("French Southern Territories" . atf) ("Gabon" . gab) ("Gambia" . gmb) ("Georgia" . geo) ("Germany" . deu) ("Ghana" . gha) ("Gibraltar" . gib) ("Greece" . grc) ("Greenland" . grl) ("Grenada" . grd) ("Guadeloupe" . glp) ("Guam" . gum) ("Guatemala" . gtm) ("Guernsey" . ggy) ("Guinea" . gin) ("Guinea-Bissau" . gnb) ("Guyana" . guy) ("Haiti" . hti) ("Heard Island and McDonald Islands" . hmd) ("Holy See" . vat) ("Honduras" . hnd) ("Hong Kong" . hkg) ("Hungary" . hun) ("Iceland" . isl) ("India" . ind) ("Indonesia" . idn) ("Iran" . irn) ("Iraq" . irq) ("Ireland" . irl) ("Isle of Man" . imn) ("Israel" . isr) ("Italy" . ita) ("Jamaica" . jam) ("Japan" . jpn) ("Jersey" . jey) ("Jordan" . jor) ("Kazakhstan" . kaz) ("Kenya" . ken) ("Kiribati" . kir) ("North Korea" . prk) ("South Korea" . kor) ("Kuwait" . kwt) ("Kyrgyzstan" . kgz) ("Laos" . lao) ("Lao People's Democratic Republic" . lao) ("Latvia" . lva) ("Lebanon" . lbn) ("Lesotho" . lso) ("Liberia" . lbr) ("Libya" . lby) ("Liechtenstein" . lie) ("Lithuania" . ltu) ("Luxembourg" . lux) ("Macao" . mac) ("Macedonia" . mkd) ("Madagascar" . mdg) ("Malawi" . mwi) ("Malaysia" . mys) ("Maldives" . mdv) ("Mali" . mli) ("Malta" . mlt) ("Marshall Islands" . mhl) ("Martinique" . mtq) ("Mauritania" . mrt) ("Mauritius" . mus) ("Mayotte" . myt) ("Mexico" . mex) ("Micronesia" . fsm) ("Moldova" . mda) ("Monaco" . mco) ("Mongolia" . mng) ("Montenegro" . mne) ("Montserrat" . msr) ("Morocco" . mar) ("Mozambique" . moz) ("Myanmar" . mmr) ("Namibia" . nam) ("Nauru" . nru) ("Nepal" . npl) ("Netherlands" . nld) ("New Caledonia" . ncl) ("New Zealand" . nzl) ("Nicaragua" . nic) ("Niger" . ner) ("Nigeria" . nga) ("Niue" . niu) ("Norfolk Island" . nfk) ("Northern Mariana Islands" . mnp) ("Norway" . nor) ("Oman" . omn) ("Pakistan" . pak) ("Palau" . plw) ("Palestine" . pse) ("Panama" . pan) ("Papua New Guinea" . png) ("Paraguay" . pry) ("Peru" . per) ("Philippines" . phl) ("Pitcairn" . pcn) ("Poland" . pol) ("Portugal" . prt) ("Puerto Rico" . pri) ("Qatar" . qat) ("Réunion" . reu) ("Romania" . rou) ("Russian Federation" . rus) ("Rwanda" . rwa) ("Saint Barthélemy" . blm) ("Saint Helena, Ascension and Tristan da Cunha" . shn) ("Saint Kitts and Nevis" . kna) ("Saint Lucia" . lca) ("Saint Martin" . maf) ("Saint Pierre and Miquelon" . spm) ("Saint Vincent and the Grenadines" . vct) ("Samoa" . wsm) ("San Marino" . smr) ("Sao Tome and Principe" . stp) ("Saudi Arabia" . sau) ("Senegal" . sen) ("Serbia" . srb) ("Seychelles" . syc) ("Sierra Leone" . sle) ("Singapore" . sgp) ("Sint Maarten" . sxm) ("Slovakia" . svk) ("Slovenia" . svn) ("Solomon Islands" . slb) ("Somalia" . som) ("South Africa" . zaf) ("South Georgia" . sgs) ("South Georgia and the South Sandwich Islands" . sgs) ("South Sudan" . ssd) ("Spain" . esp) ("Sri Lanka" . lka) ("Sudan" . sdn) ("Suriname" . sur) ("Svalbard and Jan Mayen" . sjm) ("Swaziland" . swz) ("Sweden" . swe) ("Switzerland" . che) ("Syrian Arab Republic" . syr) ("Taiwan" . twn) ("Tajikistan" . tjk) ("Tanzania" . tza) ("Thailand" . tha) ("Timor-Leste" . tls) ("Togo" . tgo) ("Tokelau" . tkl) ("Tonga" . ton) ("Trinidad and Tobago" . tto) ("Tunisia" . tun) ("Turkey" . tur) ("Turkmenistan" . tkm) ("Turks and Caicos Islands" . tca) ("Tuvalu" . tuv) ("Uganda" . uga) ("Ukraine" . ukr) ("UAE" . are) ("United Arab Emirates" . are) ("UK" . gbr) ("United Kingdom of Great Britain and Northern Ireland" . gbr) ("USA" . usa) ("United States of America" . usa) ("United States Minor Outlying Islands" . umi) ("Uruguay" . ury) ("Uzbekistan" . uzb) ("Vanuatu" . vut) ("Venezuela" . ven) ("Viet Nam" . vnm) ("Virgin Islands (British)" . vgb) ("Virgin Islands (U.S.)" . vir) ("Wallis and Futuna" . wlf) ("Western Sahara" . esh) ("Yemen" . yem) ("Zambia" . zmb) ("Zimbabwe" . zwe)) (#$ . 1491)) (defalias 'ebdb-i18n-countries #[0 "\302 \"\207" [ebdb-i18n-countries-pref-scripts ebdb-i18n-countries append] 3]) (put 'ebdb-i18n-countries 'byte-optimizer 'byte-compile-inline-expand) #@51 Mapping of country names to country-code numbers. (defvar ebdb-i18n-phone-codes '(("Afghanistan" . 93) ("Åland Islands" 358 18) ("Albania" . 355) ("Algeria" . 213) ("American Samoa" 1 684) ("Andorra" . 376) ("Angola" . 244) ("Anguilla" 1 264) ("Antigua and Barbuda" 1 268) ("Argentina" . 54) ("Armenia" . 374) ("Aruba" . 297) ("Ascension" . 247) ("Australia" . 61) ("Australian External Territories" . 672) ("Austria" . 43) ("Azerbaijan" . 994) ("Bahamas" 1 242) ("Bahrain" . 973) ("Bangladesh" . 880) ("Barbados" 1 246) ("Barbuda" 1 268) ("Belarus" . 375) ("Belgium" . 32) ("Belize" . 501) ("Benin" . 229) ("Bermuda" 1 441) ("Bhutan" . 975) ("Bolivia" . 591) ("Bonaire" 599 7) ("Bosnia and Herzegovina" . 387) ("Botswana" . 267) ("Brazil" . 55) ("British Indian Ocean Territory" . 246) ("British Virgin Islands" 1 284) ("Brunei Darussalam" . 673) ("Bulgaria" . 359) ("Burkina Faso" . 226) ("Burundi" . 257) ("Cambodia" . 855) ("Cameroon" . 237) ("Canada" . 1) ("Cape Verde" . 238) ("Caribbean Netherlands" 599 (3 4 7)) ("Cayman Islands" 1 345) ("Central African Republic" . 236) ("Chad" . 235) ("Chatham Island, New Zealand" . 64) ("Chile" . 56) ("China" . 86) ("Christmas Island" . 61) ("Cocos (Keeling) Islands" . 61) ("Colombia" . 57) ("Comoros" . 269) ("Congo" . 242) ("Congo, Democratic Republic of the (Zaire)" . 243) ("Cook Islands" . 682) ("Costa Rica" . 506) ("Ivory Coast" . 225) ("Croatia" . 385) ("Cuba" . 53) ("Guantanamo Bay, Cuba" 53 99) ("Curaçao" 599 9) ("Cyprus" . 357) ("Czech Republic" . 420) ("Denmark" . 45) ("Diego Garcia" . 246) ("Djibouti" . 253) ("Dominica" 1 767) ("Dominican Republic" 1 (809 829 849)) ("East Timor" . 670) ("Easter Island" . 56) ("Ecuador" . 593) ("Egypt" . 20) ("El Salvador" . 503) ("Ellipso (Mobile Satellite service)" 881 (2 3)) ("EMSAT (Mobile Satellite service)" 882 13) ("Equatorial Guinea" . 240) ("Eritrea" . 291) ("Estonia" . 372) ("Ethiopia" . 251) ("Falkland Islands" . 500) ("Faroe Islands" . 298) ("Fiji" . 679) ("Finland" . 358) ("France" . 33) ("French Antilles" . 596) ("French Guiana" . 594) ("French Polynesia" . 689) ("Gabon" . 241) ("Gambia" . 220) ("Georgia" . 995) ("Germany" . 49) ("Ghana" . 233) ("Gibraltar" . 350) ("Global Mobile Satellite System (GMSS)" . 881) ("Globalstar (Mobile Satellite Service)" 881 (8 9)) ("Greece" . 30) ("Greenland" . 299) ("Grenada" 1 473) ("Guadeloupe" . 590) ("Guam" 1 671) ("Guatemala" . 502) ("Guernsey" . 44) ("Guinea" . 224) ("Guinea-Bissau" . 245) ("Guyana" . 592) ("Haiti" . 509) ("Honduras" . 504) ("Hong Kong" . 852) ("Hungary" . 36) ("Iceland" . 354) ("ICO Global (Mobile Satellite Service)" 881 (0 1)) ("India" . 91) ("Indonesia" . 62) ("Inmarsat SNAC" . 870) ("International Freephone Service" . 800) ("International Shared Cost Service (ISCS)" . 808) ("Iran" . 98) ("Iraq" . 964) ("Ireland" . 353) ("Iridium (Mobile Satellite service)" 881 (6 7)) ("Isle of Man" . 44) ("Israel" . 972) ("Italy" . 39) ("Jamaica" 1 876) ("Jan Mayen" 47 79) ("Japan" . 81) ("Jersey" . 44) ("Jordan" . 962) ("Kazakhstan" 7 (6 7)) ("Kenya" . 254) ("Kiribati" . 686) ("Korea, North" . 850) ("Korea, South" . 82) ("Kuwait" . 965) ("Kyrgyzstan" . 996) ("Laos" . 856) ("Latvia" . 371) ("Lebanon" . 961) ("Lesotho" . 266) ("Liberia" . 231) ("Libya" . 218) ("Liechtenstein" . 423) ("Lithuania" . 370) ("Luxembourg" . 352) ("Macau" . 853) ("Macedonia" . 389) ("Madagascar" . 261) ("Malawi" . 265) ("Malaysia" . 60) ("Maldives" . 960) ("Mali" . 223) ("Malta" . 356) ("Marshall Islands" . 692) ("Martinique" . 596) ("Mauritania" . 222) ("Mauritius" . 230) ("Mayotte" . 262) ("Mexico" . 52) ("Micronesia, Federated States of" . 691) ("Midway Island, USA" 1 808) ("Moldova" . 373) ("Monaco" . 377) ("Mongolia" . 976) ("Montenegro" . 382) ("Montserrat" 1 664) ("Morocco" . 212) ("Mozambique" . 258) ("Myanmar" . 95) ("Namibia" . 264) ("Nauru" . 674) ("Nepal" . 977) ("Netherlands" . 31) ("Nevis" 1 869) ("New Caledonia" . 687) ("New Zealand" . 64) ("Nicaragua" . 505) ("Niger" . 227) ("Nigeria" . 234) ("Niue" . 683) ("Norfolk Island" . 672) ("Northern Cyprus" 90 392) ("Northern Mariana Islands" 1 670) ("Norway" . 47) ("Oman" . 968) ("Pakistan" . 92) ("Palau" . 680) ("Palestine, State of" . 970) ("Panama" . 507) ("Papua New Guinea" . 675) ("Paraguay" . 595) ("Peru" . 51) ("Philippines" . 63) ("Pitcairn Islands" . 64) ("Poland" . 48) ("Portugal" . 351) ("Puerto Rico" 1 (787 939)) ("Qatar" . 974) ("Réunion" . 262) ("Romania" . 40) ("Russia" . 7) ("Rwanda" . 250) ("Saba" 599 4) ("Saint Barthélemy" . 590) ("Saint Helena" . 290) ("Saint Kitts and Nevis" 1 869) ("Saint Lucia" 1 758) ("Saint Martin (France)" . 590) ("Saint Pierre and Miquelon" . 508) ("Saint Vincent and the Grenadines" 1 784) ("Samoa" . 685) ("San Marino" . 378) ("São Tomé and Príncipe" . 239) ("Saudi Arabia" . 966) ("Senegal" . 221) ("Serbia" . 381) ("Seychelles" . 248) ("Sierra Leone" . 232) ("Singapore" . 65) ("Sint Eustatius" 599 3) ("Sint Maarten (Netherlands)" 1 721) ("Slovakia" . 421) ("Slovenia" . 386) ("Solomon Islands" . 677) ("Somalia" . 252) ("South Africa" . 27) ("South Georgia and the South Sandwich Islands" . 500) ("South Ossetia" 995 34) ("South Sudan" . 211) ("Spain" . 34) ("Sri Lanka" . 94) ("Sudan" . 249) ("Suriname" . 597) ("Svalbard" 47 79) ("Swaziland" . 268) ("Sweden" . 46) ("Switzerland" . 41) ("Syria" . 963) ("Taiwan" . 886) ("Tajikistan" . 992) ("Tanzania" . 255) ("Thailand" . 66) ("Thuraya (Mobile Satellite service)" 882 16) ("Togo" . 228) ("Tokelau" . 690) ("Tonga" . 676) ("Trinidad and Tobago" 1 868) ("Tristan da Cunha" 290 8) ("Tunisia" . 216) ("Turkey" . 90) ("Turkmenistan" . 993) ("Turks and Caicos Islands" 1 649) ("Tuvalu" . 688) ("Uganda" . 256) ("Ukraine" . 380) ("United Arab Emirates" . 971) ("UK" . 44) ("United Kingdom" . 44) ("USA" . 1) ("United States" . 1) ("Universal Personal Telecommunications (UPT)" . 878) ("Uruguay" . 598) ("US Virgin Islands" 1 340) ("Uzbekistan" . 998) ("Vanuatu" . 678) ("Venezuela" . 58) ("Vietnam" . 84) ("Wake Island, USA" 1 808) ("Wallis and Futuna" . 681) ("Yemen" . 967) ("Zambia" . 260) ("Zanzibar" . 255) ("Zimbabwe" . 263)) (#$ . 7298)) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\302\311\312\304#\313#\210\300\314\302\314\315\304#\316#\210\300\317\302\317\320\304#\321#\210\322\306\323\324\325\326%\207" [defalias ebdb-read-i18n cl-generic-define (class slots obj spec) nil "An internationalized version of `ebdb-read'.\n\nThis works the same as `ebdb-read', plus an additional argument\nSPEC. What SPEC is depends on CLASS, but might be a phone\ncountry code, or a country symbol, or a script symbol.\n\nThis method should return a plist of slots for object creation.\n\n(fn CLASS SLOTS OBJ SPEC)" ebdb-parse-i18n (class string spec &optional slots) "An internationalized version of `ebdb-parse'.\n\nThis works the same as `ebdb-read', plus an additional argument\nSPEC. What SPEC is depends on CLASS, but might be a phone\ncountry code, or a country symbol, or a script symbol. SLOTS is\na plist of existing slot values.\n\nThis method should return a new instance of CLASS.\n\n(fn CLASS STRING SPEC &optional SLOTS)" ebdb-string-i18n (field spec) "An internationalized version of `ebdb-string'.\n\n(fn FIELD SPEC)" ebdb-init-field-i18n (field record spec) "An internationalized version of `ebdb-init-field'.\n\n(fn FIELD RECORD SPEC)" ebdb-delete-field-i18n (field record spec unload) "An internationalized version of `ebdb-delete-field'.\n\n(fn FIELD RECORD SPEC UNLOAD)" cl-generic-define-method (:around) (_class _string _spec &optional _slots) t #[1284 "\300 \301\302\303\304\305!\306\"\307$\216 )\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3] 12 "Don't clobber match data when testing names.\n\n(fn CL--CNM CLASS STRING SPEC &optional SLOTS)"]] 6) #@176 Go through all the EBDB contacts and "internationalize" address fields. Essentially this just means swapping out the string country names for their symbol representations. (defalias 'ebdb-internationalize-addresses #[0 "\304\305\211\204\n\306 \210\203%\307\310\311\312\313\314\"\315\"\316\317% \"\266\202\202( \266\202\211\203u\211@\320!\211\203m\211@\321\322\";\203f\3231a\324\325\326\327\321\322\"\330\n \"\"A##\210T\211\2620\202e\210\202f\210A\266\202\2021\210A\266\202\202(\210\331\332\"\207" [ebdb-db-list ebdb-record-tracker ebdb-i18n-countries-pref-scripts ebdb-i18n-countries 0 nil ebdb-load seq-filter make-byte-code 257 "\301\203 \302\300\"\207\303\300\"\207" vconcat vector [object-of-class-p same-class-p] 4 "\n\n(fn R)" ebdb-record-address slot-value country (error) ebdb-record-change-field clone :country assoc-string append message "Internationalized %d addresses"] 16 (#$ . 15122)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\210\300\312\313\314\304\315%\210\300\301\316\317\304\320%\210\300\306\321\322\304\323%\210\300\312\324\325\304\326%\210\300\312\327\330\304\331%\210\300\306\332\333\304\334%\210\300\335\336\337\304\340%\210\300\341\342\343\304\344%\210\345\346!\207" [cl-generic-define-method ebdb-read (:extra "i18n") ((class (subclass ebdb-field-address)) &optional slots obj) t #[1026 "\302\303\304\305 \"\306\211\205\307\310!\305 \"\"@%\305 \"\"A\31114\312\313\314#$0\202:\210\313\314#\262#\207" [ebdb-i18n-countries-pref-scripts ebdb-i18n-countries assoc completing-read "Address country: " append nil rassoc ebdb-address-country (cl-no-method) ebdb-read-i18n plist-put :country] 15 "\n\n(fn CL--CNM CLASS &optional SLOTS OBJ)"] ebdb-string (:extra "i18n") ((adr ebdb-field-address)) #[514 "\300\301\"\211\203\2119\203\3021\303\"0\202\210\304\206  \207" [slot-value country (cl-no-method) ebdb-string-i18n nil] 6 "Internationally-aware version of `ebdb-string' for addresses.\n\n(fn CL--CNM ADR)"] ebdb-parse nil ((class (subclass ebdb-field-address)) (str string) &optional slots) #[1027 "\302\303\"\206!\304\305\306\307\310 \"\"!\"\205!\311\312\313\"\310 \"\"\243\211\203@\2119\203@\3141;\315$\211\2620\202?\210\202@\210#\207" [ebdb-i18n-countries-pref-scripts ebdb-i18n-countries plist-get :country string-match regexp-opt mapcar #[257 "\211@\207" [] 2 "\n\n(fn ELT)"] append assoc-string match-string 0 (cl-no-method) ebdb-parse-i18n] 11 "Internationally-aware version of `ebdb-parse' for addresses.\n\n(fn CL--CNM CLASS STR &optional SLOTS)"] (:extra "i18n") ((class (subclass ebdb-field-phone)) &optional slots obj) #[1026 "\211\203 \301\302\"\202\303\304\305\306\211$\"A\205\301\307\":\203^@\247\2034A@\262@\262\202N@:\203N\303\310\304\311\312\313\"\"!\"\262A@\262\211:\203^\310\304\314\312\315\"\"!\262\211\203i\316\317#\262\316\320#\262\3211~\322$0\202\200\210\262#\207" [ebdb-i18n-phone-codes slot-value country-code assoc completing-read "Phone number country/region: " nil area-code string-to-number "Choose: " mapcar #[257 "\300@!\207" [number-to-string] 3 "\n\n(fn X)"] "Area code: " number-to-string plist-put :area-code :country-code (cl-no-method) ebdb-read-i18n] 13 "\n\n(fn CL--CNM CLASS &optional SLOTS OBJ)"] (:extra "i18n") ((phone ebdb-field-phone)) #[514 "\300\301\"\211\203\3021\303\"0\202\210\304\206 \207" [slot-value country-code (cl-no-method) ebdb-string-i18n nil] 6 "Internationally-aware version of `ebdb-string' for phones.\n\n(fn CL--CNM PHONE)"] (:extra "i18n") ((class (subclass ebdb-field-phone)) (str string) &optional slots) #[1027 "\300\301\302\"\206\303\"\205\304\305\306\"!\211\203:\30715\310\311\312#\313\302#$\211\2620\2029\210\202:\210#\207" ["\\`(?\\+(?\\([0-9]\\{1,3\\}\\))?[ ]+" plist-get :country-code string-match string-to-number match-string 1 (cl-no-method) ebdb-parse-i18n replace-regexp-in-string #1="" plist-put] 14 "\n\n(fn CL--CNM CLASS STR &optional SLOTS)"] (:extra "i18n") ((class (subclass ebdb-field-name-complex)) (string string) &optional slots) #[1027 "\211\302\230\262?\205\303HH\211\203/\211 >\204/\3041*\305$\211\2620\202.\210\202/\210#\207" [char-script-table ebdb-i18n-ignorable-scripts #1# 0 (cl-no-method) ebdb-parse-i18n] 10 "\n\n(fn CL--CNM CLASS STRING &optional SLOTS)"] (:extra "i18n") ((name ebdb-field-name-complex)) #[514 "!\302HH\211 >\204\"\3031\304\"\211\2620\202!\210\202\"\210\207" [char-script-table ebdb-i18n-ignorable-scripts 0 (cl-no-method) ebdb-string-i18n] 7 "\n\n(fn CL--CNM NAME)"] ebdb-init-field (:extra "i18n") ((name ebdb-field-name) record) #[771 "\"\302!\303HH\211 >\204$\3041\305#0\202#\210\202$\210\207" [char-script-table ebdb-i18n-ignorable-scripts ebdb-string 0 (cl-no-method) ebdb-init-field-i18n] 10 "Do additional initialization work for international names.\n\n(fn CL--CNM NAME RECORD)"] ebdb-delete-field (:extra "i18n") ((name ebdb-field-name) record &optional unload) #[1027 "\302!\303HH\211 >\204\"\3041\305$0\202!\210\202\"\210\266 \207" [char-script-table ebdb-i18n-ignorable-scripts ebdb-string 0 (cl-no-method) ebdb-delete-field-i18n] 11 "Do additional deletion work for international names.\n\n(fn CL--CNM NAME RECORD &optional UNLOAD)"] provide ebdb-i18n] 6)