;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'chess-game) (defvar chess-module-game nil) (defvar chess-module-event-handler nil) (defvar chess-module-leader nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [make-variable-buffer-local chess-module-game chess-module-event-handler chess-module-leader chess-message-catalog english ((no-such-module . "There is no module named '%s'"))] 3) #@26 (fn BUFFER &rest BODY) (defalias 'chess-with-current-buffer '(macro . #[385 "\300\301DC\302\301\303\301BBBBBE\207" [let buf if with-current-buffer] 9 (#$ . 464)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put chess-with-current-buffer edebug-form-spec t function-put lisp-indent-function 1] 4) #@59 (fn DERIVED GAME &optional BUFFER-NAME &rest CTOR-ARGS) (defalias 'chess-module-create #[898 "\301!\302\303\302\304#\203\305\306P!\211\262\204$\307C\310\311\312#!\266r\313\206.\314\315\"!q\210\311\316$\204D\302\317p!\210\202T\320\321\322\302\304$\210\211\323\302\"\210p)\207" [chess-module-event-handler symbol-name nil require t intern-soft "-handler" no-such-module error apply chess-string generate-new-buffer format " *%s*" initialize kill-buffer add-hook kill-buffer-hook chess-module-destroy chess-module-set-game*] 13 (#$ . 790)]) #@15 (fn MODULE) (defalias 'chess-module-game #[257 "\211\211\203\fr\211q\210)\207\207" [chess-module-game] 3 (#$ . 1361)]) #@15 (fn MODULE) (defalias 'chess-module-game-index #[257 "\211\211\203&r\211q\210\211\204\301\302!\210\211\211\204\301\302!\210\3038\262GS\262)\207\211\204/\301\302!\210\211\211\2048\301\302!\210\3038\262GS\207" [chess-module-game cl--assertion-failed game 3] 6 (#$ . 1491)]) #@15 (fn MODULE) (defalias 'chess-module-detach-game #[257 "\211\211\203Wr\211q\210\303\304\206p#\210 \205U\305C\204\"\306\307!\210\n?\205S\310\211\2041\306\307!\210\211@\262\211\203N\211@\311@A$\262A\266\202\2025\262\262\266\202)\207\303\304\206_p#\210 \205\243\305C\204p\306\307!\210\n?\205\241\310\211\204\306\307!\210\211@\262\211\203\234\211@\311@A$\262A\266\202\202\203\262\262\266\202\207" [chess-module-game chess-module-leader chess-game-inhibit-events chess-game-remove-hook chess-module-event-handler destroy cl--assertion-failed game nil apply] 12 (#$ . 1785)]) #@39 (fn MODULE GAME &optional NO-SETUP) (defalias 'chess-module-set-game #[770 "\211\203\350r\211q\210 \204\302\303!\210\211\204\302\304!\210\211\204'\302\303!\210\211A@\262\2044\302\303!\210\211\204B\211\305=\204B\302\306!\210A\240\210\307C\204R\302\303!\210?\205\203\305\211\204a\302\303!\210\211@\262\211\203~\211@\310@A$\262A\266\202\202e\262\262\266\211\204\217\302\303!\210\3118\262\204\234\302\303!\210AA\205\245C\241\210\312D\204\263\302\303!\210?\205\344\305\211\204\302\302\303!\210\211@\262\211\203\337\211@\310@A$\262A\266\202\202\306\262\262\266\206*\207 \204\364\302\303!\210\211\204\374\302\304!\210\211\204\302\303!\210\211A@\262\204\302\303!\210\211\204!\211\305=\204!\302\306!\210A\240\210\307C\2041\302\303!\210?\205b\305\211\204@\302\303!\210\211@\262\211\203]\211@\310@A$\262A\266\202\202D\262\262\266\211\204n\302\303!\210\3118\262\204{\302\303!\210AA\205\204C\241\210\312D\204\222\302\303!\210?\205\303\305\211\204\241\302\303!\210\211@\262\211\203\276\211@\310@A$\262A\266\202\202\245\262\262\266\206)\207" [chess-game-inhibit-events chess-module-game cl--assertion-failed game new-game nil (or tags (eq tags nil)) set-tags apply 3 setup-game] 18 (#$ . 2413)]) #@20 (fn MODULE GAME) (defalias 'chess-module-set-game* #[514 "\211\203r\211q\210\203\301\302!\210\303\304\206p#)\207\203&\301\302!\210\303\304\2060p#\207" [chess-module-game chess-module-detach-game nil chess-game-add-hook chess-module-event-handler] 7 (#$ . 3750)]) #@15 (fn MODULE) (defalias 'chess-module-leader-p #[257 "\211\211\203\fr\211q\210)\207\207" [chess-module-leader] 3 (#$ . 4040)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-module-leader-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@15 (fn MODULE) (defalias 'chess-module-set-leader #[257 "\211\211\203r\211q\210\301\211)\207\301\211\207" [chess-module-leader t] 4 (#$ . 4323)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-module-set-leader speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@15 (fn MODULE) (defalias 'chess-module-clear-leader #[257 "\211\211\203r\211q\210\301\211)\207\301\211\207" [chess-module-leader nil] 4 (#$ . 4627)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-module-clear-leader speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@25 (fn &optional MODULE) (defalias 'chess-module-destroy #[256 "\211\206p\300!\205r\211q\210\301\302\303\304#\210\305\306!\210)\307!\207" [buffer-live-p remove-hook kill-buffer-hook chess-module-destroy t chess-module-detach-game nil kill-buffer] 6 (#$ . 4937)]) #@37 (fn GAME OBJECT EVENT &rest ARGS) (defalias 'chess-module-event-handler #[899 "rq\210\301$\210\302=\205\303\304!)\207" [chess-module-event-handler apply destroy chess-module-destroy nil] 9 (#$ . 5211)]) (provide 'chess-module)