From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 30 Jan 1999 07:24:51 +0000 (+0000)
Subject: (gametree-default-score): Use defcustom.
X-Git-Tag: emacs-20.4~723
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79c48ffe93ed1b2b9ffb33654deebed864096c89;p=emacs.git

(gametree-default-score): Use defcustom.
(gametree-score-regexp, gametree-score-closer): Likewise.
(gametree-score-manual-flag, gametree-score-opener): Likewise.
---

diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index 38a8d631517..44c08f15741 100644
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -138,16 +138,22 @@ file, the local value will be saved there and restored the next time
 the file is visited (subject to the usual restriction via
 `enable-local-variables'), and the layout will be set accordingly.")
 
-(defvar gametree-score-opener "{score="
-  "*The string which opens a score tag, and precedes the actual score.")
+(defcustom gametree-score-opener "{score="
+  "*The string which opens a score tag, and precedes the actual score."
+  :type 'string
+  :group gametree)
 
-(defvar gametree-score-manual-flag "!"
-  "*String marking the line as manually (as opposed to automatically) scored.")
+(defcustom gametree-score-manual-flag "!"
+  "*String marking the line as manually (as opposed to automatically) scored."
+  :type 'string
+  :group gametree)
 
-(defvar gametree-score-closer "}"
-  "*The string which closes a score tag, and follows the actual score.")
+(defcustom gametree-score-closer "}"
+  "*The string which closes a score tag, and follows the actual score."
+  :type 'string
+  :group gametree)
 
-(defvar gametree-score-regexp
+(defcustom gametree-score-regexp
   (concat "[^\n\^M]*\\("
           (regexp-quote gametree-score-opener)
           "[ 	]*\\("
@@ -162,10 +168,14 @@ second parenthetical group should be an optional flag that marks the
 line as *manually* (as opposed to automatically) scored, which
 prevents the program from recursively applying the scoring algorithm
 on the subtree headed by the marked line, and makes it use the manual
-score instead.")
+score instead."
+  :type 'regexp
+  :group gametree)
 
-(defvar gametree-default-score 0
-  "*Score to assume for branches lacking score tags.")
+(defcustom gametree-default-score 0
+  "*Score to assume for branches lacking score tags."
+  :type 'integer
+  :group gametree)
 
 ;;;; Helper functions