eschulte pushed a commit to branch go
in repository elpa.
commit 80e132c2da182b7aef6ab6aac21e0aa1bf254c53
Author: Eric Schulte <[email protected]>
Date: Sat Aug 24 17:02:31 2013 -0600
try to fix gnugo Emacs crashes
---
back-ends/gnugo.el | 16 +++++++++-------
1 files changed, 9 insertions(+), 7 deletions(-)
diff --git a/back-ends/gnugo.el b/back-ends/gnugo.el
index 0c909e4..7feefcc 100644
--- a/back-ends/gnugo.el
+++ b/back-ends/gnugo.el
@@ -74,13 +74,15 @@ For example, the following changes the level of gnugo.
(gnugo-wait-for-output gnugo))
(defun gnugo-wait-for-output (gnugo)
- (with-current-buffer (buffer gnugo)
- (while (progn
- (goto-char comint-last-input-end)
- (not (re-search-forward "^= *[^\000]+?\n\n" nil t)))
- (when (re-search-forward "^? *\\([^\000]+?\\)\n\n" nil t)
- (error (match-string 1)))
- (accept-process-output (get-buffer-process (current-buffer))))))
+ (condition-case e
+ (with-current-buffer (buffer gnugo)
+ (while (progn
+ (goto-char comint-last-input-end)
+ (not (re-search-forward "^= *[^\000]+?\n\n" nil t)))
+ (when (re-search-forward "^? *\\([^\000]+?\\)\n\n" nil t)
+ (error (match-string 1)))
+ (accept-process-output (get-buffer-process (current-buffer)))))
+ (error (message "gnugo error: %S" e))))
(defun gnugo-last-output (gnugo)
(with-current-buffer (buffer gnugo)
