;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:27 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/ecomplete.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'ecomplete nil "Electric completion of email addresses and the like." :group 'mail) #@52 *The name of the file to store the ecomplete data. (custom-declare-variable 'ecomplete-database-file '"~/.ecompleterc" '(#$ . -650) :group 'ecomplete :type 'file) #@61 Coding system used for writing the ecomplete database file. (custom-declare-variable 'ecomplete-database-file-coding-system ''iso-2022-7bit '(#$ . 819) :type '(symbol :tag "Coding system") :group 'ecomplete) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list ecomplete-database default-boundp set-default nil] 3) (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!\203\313\312K!\203\312 \202\314\315 !\"!\316\211\204-C\211 B\317 \fA\"\211\203H\n\211\211A@)T E\241\202Q\f \320 FC\244+\207" [type ecomplete-database entry now elems key string-to-number format "%.0f" fboundp float-time subrp time-to-seconds current-time nil assoc 1 x text] 7]) (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 #3=#:--cl-dolist-temp-- ecomplete-database-file] 6]) (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\315\315\316!rq\210\317\216\310 \211!\203\252!@\211 \211\"AA)@\320\261\210!A\211!\204\220*eb\210\321``T\322\323$\210\324 \310\323#\203\312\321\325\224\325\225\326\327$\210\202\266\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 #5=#:--cl-dolist-temp-- x] 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\202x\2045\314\316\n\"\210\313\202x\317\n \"\320!\211\321>\204k\322=\203V T\f^\202b\323=\203b S\307]\317\n \"\202;\324=\205x \310\n\311\"8.\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 read-event (32 return) 134217838 134217840 return command highlight choose] 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)