Try to improve the promotion situation on ICS by allowing chess-ply to query for...

[gnu-emacs-elpa] / chess-message.el

diff --git a/chess-message.el b/chess-message.el
index 79786ffc0fadde1597e9b7ea8ff5793b60b1d4a5..9ac8b3277332ef3c96011c9cf56889476c5c0a3a 100644 (file)
--- a/chess-message.el
+++ b/chess-message.el
@@ -2,7 +2,6 @@
 ;;
 ;; Code shared by all chess displays
 ;;
-;; $Revision$
 
 (defgroup chess-message nil
   "Support for message catalogs in chess.el."
@@ -24,7 +23,7 @@
          (let ((str (assq (car def) (cdr entry))))
            (if str
                (setcdr str (cdr def))
-             (push def (cdr entry)))))
+             (setcdr entry (cons def (cdr entry))))))
       (push (cons catalog definitions) chess-message-catalog))))
 
 (defun chess-string (key &rest arguments)
@@ -32,7 +31,7 @@
         (msg (and entry (cdr (assq key (cdr entry))))))
     (if msg
        (apply 'format msg arguments)
-      "message not found")))
+      (format "Message not found: %s" key))))
 
 (defsubst chess-message (key &rest arguments)
   (message (apply 'chess-string key arguments)))