summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-16 19:36:47 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-16 19:36:47 +0000
commitf9e74f0db1804e7eee064f8ae265438b9a1fac94 (patch)
tree12057084976c88b330727d2f87a760b5bd33599b
parent7355cb4c0c8b1b36eef06d495065fb1777c9955a (diff)
*** no comment ***
-rw-r--r--chess-announce.el16
-rw-r--r--chess-engine.el2
-rw-r--r--chess-german.el21
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