diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-07-24 10:55:12 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-07-24 10:55:12 +0000 |
| commit | 074bd3ea76e1757c2be51742965a2447a9b61168 (patch) | |
| tree | 2b0e0003b5e6e511b50bde5162deabb6055da072 /lisp/play/solitaire.el | |
| parent | d1c38b5722b1beec983b801a3fbd60b9483bceb5 (diff) | |
| download | emacs-074bd3ea76e1757c2be51742965a2447a9b61168.tar.gz | |
* 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.
Diffstat (limited to 'lisp/play/solitaire.el')
| -rw-r--r-- | lisp/play/solitaire.el | 15 |
1 files changed, 8 insertions, 7 deletions
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 |