Reorganización de directorios

[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-menu.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'jabber-util)
(defvar jabber-menu (byte-code "\300\301!\302\ 1\303\304#\210\302\ 1\305\306#\210\302\ 1\307\310\311\300\312!\313BBB#\210\314\ 1\315\316#\210\314\ 1\317\320#\210\314\ 1\321\322#\210\314\ 1\323\324#\210\314\ 1\325\326#\210\302\ 1\327\330#\210\302\ 1\331\332#\210\302\ 1\333\334#\210\302\ 1\335\336#\210\302\ 1\337\340#\210\302\ 1\341\342#\210\302\ 1\343\344#\210\302\ 1\345\346#\210\207" [make-sparse-keymap "jabber-menu" define-key-after [jabber-menu-connect] ("Connect" . jabber-connect-all) [jabber-menu-disconnect] (menu-item "Disconnect" jabber-disconnect :enable (bound-and-true-p jabber-connections)) [jabber-menu-status] menu-item "Set Status" "set-status" (:enable (bound-and-true-p jabber-connections)) define-key [jabber-menu-status jabber-menu-status-chat] (menu-item "Chatty" (lambda nil (interactive) (jabber-send-presence "chat" (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*) *jabber-current-priority*)) :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "chat"))) [jabber-menu-status jabber-menu-status-dnd] (menu-item "Do not Disturb" (lambda nil (interactive) (jabber-send-presence "dnd" (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*) *jabber-current-priority*)) :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "dnd"))) [jabber-menu-status jabber-menu-status-xa] (menu-item "Extended Away" jabber-send-xa-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "xa"))) [jabber-menu-status jabber-menu-status-away] (menu-item "Away" jabber-send-away-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "away"))) [jabber-menu-status jabber-menu-status-online] (menu-item "Online" jabber-send-default-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* ""))) [separator] (menu-item "--") [jabber-menu-chat-with] (menu-item "Chat with..." jabber-chat-with :enable (bound-and-true-p jabber-connections)) [jabber-menu-nextmsg] (menu-item "Next unread message" jabber-activity-switch-to :enable (bound-and-true-p jabber-activity-jids)) [jabber-menu-send-subscription-request] (menu-item "Send subscription request" jabber-send-subscription-request :enable (bound-and-true-p jabber-connections)) [jabber-menu-roster] ("Switch to roster" . jabber-switch-to-roster-buffer) [separator2] (menu-item "--") [jabber-menu-customize] ("Customize" . jabber-customize) [jabber-menu-info] ("Help" . jabber-info)] 8))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\207" [custom-declare-variable jabber-display-menu funcall function #[0 "\300\207" [maybe] 1 ""] "Decide whether the \"Jabber\" menu is displayed in the menu bar.\nIf t, always display.\nIf nil, never display.\nIf maybe, display if jabber.el is installed under `package-user-dir', or\nif any of `jabber-account-list' or `jabber-connections' is non-nil." :group jabber :type (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "When installed by user, or when any accounts have been configured or connected" maybe))] 8)
#@89 Put "Jabber" menu on menubar.
  With prefix argument, remove it.

(fn &optional REMOVE)\1f
(defalias 'jabber-menu #[256 "\211?\205\ 6\0\301\10\302 \207" [jabber-display-menu t force-mode-line-update] 2 (#$ . 3260) "P"])
(byte-code "\302\301\303\304#\210\305\306\b\307\"\310\311\312	\313\314\257\ 5#\207" [global-map jabber-menu make-obsolete "set the variable `jabber-display-menu' instead." "27.2" define-key-after lookup-key [menu-bar] [jabber-menu] menu-item "Jabber" :visible (or (eq jabber-display-menu t) (and (eq jabber-display-menu 'maybe) (or (bound-and-true-p jabber-account-list) (bound-and-true-p jabber-connections))))] 8)
#@27 Menu items for chat menu.\1f
(defvar jabber-jid-chat-menu nil (#$ . 3891))
#@26 Menu item for info menu.\1f
(defvar jabber-jid-info-menu nil (#$ . 3969))
#@29 Menu items for roster menu.\1f
(defvar jabber-jid-roster-menu nil (#$ . 4046))
#@26 Menu items for MUC menu.\1f
(defvar jabber-jid-muc-menu nil (#$ . 4128))
#@30 Menu items for service menu.\1f
(defvar jabber-jid-service-menu nil (#$ . 4204))
#@40 Popup specified menu.

(fn WHICH-MENU)\1f
(defalias 'jabber-popup-menu #[257 "\b<\205\ 6\0\b\301\302\ 3\ 3#\ 1\203\13\0\303\ 2!\210\211\205\1a\0\304\ 1!\207" [last-input-event widget-choose "Actions" mouse-set-point call-interactively] 6 (#$ . 4288)])
#@18 Popup chat menu.\1f
(defalias 'jabber-popup-chat-menu #[0 "\301\b!\207" [jabber-jid-chat-menu jabber-popup-menu] 2 (#$ . 4522) nil])
#@18 Popup info menu.\1f
(defalias 'jabber-popup-info-menu #[0 "\301\b!\207" [jabber-jid-info-menu jabber-popup-menu] 2 (#$ . 4657) nil])
#@20 Popup roster menu.\1f
(defalias 'jabber-popup-roster-menu #[0 "\301\b!\207" [jabber-jid-roster-menu jabber-popup-menu] 2 (#$ . 4792) nil])
#@17 Popup MUC menu.\1f
(defalias 'jabber-popup-muc-menu #[0 "\301\b!\207" [jabber-jid-muc-menu jabber-popup-menu] 2 (#$ . 4933) nil])
#@21 Popup service menu.\1f
(defalias 'jabber-popup-service-menu #[0 "\301\b!\207" [jabber-jid-service-menu jabber-popup-menu] 2 (#$ . 5065) nil])
#@22 Popup combined menu.\1f
(defalias 'jabber-popup-combined-menu #[0 "\304\305\b	\n\v$!\207" [jabber-jid-chat-menu jabber-jid-info-menu jabber-jid-roster-menu jabber-jid-muc-menu jabber-popup-menu append] 6 (#$ . 5209) nil])
(provide 'jabber-menu)