HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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)
#@29 Read the .ecompleterc file.
(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*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents read] 2 (#$ . 939)])
#@69 Add item TEXT of TYPE to the database, using KEY as the identifier.
(defalias 'ecomplete-add-item #[(type key text) "	\236\306\307\310!!\311\211\204C\211	B\312
\fA\"\211\203.\n\211A@T\fE\241\2027\f
\313\fFC\244+\207" [type ecomplete-database entry now elems key string-to-number format-time-string "%s" nil assoc 1 text] 6 (#$ . 1347)])
#@70 Return the text for the item identified by KEY of the required TYPE.
(defalias 'ecomplete-get-item #[(type key) "\303	\n\236A\"\207" [key type ecomplete-database assoc] 4 (#$ . 1706)])
#@30 Write the .ecompleterc file.
(defalias 'ecomplete-save #[nil "\306\307!rq\210\310\216	\311c\210\312\211\f:\203X\f@\211\211A\242\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*" #[nil "\301!\205	\302!\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 (#$ . 1898)])
(defalias 'ecomplete-get-matches #[(type match) "	\236A\306!\307\n\310\211\310\211\310\211\f:\203_\f@\211\211A\242\211A\242\211A\242@\311\"\203XEB\fA\211\202\237.\312\"\211G\313V\203v\313\233\310\241\210G\314U?\205\317\315\316!rq\210\317\216\310\211 \203\254 @\211AA@\320\261\210 A\211 \204\226*eb\210\321``T\322\323$\210\324\310\323#\203\314\321\314\224\314\225\325\326$\210\202\270\327 ++\207" [type ecomplete-database elems match #1=#:--cl-var-- key regexp-quote sort nil string-match #[(l1 l2) "@	@V\207" [l1 l2] 2] 10 0 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "\n" put-text-property ecomplete t re-search-forward face isearch buffer-string count time text #3=#:--cl-var-- #4=#:--cl-var-- candidates #2# candidate --dolist-tail--] 6])
#@125 Display the top-rated elements TYPE that match WORD.
If CHOOSE, allow the user to choose interactively between the
matches.
(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 (#$ . 3421)])
(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*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] point-at-eol get-text-property face put-text-property highlight 1 buffer-string] 5])
(provide 'ecomplete)