From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 22 Apr 2007 09:08:14 +0000 (+0000)
Subject: (t-mouse-make-event): Pass on mev's more informative
X-Git-Tag: emacs-pretest-22.0.99~88
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73e9b6a4e026a5728472337fb208f809e48fbcaa;p=emacs.git

(t-mouse-make-event): Pass on mev's more informative
error message.
---

diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index eca2ce2b9fe..15521decd90 100644
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -166,6 +166,8 @@ Also trim the accumulator by all the data used to build the event."
     (if (or (eq (car ob-pos) 'STILL) (eq (car ob-pos) '***) (not ob-pos))
 	nil
       (setq ob (car ob-pos))
+      (if (string-match "mev:$" (prin1-to-string ob))
+	  (error "Can't open mouse connection"))
       (setq t-mouse-filter-accumulator
             (substring t-mouse-filter-accumulator (cdr ob-pos)))