;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:12:58 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/erc/erc-menu.el
;;; in Emacs version 24.0.50.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!\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) (#$ . 612))
#@81 Internal variable used to keep track of whether we've defined the
ERC menu yet.
(defvar erc-menu-defined nil (#$ . 3607))
#@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 '(#$ . 3736) :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\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-menu-mode current-message toggle prefix-numeric-value 0 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 any customize-mark-as-set message "Erc-Menu mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4160) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-menu-mode-map add-minor-mode erc-menu-mode nil boundp] 6)
#@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 (#$ . 5024) 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 (#$ . 5434) 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 (#$ . 5836)])
#@46 Remove the ERC menu from the current buffer.
(defalias 'erc-menu-remove #[nil "\301!\207" [erc-menu easy-menu-remove] 2 (#$ . 5981)])
(provide 'erc-menu)
