Remove leading * from defcustom and defface docs.

10 files changed, 77 insertions, 72 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64af8363417..77bd47f3f30 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,11 @@
 
 2009-09-04  Glenn Morris  <rgm@gnu.org>
 
+        * play/5x5.el, play/decipher.el, play/gametree.el, play/handwrite.el:
+        * play/hanoi.el, play/landmark.el, play/mpuz.el, play/pong.el:
+        * play/solitaire.el, play/tetris.el:
+        Remove leading * from defcustom and defface docs.
+
         * calendar/diary-lib.el (diary-fancy-display): Only switch modes if
         necessary.
         (diary-fancy-overriding-map): New variable.
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index f04bc94b113..73edc965460 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,7 +1,7 @@
 ;;; 5x5.el --- simple little puzzle game
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Dave Pearson <davep@davep.org>
 ;; Maintainer: Dave Pearson <davep@davep.org>
@@ -59,32 +59,32 @@
   :prefix "5x5-")
 
 (defcustom 5x5-grid-size 5
-  "*Size of the playing area."
+  "Size of the playing area."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-x-scale 4
-  "*X scaling factor for drawing the grid."
+  "X scaling factor for drawing the grid."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-y-scale 3
-  "*Y scaling factor for drawing the grid."
+  "Y scaling factor for drawing the grid."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-animate-delay .01
-  "*Delay in seconds when animating a solution crack."
+  "Delay in seconds when animating a solution crack."
   :type  'number
   :group '5x5)
 
 (defcustom 5x5-hassle-me t
-  "*Should 5x5 ask you when you want to do a destructive operation?"
+  "Should 5x5 ask you when you want to do a destructive operation?"
   :type  'boolean
   :group '5x5)
 
 (defcustom 5x5-mode-hook nil
-  "*Hook run on starting 5x5."
+  "Hook run on starting 5x5."
   :type  'hook
   :group '5x5)
 
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index e3dcef93a91..d32e1aad413 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -1,7 +1,7 @@
 ;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
 ;;
-;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 ;;
 ;; Author: Christopher J. Madsen <chris_madsen@geocities.com>
 ;; Keywords: games
@@ -98,7 +98,7 @@
   :group 'games)
 
 (defcustom decipher-force-uppercase t
-  "*Non-nil means to convert ciphertext to uppercase.
+  "Non-nil means to convert ciphertext to uppercase.
 nil means the case of the ciphertext is preserved.
 This variable must be set before typing `\\[decipher]'."
   :type 'boolean
@@ -106,7 +106,7 @@ This variable must be set before typing `\\[decipher]'."
 
 
 (defcustom decipher-ignore-spaces nil
-  "*Non-nil means to ignore spaces and punctuation when counting digrams.
+  "Non-nil means to ignore spaces and punctuation when counting digrams.
 You should set this to nil if the cipher message is divided into words,
 or t if it is not.
 This variable is buffer-local."
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index 4c4836747bc..fedaaf5b929 100644
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -1,7 +1,7 @@
 ;;; gametree.el --- manage game analysis trees in Emacs
 
-;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Ian T Zimmerman <itz@rahul.net>
 ;; Created: Wed Dec 10 07:41:46 PST 1997
@@ -92,7 +92,7 @@
   :version "20.3")
 
 (defcustom gametree-half-ply-regexp (regexp-quote ":")
-  "*Matches ends of numbers of moves by the \"second\" player.
+  "Matches ends of numbers of moves by the \"second\" player.
 For instance, it is an almost universal convention in chess to postfix
 numbers of moves by Black (if considered in isolation) by the ellipsis
 \"...\".  This is NOT a good choice for this program, though, because it
@@ -103,20 +103,20 @@ LaTeX macros he uses for typesetting annotated games."
   :group 'gametree)
 
 (defcustom gametree-full-ply-regexp (regexp-quote ".")
-  "*Matches ends of numbers of moves by the \"first\" player.
+  "Matches ends of numbers of moves by the \"first\" player.
 For instance, it is an almost universal convention in chess to postfix
 numbers of moves by White (if considered in isolation) by the dot \".\"."
   :type 'regexp
   :group 'gametree)
 
 (defcustom gametree-half-ply-format "%d:"
-  "*Output format for move numbers of moves by the \"second\" player.
+  "Output format for move numbers of moves by the \"second\" player.
 Has to contain \"%d\" to output the actual number."
   :type 'string
   :group 'gametree)
 
 (defcustom gametree-full-ply-format "%d."
-  "*Output format for move numbers of moves by the \"first\" player.
+  "Output format for move numbers of moves by the \"first\" player.
 Has to contain \"%d\" to output the actual number."
   :type 'string
   :group 'gametree)
@@ -138,17 +138,17 @@ the file is visited (subject to the usual restriction via
 `enable-local-variables'), and the layout will be set accordingly.")
 
 (defcustom gametree-score-opener "{score="
-  "*The string which opens a score tag, and precedes the actual score."
+  "The string which opens a score tag, and precedes the actual score."
   :type 'string
   :group 'gametree)
 
 (defcustom gametree-score-manual-flag "!"
-  "*String marking the line as manually (as opposed to automatically) scored."
+  "String marking the line as manually (as opposed to automatically) scored."
   :type 'string
   :group 'gametree)
 
 (defcustom gametree-score-closer "}"
-  "*The string which closes a score tag, and follows the actual score."
+  "The string which closes a score tag, and follows the actual score."
   :type 'string
   :group 'gametree)
 
@@ -160,7 +160,7 @@ the file is visited (subject to the usual restriction via
           "[    ]*\\)?\\([-+]?[0-9]+\\)"
           (regexp-quote gametree-score-closer)
           "[    ]*\\)[\n\^M]")
-  "*Regular expression matching lines that guide the program in scoring.
+  "Regular expression matching lines that guide the program in scoring.
 Its third parenthetical group should match the actual score.  Its
 first parenthetical group should match the entire score tag.  Its
 second parenthetical group should be an optional flag that marks the
@@ -172,7 +172,7 @@ score instead."
   :group 'gametree)
 
 (defcustom gametree-default-score 0
-  "*Score to assume for branches lacking score tags."
+  "Score to assume for branches lacking score tags."
   :type 'integer
   :group 'gametree)
 
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 5021cf94211..b9461851136 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,7 +1,7 @@
 ;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-
 
-;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
 ;; Created: October 21 1996
@@ -88,43 +88,43 @@
 ;; User definable variables
 
 (defcustom handwrite-numlines 60
-  "*The number of lines on a page of the PostScript output from `handwrite'."
+  "The number of lines on a page of the PostScript output from `handwrite'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-fontsize 11
-  "*The size of the font for the PostScript output from `handwrite'."
+  "The size of the font for the PostScript output from `handwrite'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-linespace 12
-  "*The spacing for the PostScript output from `handwrite'."
+  "The spacing for the PostScript output from `handwrite'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-xstart 30
-  "*X-axis translation in the PostScript output from `handwrite'."
+  "X-axis translation in the PostScript output from `handwrite'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-ystart 810
-  "*Y-axis translation in the PostScript output from `handwrite'."
+  "Y-axis translation in the PostScript output from `handwrite'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-pagenumbering nil
-  "*If non-nil, number each page of the PostScript output from `handwrite'."
+  "If non-nil, number each page of the PostScript output from `handwrite'."
   :type 'boolean
   :group 'handwrite)
 (defcustom handwrite-10pt-numlines 65
-  "*The number of lines on a page for the function `handwrite-10pt'."
+  "The number of lines on a page for the function `handwrite-10pt'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-11pt-numlines 60
-  "*The number of lines on a page for the function `handwrite-11pt'."
+  "The number of lines on a page for the function `handwrite-11pt'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-12pt-numlines 55
-  "*The number of lines on a page for the function `handwrite-12pt'."
+  "The number of lines on a page for the function `handwrite-12pt'."
   :type 'integer
   :group 'handwrite)
 (defcustom handwrite-13pt-numlines 50
-  "*The number of lines on a page for the function `handwrite-13pt'."
+  "The number of lines on a page for the function `handwrite-13pt'."
   :type 'integer
   :group 'handwrite)
 
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 41584eb3acd..5e8df5d4a6b 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1,7 +1,7 @@
 ;;; landmark.el --- neural-network robot that learns landmarks
 
-;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>)
 ;; Created: December 16, 1996 - first release to usenet
@@ -211,13 +211,13 @@
 
 (defface lm-font-lock-face-O '((((class color)) :foreground "red")
                                (t :weight bold))
-  "*Face to use for Emacs' O."
+  "Face to use for Emacs' O."
   :version "22.1"
   :group 'lm)
 
 (defface lm-font-lock-face-X '((((class color)) :foreground "green")
                                (t :weight bold))
-  "*Face to use for your X."
+  "Face to use for your X."
   :version "22.1"
   :group 'lm)
 
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index 7e8222d7e1d..2b1d1e4d8b5 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -39,7 +39,7 @@
 (random t)                              ; randomize
 
 (defcustom mpuz-silent 'error
-  "*Set this to nil if you want dings on inputs.
+  "Set this to nil if you want dings on inputs.
 t means never ding, and `error' means only ding on wrong input."
   :type '(choice (const :tag "No" nil)
                  (const :tag "Yes" t)
@@ -47,36 +47,36 @@ t means never ding, and `error' means only ding on wrong input."
   :group 'mpuz)
 
 (defcustom mpuz-solve-when-trivial t
-  "*Solve any row that can be trivially calculated from what you've found."
+  "Solve any row that can be trivially calculated from what you've found."
   :type 'boolean
   :group 'mpuz)
 
 (defcustom mpuz-allow-double-multiplicator nil
-  "*Allow 2nd factors like 33 or 77."
+  "Allow 2nd factors like 33 or 77."
   :type 'boolean
   :group 'mpuz)
 
 (defface mpuz-unsolved
   '((((class color)) (:foreground "red1" :bold t))
     (t (:bold t)))
-  "*Face to use for letters to be solved."
+  "Face to use for letters to be solved."
   :group 'mpuz)
 
 (defface mpuz-solved
   '((((class color)) (:foreground "green1" :bold t))
     (t (:bold t)))
-  "*Face to use for solved digits."
+  "Face to use for solved digits."
   :group 'mpuz)
 
 (defface mpuz-trivial
   '((((class color)) (:foreground "blue" :bold t))
     (t (:bold t)))
-  "*Face to use for trivial digits solved for you."
+  "Face to use for trivial digits solved for you."
   :group 'mpuz)
 
 (defface mpuz-text
   '((t (:inherit variable-pitch)))
-  "*Face to use for text on right."
+  "Face to use for text on right."
   :group 'mpuz)
 
 
diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index 8835ff9c959..2ada2a08518 100644
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -1,7 +1,7 @@
 ;;; pong.el --- classical implementation of pong
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Benjamin Drieu <bdrieu@april.org>
 ;; Keywords: games
@@ -39,67 +39,67 @@
   :group 'games)
 
 (defcustom pong-buffer-name "*Pong*"
-  "*Name of the buffer used to play."
+  "Name of the buffer used to play."
   :group 'pong
   :type '(string))
 
 (defcustom pong-width 50
-  "*Width of the playfield."
+  "Width of the playfield."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-height (min 30 (- (frame-height) 6))
-  "*Height of the playfield."
+  "Height of the playfield."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-bat-width 3
-  "*Width of the bats for pong."
+  "Width of the bats for pong."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-blank-color "black"
-  "*Color used for background."
+  "Color used for background."
   :group 'pong
   :type 'color)
 
 (defcustom pong-bat-color "yellow"
-  "*Color used for bats."
+  "Color used for bats."
   :group 'pong
   :type 'color)
 
 (defcustom pong-ball-color "red"
-  "*Color used for the ball."
+  "Color used for the ball."
   :group 'pong
   :type 'color)
 
 (defcustom pong-border-color "white"
-  "*Color used for pong borders."
+  "Color used for pong borders."
   :group 'pong
   :type 'color)
 
 (defcustom pong-left-key "4"
-  "*Alternate key to press for bat 1 to go up (primary one is [left])."
+  "Alternate key to press for bat 1 to go up (primary one is [left])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-right-key "6"
-  "*Alternate key to press for bat 1 to go down (primary one is [right])."
+  "Alternate key to press for bat 1 to go down (primary one is [right])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-up-key "8"
-  "*Alternate key to press for bat 2 to go up (primary one is [up])."
+  "Alternate key to press for bat 2 to go up (primary one is [up])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-down-key "2"
-  "*Alternate key to press for bat 2 to go down (primary one is [down])."
+  "Alternate key to press for bat 2 to go down (primary one is [down])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-quit-key "q"
-  "*Key to press to quit pong."
+  "Key to press to quit pong."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
@@ -109,12 +109,12 @@
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-resume-key "p"
-  "*Key to press to resume pong."
+  "Key to press to resume pong."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-timer-delay 0.1
-  "*Time to wait between every cycle."
+  "Time to wait between every cycle."
   :group 'pong
   :type 'number)
 
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 72c5bdaef18..6ea63e4f231 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -1,7 +1,7 @@
 ;;; solitaire.el --- game of solitaire in Emacs Lisp
 
-;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de>
 ;; Created: Fri afternoon, Jun  3,  1994
@@ -118,7 +118,7 @@ The usual mnemonic keys move the cursor around the board; in addition,
 (defvar solitaire-end-y nil)
 
 (defcustom solitaire-auto-eval t
-  "*Non-nil means check for possible moves after each major change.
+  "Non-nil means check for possible moves after each major change.
 This takes a while, so switch this on if you like to be informed when
 the game is over, or off, if you are working on a slow machine."
   :type 'boolean
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index eeaff089cf8..7e16de28672 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -1,7 +1,7 @@
 ;;; tetris.el --- implementation of Tetris for Emacs
 
-;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Glynn Clements <glynn@sensei.co.uk>
 ;; Version: 2.01
@@ -40,22 +40,22 @@
   :group 'games)
 
 (defcustom tetris-use-glyphs t
-  "*Non-nil means use glyphs when available."
+  "Non-nil means use glyphs when available."
   :group 'tetris
   :type 'boolean)
 
 (defcustom tetris-use-color t
-  "*Non-nil means use color when available."
+  "Non-nil means use color when available."
   :group 'tetris
   :type 'boolean)
 
 (defcustom tetris-draw-border-with-glyphs t
-  "*Non-nil means draw a border even when using glyphs."
+  "Non-nil means draw a border even when using glyphs."
   :group 'tetris
   :type 'boolean)
 
 (defcustom tetris-default-tick-period 0.3
-  "*The default time taken for a shape to drop one row."
+  "The default time taken for a shape to drop one row."
   :group 'tetris
   :type 'number)