Mercurial > emacs
changeset 96973:32a1bbf01ebb
* 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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 24 Jul 2008 10:55:12 +0000 |
| parents | 062a00dbb8b0 |
| children | fa6516860909 |
| files | lisp/ChangeLog lisp/play/solitaire.el |
| diffstat | 2 files changed, 15 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jul 24 08:36:26 2008 +0000 +++ b/lisp/ChangeLog Thu Jul 24 10:55:12 2008 +0000 @@ -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
--- a/lisp/play/solitaire.el Thu Jul 24 08:36:26 2008 +0000 +++ b/lisp/play/solitaire.el Thu Jul 24 10:55:12 2008 +0000 @@ -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 @@ (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 @@ 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 @@ ;; 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