diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-30 07:24:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-30 07:24:51 +0000 |
| commit | 79c48ffe93ed1b2b9ffb33654deebed864096c89 (patch) | |
| tree | 011920ee3fc43fdda38056d9df986ad0b1288394 /lisp/play/gametree.el | |
| parent | 3bc5a5ee9a1731d71081ca4412dda3117f18380d (diff) | |
| download | emacs-79c48ffe93ed1b2b9ffb33654deebed864096c89.tar.gz | |
(gametree-default-score): Use defcustom.
(gametree-score-regexp, gametree-score-closer): Likewise.
(gametree-score-manual-flag, gametree-score-opener): Likewise.
Diffstat (limited to 'lisp/play/gametree.el')
| -rw-r--r-- | lisp/play/gametree.el | 30 |
1 files changed, 20 insertions, 10 deletions
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 |