;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'chess-module) (defvar chess-chat-input-last nil) (make-variable-buffer-local 'chess-chat-input-last) (defvar chess-chat-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [chess-chat-mode-hook variable-documentation put "Hook run after entering Chat mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp chess-chat-mode-map definition-name chess-chat-mode] 4) (defvar chess-chat-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [chess-chat-mode-abbrev-table chess-chat-mode-map variable-documentation put purecopy "Keymap for `chess-chat-mode'." boundp chess-chat-mode-syntax-table definition-name chess-chat-mode (lambda (#1=#:def-tmp-var) (defvar chess-chat-mode-syntax-table #1#)) make-syntax-table "Syntax table for `chess-chat-mode'." (lambda (#1#) (defvar chess-chat-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `chess-chat-mode'." derived-mode-parent text-mode] 5) #@237 A mode for editing chess annotations. In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `chess-chat-mode-hook', as the final or penultimate step during initialization. \{chess-chat-mode-map} (defalias 'chess-chat-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R \"=\204R\326 \325\"C#\210\327 !\210\330\f!\210 \"\331\332!\210\333d\307\"#\317 \334\335\336#\210\334\337\336#\266)\340\341!\207" [delay-mode-hooks major-mode mode-name chess-chat-mode-map chess-chat-mode-syntax-table chess-chat-mode-abbrev-table make-local-variable t text-mode chess-chat-mode "Chat" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table set-buffer-modified-p nil copy-marker define-key [return] chess-chat-send [(control 109)] run-mode-hooks chess-chat-mode-hook local-abbrev-table chess-chat-input-last] 5 (#$ . 1391) nil]) (defalias 'chess-chat-send #[0 "\303\304 d\"D\204\305\306!\210\n?\205@\307\211\204\305\306!\210\211@\262\211\203;\211@\310@A$\262A\266\202\202\"\262\262\266 d\307\223\210\311\307!\207" [chess-module-game chess-chat-input-last chess-game-inhibit-events chat buffer-substring-no-properties cl--assertion-failed game nil apply set-buffer-modified-p] 10 nil nil]) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-chat-handler #[642 "\301\267\202%\302p!\210\303\304!q\210\305 \210\306\207\307p!\207\310\311!\210\212b\210\211@c)\207\312\207" [chess-chat-input-last #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (initialize 6 switch-to-chat 20 chat 24)) kill-buffer generate-new-buffer "*Chat*" chess-chat-mode t switch-to-buffer-other-window chess-chat-handler switch-to-chat nil] 5 (#$ . 2937)]) (provide 'chess-chat)