*** no comment ***

3 files changed, 11 insertions, 7 deletions

diff --git a/chess-engine.el b/chess-engine.el
index ad163c0..807f99d 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -222,8 +222,10 @@
 			  ;; this could be accelerated by joining
 			  ;; together the regexps
 			  (if (looking-at (caar triggers))
-			      (funcall (cdar triggers)))
-			  (setq triggers (cdr triggers))))
+			      (progn
+				(funcall (cdar triggers))
+				(setq triggers nil))
+			    (setq triggers (cdr triggers)))))
 		    (chess-illegal (error-message-string err)))
 		  (forward-line)))
 	    (setq chess-engine-last-pos (point)
diff --git a/chess-irc.el b/chess-irc.el
index 0b3b98c..4224c7a 100644
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -11,17 +11,17 @@
   :group 'chess-engine)
 
 (defcustom chess-irc-host "irc.openprojects.net"
-  ""
+  "The IRC host to connect your chess-irc engine to."
   :type 'string
   :group 'chess-irc)
 
 (defcustom chess-irc-port 6667
-  ""
+  "The port of the IRC host specified by `chess-irc-host'."
   :type 'string
   :group 'chess-irc)
 
-(defcustom chess-irc-nick "jwchess"
-  ""
+(defcustom chess-irc-nick (user-login-name)
+  "The nick you wish to use for sending/receiving IRC chess moves."
   :type 'string
   :group 'chess-irc)
 
diff --git a/chess.el b/chess.el
index b557c65..7f42698 100644
--- a/chess.el
+++ b/chess.el
@@ -99,7 +99,9 @@ a0 243
   :type 'sexp
   :group 'chess)
 (defcustom chess-announce-moves (and (executable-find "festival") t)
-  "If non-nil, announce your opponent's moves verbally."
+  "If non-nil, announce your opponent's moves verbally.
+This requires the utility 'festival' to be installed.  If it is
+installed, this variable will default to true."
 minibuffer, which works well for Emacspeak users."
   :type 'boolean
   :group 'chess)