diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 20:52:55 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 20:52:55 +0000 |
| commit | 3599f7519b44c70889dc42e6b9c1e8be6b30d3b4 (patch) | |
| tree | cd0656229e4ae63d396e3e2c969d8acd34026a9e /chess-ics.el | |
| parent | 6c185d0719c99a07495924d15bf21b0330da9670 (diff) | |
(chess-ics-regexp-alist): Added a handler to capture the guest id when
logging in anonymously.
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-ics.el b/chess-ics.el index 1884799..e4f3e68 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -190,6 +190,10 @@ who is black." (chess-engine-send nil "set style 12\n") (chess-engine-send nil "set bell 0\n") (setq chess-ics-logged-in t))))) + (cons "Logging you in as \"\\([^\"]+\\)\"" + (function + (lambda () + (setq chess-ics-handle (match-string 1))))) (cons "\\(\\(\n*fics%\n*\\)?<12> \\(.+\\)\\)\n" 'chess-ics-handle-move) (cons "Challenge: \\(\\S-+\\) \\S-+ \\S-+ \\S-+ .+" @@ -243,8 +247,6 @@ who is black." (insert-file-contents file) (buffer-string)))) (comint-send-string proc (concat pass "\n"))))) - ;; jww (2002-04-13): Have to parse out the allocated Guest - ;; name from the output (comint-send-string proc "guest\n\n"))))) t) |