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