;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'chess-game) (defvar chess-kibitz-input-last nil) (defvar chess-kibitz-index nil) (byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local chess-kibitz-input-last chess-kibitz-index] 2) (defvar chess-kibitz-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-kibitz-mode-hook variable-documentation put "Hook run after entering Kibitz 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-kibitz-mode-map definition-name chess-kibitz-mode] 4) (defvar chess-kibitz-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-kibitz-mode-abbrev-table chess-kibitz-mode-map variable-documentation put purecopy "Keymap for `chess-kibitz-mode'." boundp chess-kibitz-mode-syntax-table definition-name chess-kibitz-mode (lambda (#1=#:def-tmp-var) (defvar chess-kibitz-mode-syntax-table #1#)) make-syntax-table "Syntax table for `chess-kibitz-mode'." (lambda (#1#) (defvar chess-kibitz-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `chess-kibitz-mode'." derived-mode-parent text-mode] 5) #@241 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-kibitz-mode-hook', as the final or penultimate step during initialization. \{chess-kibitz-mode-map} (defalias 'chess-kibitz-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#\266)\337\340!\207" [delay-mode-hooks major-mode mode-name chess-kibitz-mode-map chess-kibitz-mode-syntax-table chess-kibitz-mode-abbrev-table make-local-variable t text-mode chess-kibitz-mode "Kibitz" 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 [(control 99) (control 99)] chess-kibitz-save run-mode-hooks chess-kibitz-mode-hook local-abbrev-table chess-kibitz-input-last] 5 (#$ . 1516) nil]) (defalias 'chess-kibitz-save #[0 "\304d\" \305D\204\306\307!\210\n?\205A\310\211\204\306\307!\210\211@\262\211\203<\211@\311@A$\262A\266\202\202#\262\262\266\312 \310\204N\306\307!\210\313\"\211\211:\205f\211@\314!\205d\211G\315U\262\262\204s\316\317\320\321E\"\210\211@\266\203\"\266d\310\223\210\322\310!\207" [chess-kibitz-input-last chess-module-game chess-game-inhibit-events chess-kibitz-index buffer-substring-no-properties kibitz cl--assertion-failed game nil apply chess-pos-add-annotation chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply set-buffer-modified-p] 11 nil nil]) #@14 (fn INDEX) (defalias 'chess-kibitz-show-annotations #[257 "\211\302 \210 \204\303\304!\210\305\"\211\211:\205'\211@\306!\205%\211G\307U\262\262\2044\310\311\312\313E\"\210\211@\266\203\314\211\306!\205E\211G\307U\262\204R\310\311\315\316E\"\210\211\317H\262\211\203q\211@\211;\203j\211\320\261\210\321\262A\266\202\202W\210\211\205y\322p!\207" [chess-kibitz-index chess-module-game erase-buffer cl--assertion-failed game chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply nil chess-pos position 71 10 t display-buffer] 9 (#$ . 3324)]) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-kibitz-handler #[642 "\301\267\202H\302p!\210\303\304!q\210\305 \210\306\207\307p!\207\310\311!\210\212b\210\211@c)\207\312@!\207\312\211\2044\313\314!\210\211\211\204=\313\314!\210\3158\262GS\262!\207\316\207" [chess-kibitz-input-last #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (initialize 6 switch-to-annotations 20 kibitz 24 set-index 37 post-undo 42 move 42)) kill-buffer generate-new-buffer "*Annotations*" chess-kibitz-mode t switch-to-buffer-other-window chess-kibitz-handler switch-to-annotations chess-kibitz-show-annotations cl--assertion-failed game 3 nil] 8 (#$ . 3911)]) (provide 'chess-kibitz)