Commit 074bd3ea authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* 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.
parent d1c38b57
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment