diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-03-08 00:22:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-03-08 00:22:53 +0000 |
| commit | 17dcf97fec2a7a3251e46b3b5739c27fb60b01c4 (patch) | |
| tree | c6d454c117def50be21358bbd788cb881c451971 /lisp/play/solitaire.el | |
| parent | 7591cf05f5b16290bc4d58ed314368f611fcf367 (diff) | |
| download | emacs-17dcf97fec2a7a3251e46b3b5739c27fb60b01c4.tar.gz | |
(solitaire-quit): Function deleted.
(solitaire-mode-map): Use quit-window for q.
Diffstat (limited to 'lisp/play/solitaire.el')
| -rw-r--r-- | lisp/play/solitaire.el | 7 |
1 files changed, 1 insertions, 6 deletions
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 ... |