From 94d73f17d2c3db6584b8d379441b21bdf1bdb3bd Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 17 Apr 2002 00:58:32 +0000 Subject: *** no comment *** --- chess-display.el | 9 +-------- chess-pos.el | 2 +- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/chess-display.el b/chess-display.el index 0c4c262..037d44b 100644 --- a/chess-display.el +++ b/chess-display.el @@ -236,10 +236,6 @@ also view the same game." (aset chess-display-index-positions 0 (point-min))))) (aref chess-display-index-positions index))) -(defsubst chess-display-goto-index (index) - (chess-with-current-buffer display - (goto-char (chess-display-index-pos nil index)))) - (defun chess-display-paint-move (display ply) (chess-with-current-buffer display (let ((position (chess-ply-pos ply)) @@ -569,10 +565,7 @@ Basically, it means we are playing, not editing or reviewing." (defun chess-display-duplicate (style) (interactive (list (concat "chess-" - (read-from-minibuffer - "Create new display using style: " - (substring (symbol-name (chess-display-style nil)) - 0 (length "chess-")))))) + (read-from-minibuffer "Create new display using style: ")))) (chess-display-clone (current-buffer) (intern-soft style) (chess-display-perspective nil))) diff --git a/chess-pos.el b/chess-pos.el index a07f64d..9fe2648 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -525,7 +525,7 @@ indices which indicate where a piece may have moved from." ;; prune from the discovered candidates list any moves which would ;; leave the king in check; castling through check has already ;; been eliminated. - (if (char-valid-p piece) + (if (and candidates (char-valid-p piece)) (setq candidates (apply 'chess-pos-legal-moves position color target candidates))) -- cgit v1.2.3