diff options
| -rw-r--r-- | chess-announce.el | 16 | ||||
| -rw-r--r-- | chess-engine.el | 2 | ||||
| -rw-r--r-- | chess-german.el | 21 |
3 files changed, 22 insertions, 17 deletions
diff --git a/chess-announce.el b/chess-announce.el index cae5cb7..bad8a56 100644 --- a/chess-announce.el +++ b/chess-announce.el @@ -22,22 +22,6 @@ (piece-moves . "%s to %s") (piece-takes . "%s takes %s at %s"))) -(chess-message-catalog 'german - '((queen . "Dame") - (king . "König") - (bishop . "Läufer") - (knight . "Springer") - (rook . "Turm") - (pawn . "Bauer") - (short-castle . "Kurze Rochade") - (long-castle . "Lange Rochade") - (check . "Schach") - (checkmate . "Schach matt") - (stalemate . "Patt") - (en-passant . "on possont") - (piece-moves . "%s nach %s") - (piece-takes . "%s schlägt %s auf %s"))) - (defvar chess-announce-names '((?q . queen) (?k . king) diff --git a/chess-engine.el b/chess-engine.el index 3621496..a618225 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -265,7 +265,7 @@ (unless (memq (process-status proc) '(run open)) (chess-error 'failed-engine-start)) (setq chess-engine-process proc) - (when (not (equal (process-filter proc) 'comint-output-filter)) + (unless (process-filter proc) (set-process-filter proc 'chess-engine-filter))) (setq chess-engine-current-marker (point-marker)) (current-buffer)))))) diff --git a/chess-german.el b/chess-german.el new file mode 100644 index 0000000..be8c720 --- /dev/null +++ b/chess-german.el @@ -0,0 +1,21 @@ +(require 'chess-message) + +(chess-message-catalog 'german + '((queen . "Dame") + (king . "König") + (bishop . "Läufer") + (knight . "Springer") + (rook . "Turm") + (pawn . "Bauer") + (short-castle . "Kurze Rochade") + (long-castle . "Lange Rochade") + (check . "Schach") + (checkmate . "Schach matt") + (stalemate . "Patt") + (en-passant . "on possont") + (piece-moves . "%s nach %s") + (piece-takes . "%s schlägt %s auf %s"))) + +(provide 'chess-german) + +;;; chess-german.el ends here |