diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-17 00:58:32 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-17 00:58:32 +0000 |
| commit | 94d73f17d2c3db6584b8d379441b21bdf1bdb3bd (patch) | |
| tree | 900944cf5b2269646cb3d95c301c544f9f332d9b /chess-display.el | |
| parent | d52df702489c8571c01ca64350560521ad3f0dc5 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 9 |
1 files changed, 1 insertions, 8 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))) |