diff options
| -rw-r--r-- | TODO | 2 | ||||
| -rw-r--r-- | chess-irc.el | 4 |
2 files changed, 5 insertions, 1 deletions
@@ -9,6 +9,8 @@ - Rewrite ics.el +- Add acknowledgement to the chess-network protocol + - Make use of the my-color data in chess-game.el to ensure that I only do what I should be doing 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)))) |