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.
;;; 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>
: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)
;;; 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
: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
(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."
;;; 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
: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
: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)
`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)
"[ ]*\\)?\\([-+]?[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
: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)
\f
;;; 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
;; 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)
;;; 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
(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)
(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)
: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)
\f
;;; 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
: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)))
: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)
;;; 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
(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
;;; 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
: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)
projects / emacs.git / commitdiff