;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/ecomplete.el
;;; in Emacs version 24.3.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\312\317\304\301&\207" [custom-declare-group ecomplete nil "Electric completion of email addresses and the like." :group mail custom-declare-variable ecomplete-database-file "~/.ecompleterc" "*The name of the file to store the ecomplete data." :type file ecomplete-database-file-coding-system 'iso-2022-7bit "Coding system used for writing the ecomplete database file." (symbol :tag "Coding system")] 8)
(defvar ecomplete-database nil)
(defalias 'ecomplete-setup #[nil "\305!\205\306\307!r	q\210\310\216\n\311!\210\312p!\211,\207" [ecomplete-database-file #1=#:temp-buffer ecomplete-database-file-coding-system coding-system-for-read ecomplete-database file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents read] 2])
(defalias 'ecomplete-add-item #[(type key text) "	\236\306\307\310\311 \"!\312\211\204C\211	B\313
\fA\"\211\2034\n\211
\211A@)TE\241\202=\f
\314FC\244+\207" [type ecomplete-database entry now elems key string-to-number format "%.0f" float-time nil assoc 1 x text] 6])
(defalias 'ecomplete-get-item #[(type key) "\303	\n\236A\"\207" [key type ecomplete-database assoc] 4])
(defalias 'ecomplete-save #[nil "\306\307!rq\210\310\216	\311c\210\312\211\f:\203X\f@\211\211A@\313\314\"c\210
\312\211\203M@\315p\"\210\316c\210A\211\2046*\317c\210\fA\211\202+\320c\210\321ed\312\322%,\207" [#1=#:temp-buffer ecomplete-database-file-coding-system coding-system-for-write ecomplete-database #2=#:--cl-var-- elems generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "(" nil format "(%s\n" prin1 "\n" ")\n" ")" write-region silent type entry --dolist-tail-- ecomplete-database-file] 7])
(defalias 'ecomplete-get-matches #[(type match) "	\236A\306!\307\n\310\211\310\211\310\211\f:\203Y\f@\211\211A@
\211A@
\211A@
@\311\"\203REB\fA\211\202\237.\312\"\211G\313V\203p\313\233\310\241\210\314G!?\205\311\315\316!rq\210\317\216\310 \211!\203\246!@\211 AA@\320\261\210!A\211!\204\220*eb\210\321``T\322\323$\210\324\310\323#\203\306\321\325\224\325\225\326\327$\210\202\262\330 ++\207" [type ecomplete-database elems match #1=#:--cl-var-- #2=#:--cl-var-- regexp-quote sort nil string-match #[(l1 l2) "@	@V\207" [l1 l2] 2] 10 zerop generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) "\n" put-text-property ecomplete t re-search-forward 0 face isearch buffer-string key count time text #4=#:--cl-var-- candidates #3# candidate --dolist-tail--] 6])
(defalias 'ecomplete-display-matches #[(type word &optional choose) "\306	\"\307\n\205\310\n\311\"G\312Z\313\211\313\n\204'\314\315!\210\313\202\227\2045\314\316\n\"\210\313\202\227\317\n\"\320 \313 \321 \322\323#\210\321 \324\325#\210\321 \326\327#\210 !\204\202\330!\211\203\202\331 \"\203\202\332! \210\317\n\"\202[)\203\220\314!\210\202\224\314\333!\210*.\207" [type word matches line max-lines message-log-max ecomplete-get-matches 0 split-string "\n" 2 nil message "No ecomplete matches" "%s" ecomplete-highlight-match-line make-sparse-keymap define-key "
" #[nil "\303	\304\"8\211\207" [line matches selected split-string "\n"] 4] [134217838] #[nil "T	^\211\207" [line max-lines] 2] [134217840] #[nil "S\301]\211\207" [line 0] 2] read-key-sequence lookup-key key-binding "Abort" command highlight choose selected local-map overriding-local-map] 5])
(defalias 'ecomplete-highlight-match-line #[(matches line) "\303\304!rq\210\305\216	c\210eb\210\ny\210\214`\306 }\210m\2042\307`\310\"\204,\311``T\310\312$\210\313u\210\202)\314 +\207" [#1=#:temp-buffer matches line generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) point-at-eol get-text-property face put-text-property highlight 1 buffer-string] 5])
(provide 'ecomplete)