;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require erc custom-declare-group erc-menu nil "ERC menu support." :group] 6)
#@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) (#$ . 218))
#@81 Internal variable used to keep track of whether we've defined the ERC menu yet.
(defvar erc-menu-defined nil (#$ . 3213))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable erc-menu-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Menu mode is enabled.\nSee the `erc-menu-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-menu-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group erc-menu] 12)
#@223 Toggle ERC menu mode.
With a prefix argument ARG, enable menu if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Enable a menu in ERC buffers.

(fn &optional ARG)
(defalias 'erc-menu-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-menu-mode current-message set-default toggle default-value 1 nil t boundp delq 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 3869) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-menu-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-menu-mode-map erc-menu-mode-hook variable-documentation put "Hook run after entering or leaving `erc-menu-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-menu-mode boundp] 6)
#@23 Enable ERC menu mode.
(defalias 'erc-menu-enable #[0 "\304\305\306\"\210\307	?\205\310\311!\210\312\313\n\314$\210\307\211\207" [erc-menu-mode erc-menu-defined erc-mode-map erc-menu-definition add-to-list erc-modules menu t (lambda (#1=#:def-tmp-var) (defvar erc-menu #1# #2="ERC menu")) nil easy-menu-do-define erc-menu #2#] 5 (#$ . 5399) nil])
#@24 Disable ERC menu mode.
(defalias 'erc-menu-disable #[0 "\302\303\"\304\305\306!\207" [erc-modules erc-menu-mode delq menu nil message "You might have to restart Emacs to remove the ERC menu"] 3 (#$ . 5756) 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 #[0 "\300\207" [nil] 1 (#$ . 6131)])
(make-obsolete 'erc-menu-add nil "28.1")
#@46 Remove the ERC menu from the current buffer.
(defalias 'erc-menu-remove #[0 "\300\207" [nil] 1 (#$ . 6279)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete erc-menu-remove nil "28.1" provide erc-menu] 4)