Current File : //usr/local/share/emacs/27.2/lisp/obsolete/erc-hecomplete.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!\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 `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 :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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-hecomplete-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 988) (list (or current-prefix-arg 'toggle))])
(defvar erc-hecomplete-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" 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 (#$ . 2398) 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 (#$ . 2641) 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 (#$ . 3057) 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 (#$ . 4493)])
#@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 ": " '(#$ . 4930) :group 'erc-hecomplete :type 'string)
#@56 Return 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!\304\"\227P\207" [x "/" substring symbol-name 8] 4] apropos-internal "erc-cmd-[A-Z]+"] 4 (#$ . 5161)])
#@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\267\202 \n\202! \305\306 \307 \"\202! \310 !\203 \202! \"\207" [old 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] 5 (#$ . 5442)])
#@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 (#$ . 5998))
#@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 (#$ . 6322)])
#@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 (#$ . 6602)])
(defalias 'erc-at-beginning-of-line-p #[(point &optional bol-func) "\212\206 \302 \210 `\232)\207" [bol-func point erc-bol] 2])
#@73 Return 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 (#$ . 8591)])
(provide 'erc-hecomplete)
Mini Shell