;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317\320\321&\207" [require erc erc-match hippie-exp custom-declare-variable erc-hecomplete-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Hecomplete mode is enabled.\nSee the `erc-hecomplete-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-hecomplete-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group erc-hecomplete] 12)
#@229 Toggle ERC hecomplete mode.
With a prefix argument ARG, enable hecomplete if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Complete nick at point.

(fn &optional ARG)
(defalias 'erc-hecomplete-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-hecomplete-mode current-message set-default toggle default-value 1 nil t boundp delq erc-hecomplete-enable erc-hecomplete-disable run-hooks erc-hecomplete-mode-hook erc-hecomplete-mode-on-hook erc-hecomplete-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Hecomplete mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 714) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-hecomplete-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-hecomplete-mode-map erc-hecomplete-mode-hook variable-documentation put "Hook run after entering or leaving `erc-hecomplete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-hecomplete-mode boundp] 6)
#@29 Enable ERC hecomplete mode.
(defalias 'erc-hecomplete-enable #[0 "\301\302\303\"\210\304\305\306\307\"\207" [erc-hecomplete-mode add-to-list erc-modules hecomplete t add-hook erc-complete-functions erc-hecomplete] 3 (#$ . 2327) nil])
#@30 Disable ERC hecomplete mode.
(defalias 'erc-hecomplete-disable #[0 "\302\303\"\304\305\306\307\"\207" [erc-modules erc-hecomplete-mode delq hecomplete nil remove-hook erc-complete-functions erc-hecomplete] 3 (#$ . 2568) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-hecomplete-mode definition-name hecomplete erc-hecomplete-enable erc-hecomplete-disable] 4)
#@134 Complete nick at point.
See `erc-try-complete-nick' for more technical info.
This function is obsolete, use `erc-pcomplete' instead.
(defalias 'erc-hecomplete #[0 "\301\302\303!)\207" [hippie-expand-try-functions-list (erc-try-complete-nick) hippie-expand nil] 2 (#$ . 2982) nil])
(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%\207" [custom-declare-group erc-hecomplete nil "Nick completion.  It is recommended to use `erc-pcomplete' instead." :group erc custom-declare-variable erc-nick-completion funcall function #[0 "\300\207" [all] 1 #1=""] "Determine how the list of nicks is determined during nick completion.\nSee `erc-complete-nick' for information on how to activate this.\n\npals:   Use `erc-pals'.\nall:    All channel members.\n\nYou may also provide your own function that returns a list of completions.\nOne example is `erc-nick-completion-exclude-myself',\nor you may use an arbitrary lisp expression." :type (choice (const :tag "List of pals" pals) (const :tag "All channel members" all) (const :tag "All channel members except yourself" erc-nick-completion-exclude-myself) (repeat :tag "List" (string :tag "Nick")) function sexp) erc-nick-completion-ignore-case #[0 "\300\207" [t] 1 #1#] "Non-nil means don't consider case significant in nick completion.\nCase will be automatically corrected when non-nil.\nFor instance if you type \"dely TAB\" the word completes and changes to\n\"delYsid\"." boolean] 6)
#@284 Get a list of all the channel members except you.

This function returns a list of all the members in the channel, except
your own nick.  This way if you're named foo and someone is called foobar,
typing "f o TAB" will directly give you foobar.  Use this with
`erc-nick-completion'.
(defalias 'erc-nick-completion-exclude-myself #[0 "\300\301 \302 \"\207" [remove erc-current-nick erc-get-channel-nickname-list] 3 (#$ . 4484)])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable erc-nick-completion-postfix funcall function #[0 "\300\207" [": "] 1 ""] "When `erc-complete' is used in the first word after the prompt,\nadd this string when a unique expansion was found." :type string] 6)
#@56 Return a list of strings of the defined user commands.
(defalias 'erc-command-list #[0 "\301\302\303\304\305!\")\207" [case-fold-search nil mapcar #[257 "\300\301!\302\303O\227P\207" ["/" symbol-name 8 nil] 5 "\n\n(fn X)"] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 5204)])
#@200 Complete nick at point.
This is a function to put on `hippie-expand-try-functions-list'.
Then use \[hippie-expand] to expand nicks.
The type of completion depends on `erc-nick-completion'.

(fn OLD)
(defalias 'erc-try-complete-nick #[257 "\302
\303\267\202	\202!\304\305 \306 \"\202!\307!\203  \202!\"\207" [erc-nick-completion erc-pals try-complete-erc-nick #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pals 8 all 12)) append erc-get-channel-nickname-list erc-command-list functionp] 6 (#$ . 5487)])
#@251 The window configuration for `try-complete-erc-nick'.
When called the first time, a window config is stored here,
and when completion is done, the window config is restored
from here.  See `try-complete-erc-nick-restore' and
`try-complete-erc-nick'.
(defvar try-complete-erc-nick-window-configuration nil (#$ . 6046))
#@31 Restore window configuration.
(defalias 'try-complete-erc-nick-restore #[0 "\204\301\302!\205\303\302!\207\304!\210\305\211\207" [try-complete-erc-nick-window-configuration get-buffer "*Completions*" delete-windows-on set-window-configuration nil] 2 (#$ . 6370)])
#@580 Try to complete current word depending on `erc-try-complete-nick'.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise.  The
second argument COMPLETIONS is a list of completions to use.  Actually,
it is only used when OLD is nil.  It will be copied to `he-expand-list'
on the first call.  After that, it is no longer used.
Window configurations are stored in
`try-complete-erc-nick-window-configuration'.

(fn OLD COMPLETIONS)
(defalias 'try-complete-erc-nick #[514 "\306\211@:\203\f\202\307\310\"\311\312 `\"\210\n\313\230\2046\314\n\"\262\315=\2064\2054\314\"\315=\262\316\267\202P\317 \210\320 \210\306\202\257\317 \210\320 \210\315\202\257\203d\n\230\203d\317 \210\320 \210\306\202\257
\203s\317 \210\321!\210\315\202\257\322 \fr\323\324!q\210p\325 \210
\306\211\315\211\315\326 \210\327\330!\210+\211 \331\332\n\"!\210\333
!\210)\266\321!\210\315)\207" [erc-nick-completion-ignore-case completion-ignore-case he-search-string try-complete-erc-nick-window-configuration default-directory buffer-read-only nil mapcar #[257 "\301 \203\211G\302U\204\211\302\234\303=\204\211PC\207\211\304PC\207" [erc-nick-completion-postfix erc-complete-at-prompt 0 47 " "] 3 "\n\n(fn S)"] he-init-string he-dabbrev-beg "" try-completion t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 60 t 70)) try-complete-erc-nick-restore he-reset-string he-substitute-string current-window-configuration get-buffer-create "*Completions*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list all-completions internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output] 12 (#$ . 6648)])
#@33 

(fn POINT &optional BOL-FUNC)
(defalias 'erc-at-beginning-of-line-p #[513 "\212\211\206\300 \210
`\232)\207" [erc-bol] 4 (#$ . 8570)])
#@73 Return t if point is directly after `erc-prompt' when doing completion.
(defalias 'erc-complete-at-prompt #[0 "\300\301 !\207" [erc-at-beginning-of-line-p he-dabbrev-beg] 2 (#$ . 8715)])
(provide 'erc-hecomplete)