Reorganización de directorios

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

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



(byte-code "\300\301!\210\300\302!\207" [require cl-lib goto-addr] 2)
(defvar jabber-enable-legacy-features-p nil)
#@33 The name of the process buffer.\1f
(defvar jabber-process-buffer " *-jabber-process-*" (#$ . 199))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\307\310\315&\a\210\316\315\317\320\310\321%\210\300\322\302\303\323DD\324\306\325\310\315&\a\210\300\326\302\303\327DD\330\306\331\310\315&\a\210\300\332\302\303\333DD\334\306\335\310\315&\a\210\300\336\302\303\337DD\340\306\341\310\315&\a\210\342\343!\210\342\344!\210\342\345!\210\342\346!\210\342\347!\210\342\350!\210\342\351!\210\342\352!\210\342\353!\210\342\354!\210\342\355!\210\342\356!\210\342\357!\210\342\360!\210\342\361!\210\342\362!\210\342\363!\210\342\364!\210\342\365!\210\342\366!\210\342\367!\210\342\370!\210\342\371!\210\342\372!\210\342\373!\210\342\374!\210\342\375!\210\342\376!\210\342\377!\210\342\201@\0!\207" [custom-declare-variable jabber-debug-keep-process-buffers funcall function #[0 "\300\207" [nil] 1 #1=""] "If nil, kill process buffers when the process dies.\nContents of process buffers might be useful for debugging." :type boolean :group jabber-debug jabber-silent-mode #[0 "\300\207" [nil] 1 #1#] "If non-nil, do not ask for confirmation for some operations.  DANGEROUS!" jabber custom-declare-group nil "Jabber instant messaging" applications jabber-account-list #[0 "\300\207" [nil] 1 #1#] "List of Jabber accounts.\nEach element of the list is a cons cell describing a Jabber account,\nwhere the car is a JID and the CDR is an alist.\n\nJID is a full Jabber ID string (e.g.  foo@bar.tld).  You can also\nspecify the resource (e.g.  foo@bar.tld/emacs).\nThe following keys can be present in the alist:\n\n  :password is a string to authenticate ourself against the server.\n  It can be empty.  If you don't want to store your password in your\n  Emacs configuration, try auth-source (info node `(auth)Top').\n\n  :network-server is a string identifying the address to connect to,\n  if it's different from the server part of the JID.\n\n  :port is the port to use (default depends on connection type).\n\n  :connection-type is a symbol.  Valid symbols are `starttls',\n  `network' and `ssl'.\n\nOnly JID is mandatory.  The rest can be guessed at run-time.\n\nExamples:\n\nTwo accounts without any special configuration:\n((\"foo@example.com\") (\"bar@example.net\"))\n\nOne disabled account with a non-standard port:\n((\"romeo@montague.net\" (:port . 5242) (:disabled . t)))\n\nIf you don't have SRV and STARTTLS capabilities in your Emacs,\nconfigure a Google Talk account like this:\n((\"username@gmail.com\"\n  (:network-server . \"talk.google.com\")\n  (:connection-type . ssl)))" (repeat (cons :tag "Account information" (string :tag "JID") (set :format "%v" (cons :format "%v" (const :format #1# :disabled) (const :tag "Disabled" t)) (cons :format "%v" (const :format #1# :password) (string :tag "Password")) (cons :format "%v" (const :format #1# :network-server) (string :tag "Network server")) (cons :format "%v" (const :format #1# :port) (integer :tag "Port" 5222)) (cons :format "%v" (const :format #1# :connection-type) (choice :tag "Connection type" (const :tag "STARTTLS" starttls) (const :tag "Unencrypted" network) (const :tag "Legacy SSL/TLS" ssl)))))) jabber-default-show #[0 "\300\207" [#1#] 1 #1#] "Default show state." (choice (const :tag "Online" #1#) (const :tag "Chatty" "chat") (const :tag "Away" "away") (const :tag "Extended away" "xa") (const :tag "Do not disturb" "dnd")) jabber-default-status #[0 "\300\207" [#1#] 1 #1#] "Default status string." string jabber-default-priority #[0 "\300\207" [10] 1 #1#] "Default priority." integer require jabber-util jabber-menu jabber-xml jabber-conn jabber-core jabber-logon jabber-roster jabber-presence jabber-alert jabber-chat jabber-disco jabber-iq jabber-widget jabber-register jabber-search jabber-browse jabber-muc jabber-muc-nick-completion jabber-version jabber-ahc-presence jabber-modeline jabber-watch jabber-activity jabber-vcard jabber-events jabber-chatstates jabber-vcard-avatars jabber-autoaway jabber-time jabber-truncate] 8)
#@37 The user's current presence status.\1f
(defvar *jabber-current-status* nil (#$ . 4240))
#@35 The user's current presence show.\1f
(defvar *jabber-current-show* nil (#$ . 4331))
#@30 The user's current priority.\1f
(defvar *jabber-current-priority* nil (#$ . 4418))
#@29 History of status messages.\1f
(defvar *jabber-status-history* nil (#$ . 4504))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301%\210\306\312\313\314\304\301%\210\306\315\316\317\304\301%\210\300\320\302\321\304\305%\207" [custom-declare-group jabber-faces nil "Faces for displaying Jabber instant messaging." :group jabber custom-declare-face jabber-title-small ((t (:weight bold :width semi-expanded :height 1.0 :inherit variable-pitch))) "Face for small titles." jabber-title-medium ((t (:weight bold :width expanded :height 2.0 :inherit variable-pitch))) "Face for medium titles." jabber-title-large ((t (:weight bold :width ultra-expanded :height 3.0 :inherit variable-pitch))) "Face for large titles." jabber-debug "debugging options"] 6)
#@39 Mapping from presence types to faces.\1f
(defconst jabber-presence-faces '(("" . jabber-roster-user-online) ("away" . jabber-roster-user-away) ("xa" . jabber-roster-user-xa) ("dnd" . jabber-roster-user-dnd) ("chat" . jabber-roster-user-chatty) ("error" . jabber-roster-user-error) (nil . jabber-roster-user-offline)) (#$ . 5269))
#@61 Mapping from presence types to readable, colorized strings.\1f
(defconst jabber-presence-strings (byte-code "\300\301\302\303\304#B\305\301\306\303\307#B\310\301\311\303\312#B\313\301\314\303\315#B\316\301\317\303\320#B\321\301\322\303\323#B\324\301\325\303\326#B\257\a\207" ["" jabber-propertize "Online" face jabber-roster-user-online "away" "Away" jabber-roster-user-away "xa" "Extended Away" jabber-roster-user-xa "dnd" "Do not Disturb" jabber-roster-user-dnd "chat" "Chatty" jabber-roster-user-chatty "error" "Error" jabber-roster-user-error nil "Offline" jabber-roster-user-offline] 11) (#$ . 5602))
#@27 Customize Jabber options.\1f
(defalias 'jabber-customize #[0 "\300\301!\207" [customize-group jabber] 2 (#$ . 6210) nil])
#@24 Open jabber.el manual.\1f
(defalias 'jabber-info #[0 "\300\301!\207" [info "jabber"] 2 (#$ . 6335) nil])
(provide 'jabber)