diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:12:54 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:12:54 +0000 |
| commit | 22bd8fd73c213c47db047a9e415d48f16da37b60 (patch) | |
| tree | f605cfbf4ff4fd8d7fa07370929a6426f36db3b8 /chess-ics.el | |
| parent | 4f77caddcc54436c291fa08fa73ff0aec2f290e7 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-ics.el b/chess-ics.el index 64fb3cf..5a830d6 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -187,7 +187,7 @@ who is black." t)) (defvar chess-ics-regexp-alist - (list (cons "^\\([A-Za-z0-9_]+\\)%\\s-*$" + (list (cons "^[^% \r\n]+% " (function (lambda () (chess-engine-send nil "set style 12\n") @@ -244,7 +244,7 @@ who is black." (let ((proc (get-buffer-process (current-buffer)))) (if (null (nth 2 server)) - (comint-send-string proc "guest\n\n") + (comint-send-string proc "guest\n") (setq chess-ics-handle (nth 2 server)) (comint-send-string proc (concat chess-ics-handle "\n")) (let ((pass (or (nth 3 server) |