Current File : //proc/thread-self/root/kunden/kunden/proc/self/root/usr/share/emacs/27.2/lisp/ecomplete.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\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] "The name of the file to store the ecomplete data." :type file ecomplete-database-file-coding-system #[0 "\300\207" [iso-2022-7bit] 1] "Coding system used for writing the ecomplete database file." (symbol :tag "Coding system") ecomplete-sort-predicate #[0 "\300\207" [ecomplete-decay] 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!r\211q\210\307\310\311\312\313!\314\"\315$\216	\316!\210\317p!\211+\262
\207" [ecomplete-database-file ecomplete-database-file-coding-system coding-system-for-read ecomplete-database file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read] 7 (#$ . 1675)])
#@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\2025\305FC\244\207" [ecomplete-database time-convert nil integer assoc 1] 11 (#$ . 2127)])
#@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 (#$ . 2441)])
#@30 Write the .ecompleterc file.
(defalias 'ecomplete-save #[0 "\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315c\210\n\316\211:\203S@\262
\211A\262\242\262
\317\320\"c\210
\211\203H\211@\321
p\"\210\322c\210
A\266\202\2023\210\323c\210A\262\202\266\324c\210\325ed\316\326%+\207" [ecomplete-database-file-coding-system coding-system-for-write ecomplete-database ecomplete-database-file generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "(" nil format "(%s\n" prin1 "\n" ")\n" ")" write-region silent] 9 (#$ . 2631)])
#@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\267\310\311!r\211q\210\312\307\313\314\315!\316\"\317$\216
\211\203\222\211@\211AA@\320\261\210
A\266\202\202}\210eb\210\321``T\322\323$\210\324\304\323#\203\262\321\307\224\307\225\325\326$\210\202\236\327 *\262
\207" [ecomplete-database ecomplete-sort-predicate regexp-quote sort nil string-match 10 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n" put-text-property ecomplete t re-search-forward face isearch buffer-string] 15 (#$ . 3249)])
#@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\271\204/\310\312\"\210\307\202\271\313\242\"\262
\314 \315\303\316\317\320	!\321\"\322$\315\303\323\317\320\n\n\"\324\"\322$\307C\325\326\315\303\327\317\320\n#\330\"\331$#\210\325\332#\210\325\333#\210\325\334#\210\325\335#\210\211\242\204\253\336!\211\262\203\253\337\"\203\253\340! \210\313		\242\"\262\202\203)\310
\242\206\263\341!\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-byte-code "\300\211\242S\301]\240\207" vconcat vector [0] 3 "\300\211\242T\301^\240\207" [] define-key "
" "\302\301\242\303\300\304\"8\240\207" [split-string "\n"] 5 [134217838] [down] [134217840] [up] read-key-sequence lookup-key key-binding "Abort"] 24 (#$ . 4081)])
#@21 

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

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

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

(fn L1 L2)
(defalias 'ecomplete-decay #[514 "\300!\300!V\207" [ecomplete-decay-1] 5 (#$ . 5845)])
#@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 (#$ . 5953)])
(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\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\304
:\203P
@\211\305=?\205K\300	\236A\306\307\310\311\211:\203:@\262\312\f\3138\n#\2033
A
B\262
A\262\202\211\237\266\203\"\"\314		$\266\202\262
\202h
\315=\203b\315\316\317\320B\321\320BF\202h\211\300$\207" vconcat vector [ecomplete-database completion-ignore-case ecomplete-sort-predicate #[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 mapcar #[257 "\300
8\207" [2] 3 "\n\n(fn X)"] sort nil string-prefix-p 3 complete-with-action metadata (category . ecomplete) display-sort-function identity cycle-sort-function] 16 "\n\n(fn STRING PRED ACTION)"] 7 (#$ . 6192)])
(provide 'ecomplete)