diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 19:46:36 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 19:46:36 +0000 |
| commit | 1265ac399d4d1095f519cccd611c7871e2851589 (patch) | |
| tree | 3a4fd6496f272b3bf86d319d084fc51f138871ca /chess-display.el | |
| parent | 6d89a63f6ac8df6a145631a950dabf96a6a70cd7 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/chess-display.el b/chess-display.el index d19a434..eea0370 100644 --- a/chess-display.el +++ b/chess-display.el @@ -2,7 +2,6 @@ ;; ;; Code shared by all chess displays ;; -;; $Revision$ (require 'chess-module) (require 'chess-var) @@ -210,6 +209,13 @@ also view the same game." (chess-module-leader-p nil)) (chess-display-popup nil)))) +(defun chess-display-redraw (&optional display) + "Just redraw the current display." + (interactive) + (chess-with-current-buffer display + (erase-buffer) + (chess-display-update nil))) + (defun chess-display-move (display ply) "Move a piece on DISPLAY, by applying the given PLY. The position of PLY must match the currently displayed position. @@ -414,12 +420,6 @@ The key bindings available in this mode are: ;; Commands used by the keyboard bindings above ;; -(defun chess-display-redraw () - "Just redraw the current display." - (interactive) - (erase-buffer) - (chess-display-update nil)) - (defsubst chess-display-active-p () "Return non-nil if the displayed chessboard reflects an active game. Basically, it means we are playing, not editing or reviewing." |