diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 10:24:20 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 10:24:20 +0000 |
| commit | e72de811ab1334214dd80a01951cc99db83c2dbb (patch) | |
| tree | 47cffb7817f00ff4a163a3258879a72769a44b15 /chess-irc.el | |
| parent | 44e4db22229406866aa5dab7d05b6305fbb62cf3 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-irc.el')
| -rw-r--r-- | chess-irc.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)))) |