;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@52 All the states in the US, for use with completion. (defvar ebdb-i18n-usa-states '(("Alabama" . "AL") ("Alaska" . "AK") ("American Samoa " . "AS") ("Arizona" . "AZ") ("Arkansas" . "AR") ("California" . "CA") ("Colorado" . "CO") ("Connecticut" . "CT") ("Delaware" . "DE") ("Dist. of Columbia" . "DC") ("Florida" . "FL") ("Georgia" . "GA") ("Guam" . "GU") ("Hawaii" . "HI") ("Idaho" . "ID") ("Illinois" . "IL") ("Indiana" . "IN") ("Iowa" . "IA") ("Kansas" . "KS") ("Kentucky" . "KY") ("Louisiana" . "LA") ("Maine" . "ME") ("Maryland" . "MD") ("Marshall Islands" . "MH") ("Massachusetts" . "MA") ("Michigan" . "MI") ("Micronesia" . "FM") ("Minnesota" . "MN") ("Mississippi" . "MS") ("Missouri" . "MO") ("Montana" . "MT") ("Nebraska" . "NE") ("Nevada" . "NV") ("New Hampshire" . "NH") ("New Jersey" . "NJ") ("New Mexico" . "NM") ("New York" . "NY") ("North Carolina" . "NC") ("North Dakota" . "ND") ("Northern Marianas" . "MP") ("Ohio" . "OH") ("Oklahoma" . "OK") ("Oregon" . "OR") ("Palau" . "PW") ("Pennsylvania" . "PA") ("Puerto Rico" . "PR") ("Rhode Island" . "RI") ("South Carolina" . "SC") ("South Dakota" . "SD") ("Tennessee" . "TN") ("Texas" . "TX") ("Utah" . "UT") ("Vermont" . "VT") ("Virginia" . "VA") ("Virgin Islands" . "VI") ("Washington" . "WA") ("West Virginia" . "WV") ("Wisconsin" . "WI") ("Wyoming" . "WY")) (#$ . 408)) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\301\302\313\302\314%\210\300\305\302\315\302\316%\210\300\310\302\317\302\320%\207" [cl-generic-define-method ebdb-parse-i18n nil ((_class (subclass ebdb-field-phone)) (str string) (_cc (eql 1)) &optional slots) #[1027 "\300\301\302#\303\304\211\305\306\307\310O!#\311\310\312O#\262\3131@\304\314\312\303O\211\262\2058\211\302\230\262?\2058\306!#\211\2620\202D\210\202E\210\207" [replace-regexp-in-string "[^[:digit:]]+" #1="" nil plist-put :area-code string-to-number 0 3 :number 10 (args-out-of-range) :extension] 14 "Parse a US phone number.\nUses first three digits as the area code, next seven as the\nnumber, and any remaining as an extension.\n\n(fn CLASS STR CC &optional SLOTS)"] ebdb-string-i18n ((phone ebdb-field-phone) (_cc (eql 1))) #[514 "\300\301\302\303\"\302\304\"\305\306O\302\304\"\306\307O\302\310\"\203(\300\311\302\310\"\"\202)\312%\207" [format "+1 (%d) %s-%s%s" slot-value area-code number 0 3 nil extension "X%d" #1#] 13 "\n\n(fn PHONE CC)"] ebdb-read-i18n ((_class (subclass ebdb-field-address)) (_cc (eql usa)) &optional slots obj) #[1026 "\301\302\"\204\303\302\304\305\306\205\307!\310$\"A#\262\207" [ebdb-i18n-usa-states plist-member :region plist-put assoc-string ebdb-read-string "State" ebdb-address-region t] 13 "\n\n(fn CLASS CC &optional SLOTS OBJ)"] ((_class (subclass ebdb-field-address)) (str string) (_cc (eql usa)) &optional slots) #[1027 "\301\302\"\303\304\"\204\305\304\306#\262\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216c\210\320\321\322\323#\2039\305\324\325\312!#\262\320\326\327!\330Q\331 \323#\203P\305\332\325\333!#\262\320\334\331 \323#\203b\305\335\325\333!#\262\305\336\337e`{\340\323\341$#\262*\210\207" [ebdb-i18n-usa-states mapcar cdr plist-member :country plist-put usa generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-backward "[[:digit:]]\\{5\\}\\(?:-[[:digit:]]\\{4\\}\\)?" nil t :postcode match-string "\\(" regexp-opt "\\)[ ,]+" line-beginning-position :region 1 "\\(?:^\\|, \\)\\([[:alpha:].-]+ ?[[:alpha:].-]+\\)[ ,]+" :locality :streets split-string "[,\n]" "[[:blank:]]"] 14 "\n\n(fn CLASS STR CC &optional SLOTS)"] ((phone ebdb-field-phone) (_cc (eql 33))) #[514 "\300\301\302\"\205\303\304\301\302\"\"\305\303\306\307\301\310\"\311\312##\301\313\"\205,\303\314\301\313\"\"R\207" ["+33 " slot-value area-code format "%02d" apply "%s%s %s%s %s%s %s%s" split-string number #1# t extension "X%d"] 12 "\n\n(fn PHONE CC)"] ((_class (subclass ebdb-field-address)) (_cc (eql gbr)) &optional slots _obj) #[1026 "\300\301\302#\207" [plist-put :region #1#] 8 "UK addresses don't need a region.\n\n(fn CLASS CC &optional SLOTS OBJ)"]] 6) #@44 A list of states in India, for completion. (defvar ebdb-i18n-india-states '("Andhra Pradesh" "Arunachal Pradesh" "Assam" "Bihar" "Chhattisgarh" "Goa" "Gujarat" "Haryana" "Himachal Pradesh" "Jammu and Kashmir" "Jharkhand" "Karnataka" "Kerala" "Madhya Pradesh" "Maharashtra" "Manipur" "Meghalaya" "Mizoram" "Nagaland" "Odisha" "Punjab" "Rajasthan" "Sikkim" "Tamil Nadu" "Telangana" "Tripura" "Uttar Pradesh" "Uttarakhand" "West Bengal") (#$ . 4617)) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311!\207" [cl-generic-define-method ebdb-read-i18n nil ((_class (subclass ebdb-field-address)) (_cc (eql ind)) &optional slots obj) #[1026 "\301\302\"\204\303\302\304\305\306\205\307!\310$\"A#\262\207" [ebdb-i18n-india-states plist-member :region plist-put assoc-string ebdb-read-string "State" ebdb-address-region t] 13 "\n\n(fn CLASS CC &optional SLOTS OBJ)"] ebdb-string-i18n ((phone ebdb-field-phone) (_cc (eql 8))) #[514 "\300\301\302\"\205\303\304\301\302\"\"\305\303\301\306\"G\307\310\"\203\"\311\2025\307\312\"\203-\313\2025\307\314\"\2055\315\262\316\301\306\"\317\320##\301\321\"\205P\303\322\301\321\"\"R\207" ["+8 " slot-value area-code format "%d " apply number eql 5 "%s-%s%s-%s%s" 6 "%s%s-%s%s-%s%s" 7 "%s%s%s-%s%s-%s%s" split-string "" t extension " X%s"] 12 "\n\n(fn PHONE CC)"] provide ebdb-i18n-basic] 6)