Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc-hecomplete.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:02 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-hecomplete.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc-hecomplete.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require erc erc-match hippie-exp] 2)
#@278 Non-nil if Erc-Hecomplete mode is enabled.
See the command `erc-hecomplete-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-hecomplete-mode'.
(custom-declare-variable 'erc-hecomplete-mode 'nil '(#$ . 715) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-hecomplete :type 'boolean)
#@123 Toggle ERC hecomplete mode.
With arg, turn ERC hecomplete mode on if and only if arg is positive.
Complete nick at point.
(defalias 'erc-hecomplete-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2033�\313 \210\2026�\314 \210\315\316\n\203@�\317\202A�\320\"\210\321 \203e�\322\302!\210\303 \203X�\303 \232\203e�\310\323\n\203b�\324\202c�\325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-hecomplete-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Erc-Hecomplete mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1168) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-hecomplete-mode nil boundp erc-hecomplete-mode-map] 5)
#@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 (#$ . 2198) 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 (#$ . 2441) 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 (#$ . 2857) nil])
(custom-declare-group 'erc-hecomplete nil "Nick completion.  It is recommended to use erc-pcomplete instead." :group 'erc)
#@364 Determine how the list of nicks is determined during nick completion.
See `erc-complete-nick' for information on how to activate this.

pals:   Use `erc-pals'.
all:    All channel members.

You may also provide your own function that returns a list of completions.
One example is `erc-nick-completion-exclude-myself',
or you may use an arbitrary lisp expression.
(custom-declare-variable 'erc-nick-completion ''all '(#$ . 3271) :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) :group 'erc-hecomplete)
#@200 *Non-nil means don't consider case significant in nick completion.
Case will be automatically corrected when non-nil.
For instance if you type "dely TAB" the word completes and changes to
"delYsid".
(custom-declare-variable 'erc-nick-completion-ignore-case 't '(#$ . -3960) :group 'erc-hecomplete :type 'boolean)
#@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 (#$ . 4280)])
#@117 *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 '": " '(#$ . -4717) :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 (#$ . 4951)])
#@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=\203�\304	\n\"\207\305=\203�\304	\306\307 \310 \"\"\207\311!\203'�\304	 \"\207\304	\"\207" [erc-nick-completion old erc-pals pals try-complete-erc-nick all append erc-get-channel-nickname-list erc-command-list functionp] 5 (#$ . 5226)])
#@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 (#$ . 5713))
#@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 (#$ . 6037)])
#@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\220�
\315=\203W�\316 \210\317 \210\315\202\220�\203m�
\230\203m�\316 \210\317 \210\306\202\220�\f\203|�\316 \210\320
!\210\315\202\220�\321 \322\220\323\324\"!\221\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 "*Completions*" display-completion-list all-completions he-search-string old try-complete-erc-nick-window-configuration] 6 (#$ . 6317)])
(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 (#$ . 7937)])
(provide 'erc-hecomplete)

${this.title}

Code Editor : erc-hecomplete.elc