Reorganización de directorios

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

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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\307\304\317\320&\a\207" [require jabber-presence jabber-alert custom-declare-group jabber-mode-line nil "Display Jabber status in mode line" :group jabber custom-declare-variable jabber-mode-line-compact funcall function #[0 "\300\207" [t] 1 ""] "Count contacts in fewer categories for compact view." :type boolean] 8)
(defvar jabber-mode-line-string nil)
(defvar jabber-mode-line-presence nil)
(defvar jabber-mode-line-contacts nil)
(ad-add-advice 'jabber-send-presence '(jsp-update-mode-line nil t (advice lambda (show status priority) (jabber-mode-line-presence-update))) 'after nil)
(defalias 'jabber-mode-line-presence-update #[0 "\b\203\10\0	\204\10\0\305\n\v\"A\202\11\0\306\211\14\207" [jabber-connections *jabber-disconnecting* *jabber-current-show* jabber-presence-strings jabber-mode-line-presence assoc "Offline"] 3])
#@21 

(fn &rest IGNORE)\1f
(defalias 'jabber-mode-line-count-contacts #[128 "\303\304B\305\304B\306\304B\307\304B\310\304B\311\304B\257\ 6\b\211\203N\0\211@\312\313\ 2!\314\"\211\203F\0\211@\315\ 1\316N\ 6\ 6\"\203?\0\315\ 1\316N\ 6\ 6\"\211\ 1AT\241\266\ 2\ 1A\266\202\202!\0\210\ 1A\266\202\202\15\0\210	\203{\0\317\320\315\303\ 4\"A\315\305\ 5\"A\\\315\306\ 5\"A\315\307\ 6\ 6\"A\\\315\310\ 6\ 6\"A\\\311\ 5\236A$\202\203\0\321\317\322\323\324\ 5\"#\211\12\207" [jabber-connections jabber-mode-line-compact jabber-mode-line-contacts "chat" 0 "" "away" "xa" "dnd" nil plist-get fsm-get-state-data :roster assoc show format "(%d/%d/%d)" apply "(%d/%d/%d/%d/%d/%d)" mapcar cdr] 9 (#$ . 994)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\v\207" [custom-declare-variable jabber-mode-line-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Jabber-Mode-Line mode is enabled.\nSee the `jabber-mode-line-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 `jabber-mode-line-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group jabber-mode-line] 12)
#@774 Toggle display of Jabber status in mode lines.
Display consists of your own status, and six numbers
meaning the number of chatty, online, away, xa, dnd
and offline contacts, respectively.

This is a minor mode.  If called interactively, toggle the
`Jabber-Mode-Line mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable
the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='jabber-mode-line-mode)'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

(fn &optional ARG)\1f
(defalias 'jabber-mode-line-mode #[256 "\304 \305\303\ 3\306=\203\11\0\307\303!?\202!\0\ 3\247\203 \0\ 3\310W\203 \0\311\202!\0\312\"\210\313\300!\2038\0\314\303\b\"\10\307\303!\2038\0\303\bB\10\315\11\n\204@\0\316\12\v\203p\0\317\302\301\312#\210\320\321\320\322F\11\323\301\324\312#\210\323\321\324\312#\210\325 \210\326 \210\327\330!\210\331\332\325\"\210\331\333\326\"\210\334\335\307\303!\203|\0\336\202}\0\337\"\210\340\341!\203\245\0\342\303!\210\304 \203\225\0\211\304 \232\203\245\0\343\344\307\303!\203\241\0\345\202\242\0\346\315#\210\210\347 \210\307\303!\207" [global-minor-modes jabber-mode-line-string global-mode-string jabber-mode-line-mode current-message set-default toggle default-value 1 nil t boundp delq #1="" (#1#) add-to-list " " jabber-mode-line-presence jabber-mode-line-contacts put risky-local-variable jabber-mode-line-presence-update jabber-mode-line-count-contacts ad-activate jabber-send-presence add-hook jabber-post-disconnect-hook jabber-presence-hooks run-hooks jabber-mode-line-mode-hook jabber-mode-line-mode-on-hook jabber-mode-line-mode-off-hook called-interactively-p any customize-mark-as-set message "Jabber-Mode-Line mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 2200) (byte-code "\b\203\n\0\301\b!\202\v\0\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar jabber-mode-line-mode-hook nil)
(byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\0\b\310\211%\210\314\315!\207" [jabber-mode-line-mode-map jabber-mode-line-mode-hook variable-documentation put "Hook run after entering or leaving `jabber-mode-line-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 jabber-mode-line-mode boundp provide jabber-modeline] 6)