WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/obsolete
Viewing File: /usr/share/emacs/24.3/lisp/obsolete/erc-hecomplete.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:42 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/erc-hecomplete.el
;;; in Emacs version 24.3.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!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315\316\317&\207" [require erc erc-match hippie-exp custom-declare-variable erc-hecomplete-mode nil "Non-nil if Erc-Hecomplete mode is enabled.\nSee the command `erc-hecomplete-mode' for 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 :group erc-hecomplete :type boolean] 12)
#@209 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.
(defalias 'erc-hecomplete-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-hecomplete-mode current-message toggle prefix-numeric-value 0 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" "en" "dis" force-mode-line-update] 4 (#$ . 1145) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-hecomplete-mode-map add-minor-mode erc-hecomplete-mode nil boundp] 6)
#@29 Enable ERC hecomplete mode.
(defalias 'erc-hecomplete-enable #[nil "\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 (#$ . 2161) nil])
#@30 Disable ERC hecomplete mode.
(defalias 'erc-hecomplete-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-hecomplete-mode delq hecomplete nil remove-hook erc-complete-functions erc-hecomplete] 3 (#$ . 2404) 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 #[nil "\301\302\303!)\207" [hippie-expand-try-functions-list (erc-try-complete-nick) hippie-expand nil] 2 (#$ . 2820) nil])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\315\316\304\301\312\317&\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 'all "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 t "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] 8)
#@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 #[nil "\300\301 \302 \"\207" [remove erc-current-nick erc-get-channel-nickname-list] 3 (#$ . 4254)])
#@116 When `erc-complete' is used in the first word after the prompt,
add this string when a unique expansion was found.
(custom-declare-variable 'erc-nick-completion-postfix ": " '(#$ . 4691) :group 'erc-hecomplete :type 'string)
#@57 Returns a list of strings of the defined user commands.
(defalias 'erc-command-list #[nil "\301\302\303\304\305!\")\207" [case-fold-search nil mapcar #[(x) "\301\302!\303\304O\227P\207" [x "/" symbol-name 8 nil] 4] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 4922)])
#@190 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'.
(defalias 'erc-try-complete-nick #[(old) "\303	\304=\203\f\n\202'	\305=\203\306\307 \310 \"\202'\311	!\203&	 \202'	\"\207" [old erc-nick-completion erc-pals try-complete-erc-nick pals all append erc-get-channel-nickname-list erc-command-list functionp] 5 (#$ . 5197)])
#@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 (#$ . 5670))
#@31 Restore window configuration.
(defalias 'try-complete-erc-nick-restore #[nil "\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 (#$ . 5994)])
#@558 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'.
(defalias 'try-complete-erc-nick #[(old completions) "\306\211@:\203\f\202\307\310\"	\311\312 `\"\210\313\230\2049\314\"\211\315=\2068
\2058\314
\"\315=
\204G\316 \210\317 \210\306\202\301
\315=\203W\316 \210\317 \210\315\202\301\203m
\230\203m\316 \210\317 \210\306\202\301\f\203|\316 \210\320
!\210\315\202\301\321 r\322\323!q\210p\324 \210\306\211 !\315\211\"\315#$\325 \210\326\327!\210+\211%&\330\331\"!\210\332%!\210+\320
!\210\315,\207" [completions erc-nick-completion-ignore-case completion-ignore-case alist final expansion nil mapcar #[(s) "\302 \203G\303U\204\303\234\304=\204	PC\207\305PC\207" [s erc-nick-completion-postfix erc-complete-at-prompt 0 47 " "] 2] he-init-string he-dabbrev-beg "" try-completion t 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 he-search-string old try-complete-erc-nick-window-configuration default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 6274)])
(defalias 'erc-at-beginning-of-line-p #[(point &optional bol-func) "\212\206\302 \210	`\232)\207" [bol-func point erc-bol] 2])
#@74 Returns t if point is directly after `erc-prompt' when doing completion.
(defalias 'erc-complete-at-prompt #[nil "\300\301 !\207" [erc-at-beginning-of-line-p he-dabbrev-beg] 2 (#$ . 8263)])
(provide 'erc-hecomplete)
F1l3 Manager
