From 9d1e1415d59adc63655c7c6759db2deb91e1a141 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 05:59:20 +0000 Subject: *** no comment *** --- chess-ics.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'chess-ics.el') 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) -- cgit v1.2.3