;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require chess-algebraic chess-ply chess-pos] 2) (defvar chess-input-move-string "") (defvar chess-input-moves-pos nil) (defvar chess-input-moves nil) (defvar chess-input-position-function nil) (defvar chess-input-move-function nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323%\207" [make-variable-buffer-local chess-input-move-string chess-input-moves-pos chess-input-moves chess-input-position-function chess-input-move-function custom-declare-group chess-input nil "Move input related otpions." :group chess custom-declare-variable chess-input-notation-type funcall function #[0 "\300\207" [:san] 1] "Define the notation type to use for move input." :type (choice (const :tag "Standard (short) algebraic notation" :san) (const :tag "Numeric notation" :numeric))] 6) #@72 Return the given PLY if it matches the user's current input. (fn PLY) (defalias 'chess-input-test-move #[257 "\302\"\303\211G G \227\304\232\203\305\306\"\204\204 \227\307\232\203(\305\310\"\204\204W\203\204W\203\204H H\311U\203F\211\311U\203R\312U\203[\211\312U\204[T\262\266\202(\211\313W\203f\202h\227U\204w\314\262\262\266\202(T\262T\262\266\202(\207" [chess-input-notation-type chess-input-move-string chess-ply-to-algebraic 0 "ok" chess-ply-keyword :castle "oq" :long-castle 120 61 97 nil] 11 (#$ . 1006)]) (defvar chess-display-highlight-legal nil) #@28 (fn &optional MOVE-LIST) (defalias 'chess-input-display-moves #[256 "\211\204\303\304\305\306A\"\"\262 \203\307\304!\210\nG\310V\2056 \203-\311\312\304\313\305\314\"!#\210\315\316\n\317\320\321##\207" [chess-input-moves chess-display-highlight-legal chess-input-move-string delq nil mapcar chess-input-test-move chess-display-redraw 0 apply chess-display-highlight delete-dups chess-ply-target message "[%s] %s" mapconcat #[257 "\301\"\207" [chess-input-notation-type chess-ply-to-algebraic] 4 "\n\n(fn PLY)"] " "] 8 (#$ . 1618)]) (defalias 'chess-input-shortcut-delete #[0 "\205;\205G\301V\205\301GSO\302 \207" [chess-input-move-string 0 chess-input-display-moves] 3 nil nil]) #@31 (fn &optional DISPLAY-ONLY) (defalias 'chess-input-shortcut #[256 " \211\211\306!\205\211G\307U\262\204\310\311\312\313E\"\210\211\314H\262\315 \316>\204)\315\2043\n\317 !P\f\203K =\203K\nG\320V\204\f@ =\204 \227\321=\203V\322\202W \262\211\226\323>\204x\211\324Y\203l\211\325X\204x\211\326Y\203\211\327X\203\211\330\331=\203\245\332\333\203\216\334\202\217\335\336\320%\332\333\203\237\337\202\240\331#\244\202\324Y\203\330\325X\203\330\332\333\203\275\334\202\276\335\336\340!\204\317\310\311\341\341E\"\210\211\324Z\262%\202\326Y\203\362\327X\203\362\332\342\336\326Z%\202\332\333\203\377\226\202\227#\343\"B\266\344\315\345\346\fA\"\"\211G\320U\2045\211G\347U\203M\350@!\227\350A@!\227\230\203M\211A\211\262\203M,\315@\"\210-\203E\351\315!\210\315\211\315\211\207\211\204T\352 \207\353!\207" [chess-input-position-function last-command chess-input-move-string last-command-event chess-input-moves chess-input-moves-pos vectorp 75 signal wrong-type-argument chess-pos position 70 nil (chess-input-shortcut chess-input-shortcut-delete) char-to-string 1 111 107 (75 81 78 66 82 80) 97 104 49 56 sort 98 chess-legal-plies :piece 80 112 :file 66 natnump character :color #[514 "\300!\300!\231\207" [chess-ply-to-algebraic] 5 "\n\n(fn LEFT RIGHT)"] delq mapcar chess-input-test-move 2 chess-ply-to-algebraic chess-display-redraw chess-input-shortcut-delete chess-input-display-moves chess-input-move-function chess-display-highlight-legal] 18 (#$ . 2329) nil]) (provide 'chess-input)