diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:13:01 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:13:01 +0000 |
| commit | f176d63444aa58efb69794cb4138a2b6c43b5d97 (patch) | |
| tree | a68ed53e0a1e972e920d3893d589ccb1e96058f8 | |
| parent | 22bd8fd73c213c47db047a9e415d48f16da37b60 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-engine.el | 2 | ||||
| -rw-r--r-- | chess-ics.el | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/chess-engine.el b/chess-engine.el index 9ffcbb3..5f5292f 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -414,7 +414,7 @@ (setq last-trigger triggers triggers (cdr triggers))))) (forward-line)) - (setq chess-engine-last-pos (point-marker) + (setq chess-engine-last-pos (point) chess-engine-working nil)))))))) (provide 'chess-engine) diff --git a/chess-ics.el b/chess-ics.el index 5a830d6..6ef3a8c 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -187,7 +187,7 @@ who is black." t)) (defvar chess-ics-regexp-alist - (list (cons "^[^% \r\n]+% " + (list (cons "^[^% \t\n\r]+%" (function (lambda () (chess-engine-send nil "set style 12\n") @@ -198,7 +198,7 @@ who is black." (lambda () (setq chess-ics-handle (match-string 1)) 'once))) - (cons "\\(\\([ \t\n\r]*[A-Za-z0-9_]+%[ \t\n\r]*\\)?<12> \\(.+\\)\\)\n" + (cons "<12> \\(.+\\)" 'chess-ics-handle-move) (cons "Challenge: \\(\\S-+\\) \\S-+ \\S-+ \\S-+ .+" (function |