From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Mar 1998 00:22:53 +0000 (+0000)
Subject: (solitaire-quit): Function deleted.
X-Git-Tag: emacs-20.3~1976
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17dcf97fec2a7a3251e46b3b5739c27fb60b01c4;p=emacs.git

(solitaire-quit): Function deleted.
(solitaire-mode-map): Use quit-window for q.
---

diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 4ce8b7d3ff0..c3a4b4ff114 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -48,7 +48,7 @@
   (substitute-key-definition 'undo 'solitaire-undo
 			     solitaire-mode-map global-map)
   (define-key solitaire-mode-map " " 'solitaire-do-check)
-  (define-key solitaire-mode-map "q" 'solitaire-quit)
+  (define-key solitaire-mode-map "q" 'quit-window)
 
   (define-key solitaire-mode-map [right] 'solitaire-right)
   (define-key solitaire-mode-map [left] 'solitaire-left)
@@ -416,11 +416,6 @@ Seen in info on text lines."
      (if (= (current-column) 0) 1 0)
      -1))
 
-(defun solitaire-quit ()
-  "Quit playing Solitaire."
-  (interactive)
-  (kill-buffer "*Solitaire*"))
-
 ;; And here's the spoiler:)
 (defun solitaire-solve ()
   "Spoil solitaire by solving the game for you - nearly ...