Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
erc-autoaway.elc	11.75 KB	-rw-r--r--
erc-backend.elc	157.65 KB	-rw-r--r--
erc-button.elc	17.08 KB	-rw-r--r--
erc-capab.elc	7.76 KB	-rw-r--r--
erc-compat.elc	4.18 KB	-rw-r--r--
erc-dcc.elc	41.46 KB	-rw-r--r--
erc-desktop-notifications.elc	5.73 KB	-rw-r--r--
erc-ezbounce.elc	4.92 KB	-rw-r--r--
erc-fill.elc	6.81 KB	-rw-r--r--
erc-goodies.elc	35.06 KB	-rw-r--r--
erc-ibuffer.elc	6.6 KB	-rw-r--r--
erc-identd.elc	4.92 KB	-rw-r--r--
erc-imenu.elc	2.39 KB	-rw-r--r--
erc-join.elc	8.85 KB	-rw-r--r--
erc-lang.elc	4.48 KB	-rw-r--r--
erc-list.elc	10.22 KB	-rw-r--r--
erc-loaddefs.el	11.96 KB	-rw-r--r--
erc-log.elc	14.75 KB	-rw-r--r--
erc-match.elc	19.19 KB	-rw-r--r--
erc-menu.elc	6.36 KB	-rw-r--r--
erc-netsplit.elc	7.88 KB	-rw-r--r--
erc-networks.elc	40.34 KB	-rw-r--r--
erc-notify.elc	9.72 KB	-rw-r--r--
erc-page.elc	5.09 KB	-rw-r--r--
erc-pcomplete.elc	11.69 KB	-rw-r--r--
erc-replace.elc	4 KB	-rw-r--r--
erc-ring.elc	5.62 KB	-rw-r--r--
erc-services.elc	18.55 KB	-rw-r--r--
erc-sound.elc	5.75 KB	-rw-r--r--
erc-speedbar.elc	9.55 KB	-rw-r--r--
erc-spelling.elc	4.85 KB	-rw-r--r--
erc-stamp.elc	15.18 KB	-rw-r--r--
erc-track.elc	32.41 KB	-rw-r--r--
erc-truncate.elc	4.31 KB	-rw-r--r--
erc-xdcc.elc	5.82 KB	-rw-r--r--
erc.elc	244.31 KB	-rw-r--r--

Code Editor : erc-menu.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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!\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)

${this.title}

Code Editor : erc-menu.elc