;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313DD\314\315\303\316\317\320\321& \210\307\322\311\312\323DD\324\315\303\316\325\320\326& \210\307\327\311\312\330DD\331\315\303\316\325\320\332& \210\307\333\311\312\334DD\335\315\303\316\325\320\336& \210\337\211\203p\211@\340\341\342#\210A\266\202\202]\207" [require easy-mmode easymenu rudel rudel-util rudel-hooks rudel-display custom-declare-variable rudel-header-subscriptions-use-images funcall function #[0 "\300\207" [t] 1] "Use images when displaying subscribed users in header-line." :group :type boolean :set #[514 "\300\"\210\301\302!\205 \303 \207" [set-default featurep rudel-mode rudel-header-subscriptions--options-changed] 5 "\n\n(fn SYMBOL VALUE)"] rudel-header-subscriptions-separator #[0 "\300\207" [#1=" "] 1 #1#] "String used to separate indicator strings of subscribed users." string #[514 "\300\"\210\301\302!\205 \303 \207" [set-default featurep rudel-mode rudel-header-subscriptions--options-changed] 5 "\n\n(fn SYMBOL VALUE)"] rudel-mode-line-publish-state-unpublished-string #[0 "\300\207" [#2="-"] 1 #2#] "String used to indicate not published state in the mode line." #[514 "\300\"\210\301\302!\205 \303 \207" [set-default featurep rudel-mode rudel-mode-line-publish-state--options-changed] 5 "\n\n(fn SYMBOL VALUE)"] rudel-mode-line-publish-state-published-string #[0 "\300\207" [#3="P"] 1 #3#] "String used to indicate published state in the mode line." #[514 "\300\"\210\301\302!\205 \303 \207" [set-default featurep rudel-mode rudel-mode-line-publish-state--options-changed] 5 "\n\n(fn SYMBOL VALUE)"] (rudel-header-subscriptions-use-images rudel-header-subscriptions-separator rudel-mode-line-publish-state-unpublished-string rudel-mode-line-publish-state-published-string) put save-local-variable t] 10) #@93 Return a Lisp object usable as `header-line-format' generated from DOCUMENT. (fn DOCUMENT) (defalias 'rudel-header-subscriptions--make-format #[257 "\211\301\302\303\304\"#\207" [rudel-header-subscriptions-separator mapconcat #[257 "\301\"\207" [rudel-header-subscriptions-use-images rudel-display-string] 4 "\n\n(fn USER)"] slot-value subscribed] 7 (#$ . 2274)]) #@71 Update header-line of the buffer attached to DOCUMENT. (fn DOCUMENT) (defalias 'rudel-header-subscriptions--update-from-document #[257 "\211\301\302\"\205r\301\302\"q\210\303!\304 )\207" [header-line-format slot-value buffer rudel-header-subscriptions--make-format force-mode-line-update] 5 (#$ . 2649)]) #@68 Update header-line of the current buffer from associated document. (defalias 'rudel-header-subscriptions--update-from-buffer #[0 "\301 \205 \302\301 !\303 \207" [header-line-format rudel-buffer-document rudel-header-subscriptions--make-format force-mode-line-update] 2 (#$ . 2967)]) #@72 Update headers in buffers that have header subscriptions mode enabled. (defalias 'rudel-header-subscriptions--options-changed #[0 "\301 \211\205\211@r\211q\210\203\302 \210)A\266\202\202\207" [rudel-header-subscriptions-minor-mode buffer-list rudel-header-subscriptions--update-from-buffer] 3 (#$ . 3258)]) #@60 Update header line after USER changed. (fn DOCUMENT USER) (defalias 'rudel-header-subscriptions--user-change #[514 "\300!\207" [rudel-header-subscriptions--update-from-document] 4 (#$ . 3579)]) #@67 Start monitoring USER and update header line. (fn DOCUMENT USER) (defalias 'rudel-header-subscriptions--add-user #[514 "\300\301\302\303\304\305\306 !\307\"\310\311%#\210\312!\207" [object-add-hook change-hook make-byte-code 257 "\301\300\"\207" vconcat vector [rudel-header-subscriptions--user-change] 4 "\n\n(fn USER)" rudel-header-subscriptions--update-from-document] 11 (#$ . 3781)]) #@66 Stop monitoring USER and update header line. (fn DOCUMENT USER) (defalias 'rudel-header-subscriptions--remove-user #[514 "\300!\207" [rudel-header-subscriptions--update-from-document] 4 (#$ . 4180)]) #@143 Non-nil if Rudel-Header-Subscriptions minor mode is enabled. Use the command `rudel-header-subscriptions-minor-mode' to change this variable. (defvar rudel-header-subscriptions-minor-mode nil (#$ . 4389)) (make-variable-buffer-local 'rudel-header-subscriptions-minor-mode) #@475 Toggle Rudel header subscriptions minor mode. This mode displays users subscribed to the document associated with the buffer in the header-line. Depending on the kind of session, additional information like connection status, encryption or activity indication may be displayed with each user. If ARG is null, toggle Rudel header subscriptions mode. If ARG is a number greater than zero, turn on Rudel header subscriptions mode; otherwise, turn it off. (fn &optional ARG) (defalias 'rudel-header-subscriptions-minor-mode #[256 "\302 \303=\203 ?\202\304!\305V \203\306\202\221\203S\307 \203S\307 \211\310\311\"\211\203>\211@\312\"\210A\266\202\202,\266\313\314\312#\210\313\315\316#\266\317 \210\202\221\204\213\307 \203\213\307 \211\310\311\"\211\203u\211@\316\"\210A\266\202\202c\266\320\314\312#\210\320\315\316#\266\321\322!\210\202\221\306\321\322!\210\323\324\203\233\325\202\234\326\"\210\327\330!\203\300\302 \203\260\211\302 \232\203\300\331\332\333\203\273\334\202\274\335#\266\210\336 \210\207" [rudel-header-subscriptions-minor-mode noninteractive current-message toggle prefix-numeric-value 0 nil rudel-buffer-document slot-value subscribed rudel-header-subscriptions--add-user object-add-hook subscribe-hook unsubscribe-hook rudel-header-subscriptions--remove-user rudel-header-subscriptions--update-from-buffer object-remove-hook kill-local-variable header-line-format run-hooks rudel-header-subscriptions-minor-mode-hook rudel-header-subscriptions-minor-mode-on-hook rudel-header-subscriptions-minor-mode-off-hook called-interactively-p any " in current buffer" message "Rudel-Header-Subscriptions minor mode %sabled%s" "en" "dis" force-mode-line-update] 9 (#$ . 4669) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar rudel-header-subscriptions-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [rudel-header-subscriptions-minor-mode-map rudel-header-subscriptions-minor-mode-hook variable-documentation put "Hook run after entering or leaving `rudel-header-subscriptions-minor-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 rudel-header-subscriptions-minor-mode nil boundp] 6) #@70 Activate header subscriptions mode for BUFFER. (fn DOCUMENT BUFFER) (defalias 'rudel-header-subscriptions--attach #[514 "r\211q\210\300\301!)\207" [rudel-header-subscriptions-minor-mode 1] 4 (#$ . 7010)]) #@72 Deactivate header subscriptions mode for BUFFER. (fn DOCUMENT BUFFER) (defalias 'rudel-header-subscriptions--detach #[514 "r\211q\210\300\301!)\207" [rudel-header-subscriptions-minor-mode 0] 4 (#$ . 7222)]) #@65 Watch DOCUMENT for attach/detach events. (fn SESSION DOCUMENT) (defalias 'rudel-header-subscriptions--add-document #[514 "\211\300\301\"\203\302\300\301\"\"\210\210\303\304\302#\210\303\305\306#\207" [slot-value buffer rudel-header-subscriptions--attach object-add-hook attach-hook detach-hook rudel-header-subscriptions--detach] 8 (#$ . 7436)]) #@73 Stop watching DOCUMENT for attach/detach events. (fn SESSION DOCUMENT) (defalias 'rudel-header-subscriptions--remove-document #[514 "\211\300\301\"\203\302\300\301\"\"\210\210\303\304\305#\210\303\306\302#\207" [slot-value buffer rudel-header-subscriptions--detach object-remove-hook attach-hook rudel-header-subscriptions--attach detach-hook] 8 (#$ . 7796)]) #@78 Watch SESSION documents and watch for added/removed documents. (fn SESSION) (defalias 'rudel-header-subscriptions--session-start #[257 "\211\300\301\"\211\203\211@\302\"\210A\266\202\202\266\303\304\302#\210\303\305\306#\207" [slot-value documents rudel-header-subscriptions--add-document object-add-hook add-document-hook remove-document-hook rudel-header-subscriptions--remove-document] 7 (#$ . 8170)]) #@66 Stop watching SESSION for added/removed documents. (fn SESSION) (defalias 'rudel-header-subscriptions--session-end #[257 "\211\300\301\"\211\203\211@\302\"\210A\266\202\202\266\303\304\305#\210\303\306\302#\207" [slot-value documents rudel-header-subscriptions--remove-document object-remove-hook add-document-hook rudel-header-subscriptions--add-document remove-document-hook] 7 (#$ . 8593)]) (defvar rudel-header-subscriptions-minor-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local rudel-header-subscriptions-minor-mode-major-mode custom-declare-variable global-rudel-header-subscriptions-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Rudel-Header-Subscriptions mode is enabled.\nSee the `global-rudel-header-subscriptions-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 `global-rudel-header-subscriptions-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group rudel :type boolean] 12) #@483 Toggle Rudel-Header-Subscriptions minor mode in all buffers. With prefix ARG, enable Global Rudel-Header-Subscriptions mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Rudel-Header-Subscriptions minor mode is enabled in all buffers where `rudel-header-subscriptions-minor-mode' would do it. See `rudel-header-subscriptions-minor-mode' for more information on Rudel-Header-Subscriptions minor mode. (fn &optional ARG) (defalias 'global-rudel-header-subscriptions-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\301 \210\202[ \203[\301\321!\210)A\266\202\202?\210\322\323\305\300!\203p\324\202q\325\"\210\326\327!\203\233\330\300!\210\302 \203\211\211\302 \232\203\233\331\332\333\305\300!\203\226\334\202\227\335#\266\210\336 \210\305\300!\207" [global-rudel-header-subscriptions-mode rudel-header-subscriptions-minor-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-rudel-header-subscriptions-mode-enable-in-buffers find-file-hook global-rudel-header-subscriptions-mode-check-buffers change-major-mode-hook global-rudel-header-subscriptions-mode-cmhh remove-hook buffer-list -1 run-hooks global-rudel-header-subscriptions-mode-hook global-rudel-header-subscriptions-mode-on-hook global-rudel-header-subscriptions-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Rudel-Header-Subscriptions mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 9778) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar global-rudel-header-subscriptions-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-rudel-header-subscriptions-mode-map global-rudel-header-subscriptions-mode-hook variable-documentation put "Hook run after entering or leaving `global-rudel-header-subscriptions-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 global-rudel-header-subscriptions-mode nil boundp] 6) (defvar rudel-header-subscriptions-minor-mode-set-explicitly nil nil) (make-variable-buffer-local 'rudel-header-subscriptions-minor-mode-set-explicitly) (defalias 'rudel-header-subscriptions-minor-mode-set-explicitly #[0 "\301\211\207" [rudel-header-subscriptions-minor-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put rudel-header-subscriptions-minor-mode-set-explicitly definition-name global-rudel-header-subscriptions-mode add-hook rudel-header-subscriptions-minor-mode-hook] 4) (defvar global-rudel-header-subscriptions-mode-buffers nil) (defalias 'global-rudel-header-subscriptions-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\304 \210\202/\304 \210 )A\266\202\202\262\207" [global-rudel-header-subscriptions-mode-buffers rudel-header-subscriptions-minor-mode-set-explicitly rudel-header-subscriptions-minor-mode-major-mode major-mode rudel-header-subscriptions-minor-mode nil buffer-live-p -1] 5]) (put 'global-rudel-header-subscriptions-mode-enable-in-buffers 'definition-name 'global-rudel-header-subscriptions-mode) (defalias 'global-rudel-header-subscriptions-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-rudel-header-subscriptions-mode-enable-in-buffers remove-hook post-command-hook global-rudel-header-subscriptions-mode-check-buffers] 3]) (put 'global-rudel-header-subscriptions-mode-check-buffers 'definition-name 'global-rudel-header-subscriptions-mode) (defalias 'global-rudel-header-subscriptions-mode-cmhh #[0 "p\211\235\203\f\210\202\211B\210\301\302\303\"\207" [global-rudel-header-subscriptions-mode-buffers add-hook post-command-hook global-rudel-header-subscriptions-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put global-rudel-header-subscriptions-mode-cmhh definition-name global-rudel-header-subscriptions-mode add-hook global-rudel-header-subscriptions-mode-hook rudel--global-hsm-tracking] 4) #@67 Start/stop tracking subscriptions when the mode is (de)activated. (defalias 'rudel--global-hsm-tracking #[0 "\203\302\303 \205\f C\"\210\304\305\303\"\210\304\306\307\"\207\302\307 \205 C\"\210\310\305\303\"\210\310\306\307\"\207" [global-rudel-header-subscriptions-mode rudel-current-session mapc rudel-header-subscriptions--session-start add-hook rudel-session-start-hook rudel-session-end-hook rudel-header-subscriptions--session-end remove-hook] 3 (#$ . 14097)]) #@79 Contains a mode line fragment indicating the publication state of the buffer. (defvar rudel-mode-line-publish-state-string (propertize "-" 'mouse-face 'mode-line-highlight 'help-echo "Buffer is not published") (#$ . 14576)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local rudel-mode-line-publish-state-string put risky-local-variable t] 4) #@49 Add Rudel publish state indicator to mode line. (defalias 'rudel-mode-line-publish-state--add-indicator-to-mode-line #[0 "\301!\302>\211A\303B\241\210\266\304 \207" [mode-line-format copy-sequence mode-line-modified rudel-mode-line-publish-state-string force-mode-line-update] 6 (#$ . 14950)]) #@54 Remove Rudel publish state indicator from mode line. (defalias 'rudel-mode-line-publish-state--remove-indicator-from-mode-line #[0 "\301>\211A@\302=\205\211AA\241\210\303 \207" [mode-line-format mode-line-remote rudel-mode-line-publish-state-string force-mode-line-update] 3 (#$ . 15257)]) #@57 Update variable `rudel-mode-line-publish-state-string'. (defalias 'rudel-mode-line-publish-state--update-string #[0 "\303 \203\304\305\306\307\310%\202\304 \305\306\307\311%\312 \207" [rudel-mode-line-publish-state-published-string rudel-mode-line-publish-state-unpublished-string rudel-mode-line-publish-state-string rudel-buffer-document propertize mouse-face mode-line-highlight help-echo "Buffer is published" "Buffer is not published" force-mode-line-update] 6 (#$ . 15557)]) #@158 Handle attaching of DOCUMENT to BUFFER. When `rudel-mode-line-publish-state-minor-mode' is enabled in BUFFER, update the state string. (fn DOCUMENT BUFFER) (defalias 'rudel-mode-line-publish-state--document-attach #[514 "r\211q\210\205\301 \210\302\303\304#)\207" [rudel-mode-line-publish-state-minor-mode rudel-mode-line-publish-state--update-string object-add-hook detach-hook rudel-mode-line-publish-state--document-detach] 6 (#$ . 16051)]) #@65 Handle detaching of DOCUMENT from BUFFER. (fn DOCUMENT BUFFER) (defalias 'rudel-mode-line-publish-state--document-detach #[514 "r\211q\210\300 \210)\301\302\303#\207" [rudel-mode-line-publish-state--update-string object-remove-hook detach-hook rudel-mode-line-publish-state--document-detach] 6 (#$ . 16506)]) #@78 Update mode lines in buffers that have mode line publish state mode enabled. (defalias 'rudel-mode-line-publish-state--options-changed #[0 "\301 \211\205\211@r\211q\210\203\302 \210)A\266\202\202\207" [rudel-mode-line-publish-state-minor-mode buffer-list rudel-mode-line-publish-state--update-string] 3 (#$ . 16823)]) #@149 Non-nil if Rudel-Mode-Line-Publish-State minor mode is enabled. Use the command `rudel-mode-line-publish-state-minor-mode' to change this variable. (defvar rudel-mode-line-publish-state-minor-mode nil (#$ . 17156)) (make-variable-buffer-local 'rudel-mode-line-publish-state-minor-mode) #@507 Toggle Rudel mode line publish state minor mode. This mode displays an indicator of the buffer's state with respect to an associated Rudel document in the mode line. If the buffer has an attached document, the string "P" is displayed after the remote file indicator. Otherwise, the string "-" is displayed. If ARG is null, toggle Rudel mode line publish state minor mode. If ARG is a number greater than zero, turn on Rudel minor mode line publish state mode; otherwise, turn it off. (fn &optional ARG) (defalias 'rudel-mode-line-publish-state-minor-mode #[256 "\302 \303=\203 ?\202\304!\305V \203\306\202N\203>\307 \210\310 \210\311 \211\2035\312\313\314#\210\202:\315\316\317\"\210\210\202N\311 \211\203J\320\313\314#\210\210\321 \210\322\323\203X\324\202Y\325\"\210\326\327!\203}\302 \203m\211\302 \232\203}\330\331\332\203x\333\202y\334#\266\210\335 \210\207" [rudel-mode-line-publish-state-minor-mode noninteractive current-message toggle prefix-numeric-value 0 nil rudel-mode-line-publish-state--add-indicator-to-mode-line rudel-mode-line-publish-state--update-string rudel-buffer-document object-add-hook detach-hook rudel-mode-line-publish-state--document-detach add-hook rudel-document-attach-hook rudel-mode-line-publish-state--document-attach object-remove-hook rudel-mode-line-publish-state--remove-indicator-from-mode-line run-hooks rudel-mode-line-publish-state-minor-mode-hook rudel-mode-line-publish-state-minor-mode-on-hook rudel-mode-line-publish-state-minor-mode-off-hook called-interactively-p any " in current buffer" message "Rudel-Mode-Line-Publish-State minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 17449) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar rudel-mode-line-publish-state-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [rudel-mode-line-publish-state-minor-mode-map rudel-mode-line-publish-state-minor-mode-hook variable-documentation put "Hook run after entering or leaving `rudel-mode-line-publish-state-minor-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 rudel-mode-line-publish-state-minor-mode nil boundp] 6) (defvar rudel-mode-line-publish-state-minor-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local rudel-mode-line-publish-state-minor-mode-major-mode custom-declare-variable global-rudel-mode-line-publish-state-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Rudel-Mode-Line-Publish-State mode is enabled.\nSee the `global-rudel-mode-line-publish-state-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 `global-rudel-mode-line-publish-state-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group rudel :type boolean] 12) #@501 Toggle Rudel-Mode-Line-Publish-State minor mode in all buffers. With prefix ARG, enable Global Rudel-Mode-Line-Publish-State mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Rudel-Mode-Line-Publish-State minor mode is enabled in all buffers where `rudel-mode-line-publish-state-minor-mode' would do it. See `rudel-mode-line-publish-state-minor-mode' for more information on Rudel-Mode-Line-Publish-State minor mode. (fn &optional ARG) (defalias 'global-rudel-mode-line-publish-state-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\301 \210\202[ \203[\301\321!\210)A\266\202\202?\210\322\323\305\300!\203p\324\202q\325\"\210\326\327!\203\233\330\300!\210\302 \203\211\211\302 \232\203\233\331\332\333\305\300!\203\226\334\202\227\335#\266\210\336 \210\305\300!\207" [global-rudel-mode-line-publish-state-mode rudel-mode-line-publish-state-minor-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-rudel-mode-line-publish-state-mode-enable-in-buffers find-file-hook global-rudel-mode-line-publish-state-mode-check-buffers change-major-mode-hook global-rudel-mode-line-publish-state-mode-cmhh remove-hook buffer-list -1 run-hooks global-rudel-mode-line-publish-state-mode-hook global-rudel-mode-line-publish-state-mode-on-hook global-rudel-mode-line-publish-state-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Rudel-Mode-Line-Publish-State mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 20542) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar global-rudel-mode-line-publish-state-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-rudel-mode-line-publish-state-mode-map global-rudel-mode-line-publish-state-mode-hook variable-documentation put "Hook run after entering or leaving `global-rudel-mode-line-publish-state-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 global-rudel-mode-line-publish-state-mode nil boundp] 6) (defvar rudel-mode-line-publish-state-minor-mode-set-explicitly nil nil) (make-variable-buffer-local 'rudel-mode-line-publish-state-minor-mode-set-explicitly) (defalias 'rudel-mode-line-publish-state-minor-mode-set-explicitly #[0 "\301\211\207" [rudel-mode-line-publish-state-minor-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put rudel-mode-line-publish-state-minor-mode-set-explicitly definition-name global-rudel-mode-line-publish-state-mode add-hook rudel-mode-line-publish-state-minor-mode-hook] 4) (defvar global-rudel-mode-line-publish-state-mode-buffers nil) (defalias 'global-rudel-mode-line-publish-state-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\304 \210\202/\304 \210 )A\266\202\202\262\207" [global-rudel-mode-line-publish-state-mode-buffers rudel-mode-line-publish-state-minor-mode-set-explicitly rudel-mode-line-publish-state-minor-mode-major-mode major-mode rudel-mode-line-publish-state-minor-mode nil buffer-live-p -1] 5]) (put 'global-rudel-mode-line-publish-state-mode-enable-in-buffers 'definition-name 'global-rudel-mode-line-publish-state-mode) (defalias 'global-rudel-mode-line-publish-state-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-rudel-mode-line-publish-state-mode-enable-in-buffers remove-hook post-command-hook global-rudel-mode-line-publish-state-mode-check-buffers] 3]) (put 'global-rudel-mode-line-publish-state-mode-check-buffers 'definition-name 'global-rudel-mode-line-publish-state-mode) (defalias 'global-rudel-mode-line-publish-state-mode-cmhh #[0 "p\211\235\203\f\210\202\211B\210\301\302\303\"\207" [global-rudel-mode-line-publish-state-mode-buffers add-hook post-command-hook global-rudel-mode-line-publish-state-mode-check-buffers] 3]) (put 'global-rudel-mode-line-publish-state-mode-cmhh 'definition-name 'global-rudel-mode-line-publish-state-mode) #@34 Keymap used in Rudel minor mode. (defvar rudel-minor-keymap (byte-code "\300 \300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320#\210\207" [make-sparse-keymap define-key "j" rudel-join-session "h" rudel-host-session "e" rudel-leave-session "c" rudel-change-color "p" rudel-publish-buffer "u" rudel-unsubscribe-buffer "s" rudel-subscribe "c"] 6) (#$ . 24867)) (byte-code "\203\301\302!\210\303\304\305\306$\210\307\310\311\312\313DD\314\315\316\317\320\321\322\323\324& \207" [rudel-minor-keymap (lambda (#1=#:def-tmp-var) (defvar rudel-minor-menu #1# #2="Rudel Minor Mode Menu")) nil easy-menu-do-define rudel-minor-menu #2# ("Rudel" ["Join Session" rudel-join-session (not rudel-current-session)] ["Leave Session" rudel-leave-session rudel-current-session] "---" ["Host a Session" rudel-host-session t] "---" ["Change Color" rudel-change-color (and rudel-current-session (rudel-capable-of-p (oref rudel-current-session :backend) 'change-color))] "---" ["Publish current Buffer" rudel-publish-buffer (and rudel-current-session (not (rudel-buffer-has-document-p)))] ["Unsubscribe from current Buffer" rudel-unsubscribe-buffer (rudel-buffer-has-document-p)] ["Subscribe to Document" rudel-subscribe rudel-current-session] "---" ["Rudel Overview" rudel-speedbar t] ["Show Backends" rudel-backend-dump t] "---" ("Options" ["Highlight Contributions in Authors' Colors" (lambda nil (interactive) (setq rudel-overlay-author-display (not rudel-overlay-author-display)) (rudel-overlay-options-changed)) :style toggle :selected rudel-overlay-author-display] ("Show subscribed Users" ["In this Buffer" rudel-header-subscriptions-minor-mode :style toggle :selected rudel-header-subscriptions-minor-mode] ["Globally" global-rudel-header-subscriptions-mode :style toggle :selected global-rudel-header-subscriptions-mode]) ("Show Status in mode line" ["In this Buffer" rudel-mode-line-publish-state-minor-mode :style toggle :selected rudel-mode-line-publish-state-minor-mode] ["Globally" global-rudel-mode-line-publish-state-mode :style toggle :selected global-rudel-mode-line-publish-state-mode]))) custom-declare-variable global-rudel-minor-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Rudel minor mode is enabled.\nSee the `global-rudel-minor-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 `global-rudel-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group rudel :type boolean] 12) #@232 Toggle global Rudel minor mode (No modeline indicator). If ARG is null, toggle global Rudel mode. If ARG is a number greater than zero, turn on global Rudel mode; otherwise, turn it off. \{rudel-minor-keymap} (fn &optional ARG) (defalias 'global-rudel-minor-mode #[256 "\302 \303\301\304=\203\305\301!?\202\306!\307V\"\210\203!\310\202# \210\311\312\305\301!\203/\313\2020\314\"\210\315\316!\203Z\317\301!\210\302 \203H\211\302 \232\203Z\320\321\322\305\301!\203U\323\202V\324#\266\210\325 \210\305\301!\207" [noninteractive global-rudel-minor-mode current-message set-default toggle default-value prefix-numeric-value 0 nil run-hooks global-rudel-minor-mode-hook global-rudel-minor-mode-on-hook global-rudel-minor-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Rudel minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 27537) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar global-rudel-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\307\211%\210\310\311!\207" [rudel-minor-keymap global-rudel-minor-mode-hook variable-documentation put "Hook run after entering or leaving `global-rudel-minor-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 global-rudel-minor-mode nil provide rudel-mode] 6)