diff options
| -rw-r--r-- | chess-display.el | 7 | ||||
| -rw-r--r-- | chess-engine.el | 8 |
2 files changed, 1 insertions, 14 deletions
diff --git a/chess-display.el b/chess-display.el index 8c0444d..a94a291 100644 --- a/chess-display.el +++ b/chess-display.el @@ -89,13 +89,6 @@ See `mode-line-format' for syntax details." (make-variable-buffer-local 'chess-display-no-popup) (make-variable-buffer-local 'chess-display-edit-mode) -(defmacro chess-with-current-buffer (buffer &rest body) - `(let ((buf ,buffer)) - (if buf - (with-current-buffer buf - ,@body) - ,@body))) - (chess-message-catalog 'english '((no-such-style . "There is no such chessboard display style '%s'"))) diff --git a/chess-engine.el b/chess-engine.el index 1d268da..f745ced 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -6,6 +6,7 @@ ;;; Commentary: +(require 'chess-module) (require 'chess-game) (require 'chess-algebraic) (require 'chess-fen) @@ -70,13 +71,6 @@ (opp-illegal . "Your opponent states your last command was illegal") (failed-start . "Failed to start chess engine process"))) -(defmacro chess-with-current-buffer (buffer &rest body) - `(let ((buf ,buffer)) - (if buf - (with-current-buffer buf - ,@body) - ,@body))) - (defsubst chess-engine-convert-algebraic (move &optional trust-check) (or (chess-algebraic-to-ply (chess-engine-position nil) move trust-check) (chess-engine-command nil 'illegal))) |