diff options
| -rw-r--r-- | chess-ics.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-ics.el b/chess-ics.el index 8aa77bf..aa1afff 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -468,13 +468,13 @@ See `chess-ics-game'.") (while sessions (if (not (buffer-live-p (caar sessions))) (message "Found dead engine session in `chess-ics-sessions'") - (let ((game (chess-display-game (cadar sessions))) + (let ((game (chess-display-game (cl-cadar sessions))) (tag-pairs tags) (found t)) (when (= game-number (chess-game-data game 'ics-game-number)) (if (null tags) (progn - (chess-display-destroy (cadar sessions)) + (chess-display-destroy (cl-cadar sessions)) (if last-session (setcdr last-session (cdr sessions)) (setq chess-ics-sessions (cdr sessions)))) @@ -488,7 +488,7 @@ See `chess-ics-game'.") (setq found nil)))) (if (not found) (error "Game not found") - (chess-engine-destroy (cadar sessions)) + (chess-engine-destroy (cl-cadar sessions)) (if last-session (setcdr last-session (cdr sessions)) (setq chess-ics-sessions (cdr sessions)))))))) @@ -575,7 +575,7 @@ See `chess-ics-game'.") (if (chess-pos-side-to-move position) 3 2) (if (chess-pos-side-to-move position) 2 1)))) (move (unless (string= (match-string 29) "none") - (case (aref (match-string 29) (1- (length (match-string 29)))) + (cl-case (aref (match-string 29) (1- (length (match-string 29)))) (?+ (chess-pos-set-status position :check)) (?# (chess-pos-set-status position :checkmate) (chess-pos-set-epd position 'ce 32767))) |