From e72de811ab1334214dd80a01951cc99db83c2dbb Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 9 Apr 2002 10:24:20 +0000
Subject: *** no comment ***

---
 chess-irc.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'chess-irc.el')

diff --git a/chess-irc.el b/chess-irc.el
index 489624f..6459cc2 100644
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -71,7 +71,7 @@
 
    ((eq event 'shutdown)
     (ignore-errors
-      (chess-engine-send nil "game over"))
+      (chess-engine-send nil "quit"))
     (ignore-errors
       (process-send-string chess-irc-process "QUIT :Goodbye\n"))
     (ignore-errors
@@ -103,6 +103,8 @@ NOTE: This function is meant to be called from a display buffer!"
 	  (save-excursion
 	    ;; Insert the text, advancing the marker.
 	    (goto-char (process-mark proc))
+	    (while (string-match "\r" string)
+	      (setq string (replace-match "" t t string)))
 	    (insert string)
 	    (set-marker (process-mark proc) (point)))
 	  (if moving (goto-char (process-mark proc))))
-- 
cgit v1.2.3