;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\204�W\203\204�
W\203\204�H	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�;\205�G\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)