%PDF-
%PDF-
Mini Shell
Mini Shell
;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\303\304\305\306\307\301%\207" [require erc easymenu 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) (#$ . 564))
#@81 Internal variable used to keep track of whether we've defined the
ERC menu yet.
(defvar erc-menu-defined nil (#$ . 3559))
#@260 Non-nil if Erc-Menu mode is enabled.
See the `erc-menu-mode' command
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 '(#$ . 3688) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-menu :type 'boolean)
#@203 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.
(defalias 'erc-menu-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-menu-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 4111) (list (or current-prefix-arg 'toggle))])
(defvar erc-menu-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" 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!\210\312\313\n\314 $\210\307\315 \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# erc-menu-add] 5 (#$ . 5438) 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 (#$ . 5810) 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 (#$ . 6212)])
#@46 Remove the ERC menu from the current buffer.
(defalias 'erc-menu-remove #[nil "\301!\207" [erc-menu easy-menu-remove] 2 (#$ . 6357)])
(provide 'erc-menu)
Zerion Mini Shell 1.0