From 6d94fa394d61c6dd54bb26a8f2e0aebaf50bf0d1 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sun, 29 Feb 2004 20:16:27 +0000 Subject: fix kibitzes on icc --- chess-ics.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/chess-ics.el b/chess-ics.el index 9742b39..0bb5e0c 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -252,7 +252,7 @@ standard position). In those cases, this variable should be set to nil.") (concat "^" chess-ics-prompt-regexp)))) (delete-region (match-beginning 0) (1+ (match-end 0))))) t))) - (cons "^\\([A-Za-z0-9]+\\)\\((\\*)\\|(B)\\|(CA?)\\|(H)\\|(T[DM]?)\\|(SR)\\|(FM)\\|(W?[GI]M)\\|(U)\\|([0-9-]+)\\)*\\((\\([0-9]+\\))\\| tells you\\| s-shouts\\|\\[\\([0-9]+\\)\\] kibitzes\\): \\(.+\\)$" + (cons "^\\([A-Za-z0-9]+\\)\\((\\*)\\|(B)\\|(CA?)\\|(H)\\|(DM)\\|(T[DM]?)\\|(SR)\\|(FM)\\|(W?[GI]M)\\|(U)\\|([0-9-]+)\\)*\\((\\([0-9]+\\))\\| tells you\\| s-shouts\\|\\[\\([0-9]+\\)\\] kibitzes\\): \\(.+\\)$" (function (lambda () (let ((fill-prefix (make-string @@ -921,7 +921,7 @@ This function should be put on `comint-preoutput-filter-functions'." (concat name (mapconcat (lambda (title) (concat "(" title ")")) - titles ""))) + (split-string titles " ") ""))) (setq string (format "%s\n%s[%s] %s: %s\n%s" pre name game-number action text post)))) -- cgit v1.2.3