%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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*" #[nil "\301!\205 \302!\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\204 C\211 B\313 \fA\"\211\2030 \n\211A@T E\241\2029 \f \314 FC\244+\207" [type ecomplete-database entry now elems key string-to-number format "%.0f" float-time nil assoc 1 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\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]) (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\"\203X EB\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]) (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*" #[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)