;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\207" [custom-declare-group ecomplete nil "Electric completion of email addresses and the like." :group mail custom-declare-variable ecomplete-database-file funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "ecompleterc" "~/.ecompleterc"] 3 #1=""] "The name of the file to store the ecomplete data." :type file ecomplete-database-file-coding-system #[0 "\300\207" [iso-2022-7bit] 1 #1#] "Coding system used for writing the ecomplete database file." (symbol :tag "Coding system") ecomplete-sort-predicate #[0 "\300\207" [ecomplete-decay] 1 #1#] "Predicate to use when sorting matched.\nThe predicate is called with two parameters that represent the\ncompletion.  Each parameter is a list where the first element is\nthe times the completion has been used, the second is the\ntimestamp of the most recent usage, and the third item is the\nstring that was matched." (radio (function-item :tag "Sort by usage and newness" ecomplete-decay) (function-item :tag "Sort by times used" ecomplete-usage) (function-item :tag "Sort by newness" ecomplete-newness) (function :tag "Other"))] 6)
(defvar ecomplete-database nil)
#@29 Read the .ecompleterc file.
(defalias 'ecomplete-setup #[0 "\304!\205!\305\306\307\"r\211q\210\310\311\"\216	\312!\210\313p!\211+\262
\207" [ecomplete-database-file ecomplete-database-file-coding-system coding-system-for-read ecomplete-database file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read] 4 (#$ . 1365)])
#@89 Add item TEXT of TYPE to the database, using KEY as the identifier.

(fn TYPE KEY TEXT)
(defalias 'ecomplete-add-item #[771 "\236\301\302\303\"\302\204C\211\262B\304A\"\211\262\203*\211
A@TE\241\207\305FC\244\207" [ecomplete-database time-convert nil integer assoc 1] 11 (#$ . 1791)])
#@85 Return the text for the item identified by KEY of the required TYPE.

(fn TYPE KEY)
(defalias 'ecomplete-get-item #[514 "\301
\236A\"\207" [ecomplete-database assoc] 6 (#$ . 2103)])
#@30 Write the .ecompleterc file.
(defalias 'ecomplete-save #[0 "\304\305\306\"r\211q\210\307\310\"\216\311c\210\n\312\211:\203M@\262
\211A\262\242\262
\313\314\"c\210
\211\203B\211@\315
p\"\210\316c\210
A\266\202\202-\210\317c\210A\262\202\266\320c\210\321ed\312\322%+\207" [ecomplete-database-file-coding-system coding-system-for-write ecomplete-database ecomplete-database-file generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "(" nil format "(%s\n" prin1 "\n" ")\n" ")" write-region silent] 9 (#$ . 2293)])
#@19 

(fn TYPE MATCH)
(defalias 'ecomplete-get-matches #[514 "
\236A\302!\303\304\211\211\211\211\211:\203N@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\305	\"\203FE
B\262
A\262\202\211\237\266\207	\"\211G\306V\203a\306
\233\304\241\210\211G\307U?\205\261\310\311\312\"r\211q\210\313\314\"\216
\211\203\214\211@\211AA@\315\261\210
A\266\202\202w\210eb\210\316``T\317\312$\210\320\304\312#\203\254\316\307\224\307\225\321\322$\210\202\230\323 *\262
\207" [ecomplete-database ecomplete-sort-predicate regexp-quote sort nil string-match 10 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "\n" put-text-property ecomplete re-search-forward face isearch buffer-string] 15 (#$ . 2885)])
#@158 Display the top-rated elements TYPE that match WORD.
If CHOOSE, allow the user to choose interactively between the
matches.

(fn TYPE WORD &optional CHOOSE)
(defalias 'ecomplete-display-matches #[770 "\302\"\303C
\205\304\305\"G\306Z\307\211\307\204!\310\311!\210\307\202\244\204/\310\312\"\210\307\202\244\313\242\"\262
\314 \315\316\"\315\317#\307C\320\321\315\322

$#\210\320\323#\210\320\324#\210\320\325#\210\320\326#\210\211\242\204\226\327!\211\262\203\226\330\"\203\226\331! \210\313		\242\"\262\202n)\310
\242\206\236\332!\210\211\242\266\204)\207" [message-log-max overriding-local-map ecomplete-get-matches 0 split-string "\n" 2 nil message "No ecomplete matches" "%s" ecomplete-highlight-match-line make-sparse-keymap make-closure #[0 "\300\211\242S\301]\240\207" [V0 0] 3] #[0 "\300\211\242T\301^\240\207" [V0 V1] 3] define-key "
" #[0 "\302\301\242\303\300\304\"8\240\207" [V0 V1 V2 split-string "\n"] 5] [134217838] [down] [134217840] [up] read-key-sequence lookup-key key-binding "Abort"] 21 (#$ . 3691)])
#@21 

(fn MATCHES LINE)
(defalias 'ecomplete-highlight-match-line #[514 "\300\301\302\"r\211q\210\303\304\"\216c\210eb\210
y\210\214`\305 }\210m\2045\306`\307\"\204/\310``T\307\311$\210\312u\210\202)\313 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] point-at-eol get-text-property face put-text-property highlight 1 buffer-string] 8 (#$ . 4771)])
#@14 

(fn L1 L2)
(defalias 'ecomplete-usage #[514 "
@
@V\207" [] 4 (#$ . 5200)])
#@14 

(fn L1 L2)
(defalias 'ecomplete-newness #[514 "
A@
A@V\207" [] 4 (#$ . 5283)])
#@14 

(fn L1 L2)
(defalias 'ecomplete-decay #[514 "\300!\300!V\207" [ecomplete-decay-1] 5 (#$ . 5370)])
#@13 

(fn ELEM)
(defalias 'ecomplete-decay-1 #[257 "\211@\300\301\302\303A@!!\304\245\"\245\207" [expt 1.05 float-time time-since 604800] 7 (#$ . 5478)])
(add-to-list 'completion-category-defaults '(ecomplete (styles basic substring)))
#@57 Return a completion-table suitable for TYPE.

(fn TYPE)
(defalias 'ecomplete-completion-table #[257 "\300\301\"\207" [make-closure #[771 "\301
:\203
\242\211\302=?\205
\300$\207
\303=\203)\303\304\305\306B\307\306BF\207\211\300$\207" [V0 #[1028 "\236A\303\304\305\306\211:\203+@\262\307\n\3108	#\203$
A
B\262
A\262\202\n\211\237\266\203\n\"\"\311$\207" [ecomplete-database completion-ignore-case ecomplete-sort-predicate mapcar #[257 "\300
8\207" [2] 3 "\n\n(fn X)"] sort nil string-prefix-p 3 complete-with-action] 15 "\n\n(fn TYPE STRING PRED ACTION)"] boundaries metadata (category . ecomplete) display-sort-function identity cycle-sort-function] 10 "\n\n(fn STRING PRED ACTION)"]] 4 (#$ . 5717)])
(provide 'ecomplete)