From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 24 Jul 2008 10:55:12 +0000 (+0000)
Subject: * play/solitaire.el (solitaire-mode): Fix typo in docstring.
X-Git-Tag: emacs-pretest-23.0.90~3924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=074bd3ea76e1757c2be51742965a2447a9b61168;p=emacs.git

* play/solitaire.el (solitaire-mode): Fix typo in docstring.
  Set `show-trailing-whitespace' to nil.
  (solitaire, solitaire-mode-map, solitaire-mode-hook, solitaire-solve):
  Fix typos in docstrings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9bcf7c109d..7bfdd1aa29c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-07-24  Juanma Barranquero  <lekktu@gmail.com>
+
+	* play/solitaire.el (solitaire-mode): Fix typo in docstring.
+	Set `show-trailing-whitespace' to nil.
+	(solitaire, solitaire-mode-map, solitaire-mode-hook, solitaire-solve):
+	Fix typos in docstrings.
+
 2008-07-24  Chong Yidong  <cyd@stupidchicken.com>
 
 	* textmodes/enriched.el (enriched-mode-map): Bind C-a and C-j via
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 9a138ff5f92..c8c72d76f70 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -33,15 +33,15 @@
 ;;; Code:
 
 (defgroup solitaire nil
-  "Game of solitaire."
+  "Game of Solitaire."
   :prefix "solitaire-"
   :group 'games)
 
 (defvar solitaire-mode-map nil
-  "Keymap for playing solitaire.")
+  "Keymap for playing Solitaire.")
 
 (defcustom solitaire-mode-hook nil
-  "Hook to run upon entry to solitaire."
+  "Hook to run upon entry to Solitaire."
   :type 'hook
   :group 'solitaire)
 
@@ -92,8 +92,8 @@
 (put 'solitaire-mode 'mode-class 'special)
 
 (defun solitaire-mode ()
-  "Major mode for playing solitaire.
-To learn how to play solitaire, see the documentation for function
+  "Major mode for playing Solitaire.
+To learn how to play Solitaire, see the documentation for function
 `solitaire'.
 \\<solitaire-mode-map>
 The usual mnemonic keys move the cursor around the board; in addition,
@@ -102,6 +102,7 @@ The usual mnemonic keys move the cursor around the board; in addition,
   (kill-all-local-variables)
   (use-local-map solitaire-mode-map)
   (setq truncate-lines t)
+  (setq show-trailing-whitespace nil)
   (setq major-mode 'solitaire-mode)
   (setq mode-name "Solitaire")
   (run-mode-hooks 'solitaire-mode-hook))
@@ -145,7 +146,7 @@ Move stones using \\[solitaire-move] followed by a direction key.
 Undo moves using \\[solitaire-undo].
 Check for possible moves using \\[solitaire-do-check].
 \(The variable `solitaire-auto-eval' controls whether to automatically
-check after each move or undo)
+check after each move or undo.)
 
 What is Solitaire?
 
@@ -426,7 +427,7 @@ Seen in info on text lines."
 
 ;; And here's the spoiler:)
 (defun solitaire-solve ()
-  "Spoil solitaire by solving the game for you - nearly ...
+  "Spoil Solitaire by solving the game for you - nearly ...
 ... stops with five stones left ;)"
   (interactive)
   (let ((allmoves [up up S-down up left left S-right up up left S-down