diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-29 20:16:27 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-29 20:16:27 +0000 |
| commit | 6d94fa394d61c6dd54bb26a8f2e0aebaf50bf0d1 (patch) | |
| tree | c86cc1167bb2302d9775f7fa2a32e1377b5b7fb8 | |
| parent | f929ddbf0cf908cf01abff76c83aa03a53bf0d60 (diff) | |
fix kibitzes on icc
| -rw-r--r-- | chess-ics.el | 4 |
1 files 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)))) |