procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* play/solitaire.el (solitaire-mode): Fix typo in docstring.

Browse source 
Set `show-trailing-whitespace' to nil.
  (solitaire, solitaire-mode-map, solitaire-mode-hook, solitaire-solve):
  Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2008-07-24 10:55:12 +00:00
parent d1c38b5722
commit 074bd3ea76
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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

15
lisp/play/solitaire.el
View file

@ -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