From ef7c29d679c6aaf8dda55772e65800097c46f163 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 05:40:38 +0000 Subject: *** no comment *** --- chess-display.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 7d6356f..68400ae 100644 --- a/chess-display.el +++ b/chess-display.el @@ -320,7 +320,7 @@ See `chess-display-type' for the different kinds of displays." (define-key map [?M] 'chess-display-match) (define-key map [(control ?c) (control ?r)] 'chess-display-resign) (define-key map [?S] 'chess-display-shuffle) - (define-key map [?U] 'chess-display-undo) + (define-key map [(control ?c) (control ?t)] 'chess-display-undo) (define-key map [?X] 'chess-display-quit) (define-key map [(control ?y)] 'chess-display-yank-board) @@ -505,10 +505,15 @@ Basically, it means we are playing, not editing or reviewing." last-command-char) (chess-display-update nil))) -(defalias 'chess-display-quit 'chess-module-destroy) - (chess-message-catalog 'english - '((illegal-notation . "Illegal move notation: %s"))) + '((illegal-notation . "Illegal move notation: %s") + (want-to-quit . "Do you really want to quit? "))) + +(defun chess-display-quit () + (interactive) + (if (or (not (chess-module-leader-p nil)) + (yes-or-no-p (chess-string 'want-to-quit))) + (chess-module-destroy nil))) (defun chess-display-manual-move (move) "Move a piece manually, using chess notation." -- cgit v1.2.3