diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:59:20 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-15 05:59:20 +0000 |
| commit | 9d1e1415d59adc63655c7c6759db2deb91e1a141 (patch) | |
| tree | ac24536a381580e599cd9323439a3fff3f6e83eb /chess-ics.el | |
| parent | ef7c29d679c6aaf8dda55772e65800097c46f163 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/chess-ics.el b/chess-ics.el index ecd898b..d0a04f3 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -200,17 +200,20 @@ who is black." (if (nth 2 server) (progn (setq chess-ics-handle (nth 2 server)) - (comint-send-string (concat chess-ics-handle "\n")) + (comint-send-string (get-buffer-process (current-buffer)) + (concat chess-ics-handle "\n")) (let ((pass (nth 3 server))) (when pass (if (file-readable-p pass) (setq pass (with-temp-buffer (insert-file-contents file) (buffer-string)))) - (comint-send-string (concat pass "\n"))))) + (comint-send-string (get-buffer-process (current-buffer)) + (concat pass "\n"))))) ;; jww (2002-04-13): Have to parse out the allocated Guest ;; name from the output - (comint-send-string "guest\n\n")))) + (comint-send-string (get-buffer-process (current-buffer)) + "guest\n\n")))) t) ((eq event 'match) |