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-menu.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:03 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-menu.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-menu.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\207" [require erc easymenu] 2)
#@22 ERC menu definition.
(defvar erc-menu-definition (byte-code "\300\301\302\303\304\305\306\307\303\310\311\312\313\314\315\316\317\320\321\322\323\324\325\257\n\326\257\303\327\330\331\332\333\334\335\336\337\257	\303\340\341D\303\342\343\303\344\345\346\257\207" ["ERC" ["Connect to server..." erc t] ["Disconnect from server..." erc-quit-server erc-server-connected] "-" ["List channels..." erc-list-channels (and erc-server-connected (fboundp 'erc-list-channels))] ["Join channel..." erc-join-channel erc-server-connected] ["Start a query..." erc-cmd-QUERY erc-server-connected] ["Input action..." erc-input-action (erc-default-target)] "Current channel" ["List users in channel" erc-channel-names erc-channel-users] ["List channel operators" erc-cmd-OPS erc-channel-users] ["Set topic..." erc-set-topic (and (and (erc-default-target) (not (erc-query-buffer-p))) (or (not (member "t" erc-channel-modes)) (erc-channel-user-op-p (erc-current-nick))))] "Channel modes" ["Change mode..." erc-insert-mode-command (erc-channel-user-op-p (erc-current-nick))] ["No external send" (erc-toggle-channel-mode "n") :active (erc-channel-user-op-p (erc-current-nick)) :style toggle :selected (member "n" erc-channel-modes)] ["Topic set by channel operator" (erc-toggle-channel-mode "t") :style toggle :selected (member "t" erc-channel-modes) :active (erc-channel-user-op-p (erc-current-nick))] ["Invite only" (erc-toggle-channel-mode "i") :style toggle :selected (member "i" erc-channel-modes) :active (erc-channel-user-op-p (erc-current-nick))] ["Private" (erc-toggle-channel-mode "p") :style toggle :selected (member "p" erc-channel-modes) :active (erc-channel-user-op-p (erc-current-nick))] ["Secret" (erc-toggle-channel-mode "s") :style toggle :selected (member "s" erc-channel-modes) :active (erc-channel-user-op-p (erc-current-nick))] ["Moderated" (erc-toggle-channel-mode "m") :style toggle :selected (member "m" erc-channel-modes) :active (erc-channel-user-op-p (erc-current-nick))] ["Set a limit..." erc-set-channel-limit (erc-channel-user-op-p (erc-current-nick))] ["Set a key..." erc-set-channel-key (erc-channel-user-op-p (erc-current-nick))] ["Leave this channel..." erc-part-from-channel erc-channel-users] "Pals, fools and other keywords" ["Add pal..." erc-add-pal] ["Delete pal..." erc-delete-pal] ["Add fool..." erc-add-fool] ["Delete fool..." erc-delete-fool] ["Add keyword..." erc-add-keyword] ["Delete keyword..." erc-delete-keyword] ["Add dangerous host..." erc-add-dangerous-host] ["Delete dangerous host..." erc-delete-dangerous-host] "IRC services" ["Identify to NickServ..." erc-nickserv-identify (and erc-server-connected (functionp 'erc-nickserv-identify))] ["Save buffer in log" erc-save-buffer-in-logs (fboundp 'erc-save-buffer-in-logs)] ["Truncate buffer" erc-truncate-buffer (fboundp 'erc-truncate-buffer)] ["Customize ERC" (customize-group 'erc) t] ["Enable/Disable ERC Modules" (customize-variable 'erc-modules) t] ["Show ERC version" erc-version t]] 23) (#$ . 677))
#@81 Internal variable used to keep track of whether we've defined the
ERC menu yet.
(defvar erc-menu-defined nil (#$ . 3672))
#@260 Non-nil if Erc-Menu mode is enabled.
See the command `erc-menu-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-menu-mode'.
(custom-declare-variable 'erc-menu-mode 'nil '(#$ . 3801) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-menu :type 'boolean)
#@117 Toggle ERC menu mode.
With arg, turn ERC menu mode on if and only if arg is positive.
Enable a menu in ERC buffers.
(defalias 'erc-menu-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-menu-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-menu-enable erc-menu-disable run-hooks erc-menu-mode-hook erc-menu-mode-on-hook erc-menu-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Menu mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4225) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-menu-mode nil boundp erc-menu-mode-map] 5)
#@23 Enable ERC menu mode.
(defalias 'erc-menu-enable #[nil "\304\305\306\"\210\307	\204%�\310\311\312\313#\210\314\311!\204�\315\311\316\"\210\317\311\n\313$\210\307\320 \207" [erc-menu-mode erc-menu-defined erc-mode-map erc-menu-definition add-to-list erc-modules menu t put erc-menu variable-documentation "ERC menu" default-boundp set-default nil easy-menu-do-define erc-menu-add] 5 (#$ . 5189) nil])
#@24 Disable ERC menu mode.
(defalias 'erc-menu-disable #[nil "\302\303\"\304\305 \210\306\307!\207" [erc-modules erc-menu-mode delq menu nil erc-menu-remove message "You might have to restart Emacs to remove the ERC menu"] 3 (#$ . 5599) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-menu-mode definition-name menu erc-menu-enable erc-menu-disable] 4)
#@41 Add the ERC menu to the current buffer.
(defalias 'erc-menu-add #[nil "\302	\"\207" [erc-menu erc-mode-map easy-menu-add] 3 (#$ . 6001)])
#@46 Remove the ERC menu from the current buffer.
(defalias 'erc-menu-remove #[nil "\301!\207" [erc-menu easy-menu-remove] 2 (#$ . 6146)])
(provide 'erc-menu)

${this.title}

Code Editor : erc-menu.elc