diff options
| -rw-r--r-- | chess-display.el | 9 | ||||
| -rw-r--r-- | 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))) |