Mercurial > emacs
changeset 77398:8172a170a5d7
(t-mouse-make-event): Pass on mev's more informative
error message.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 22 Apr 2007 09:08:14 +0000 |
| parents | a87ddae5899e |
| children | 5341224d266e |
| files | lisp/t-mouse.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/t-mouse.el Sun Apr 22 09:07:43 2007 +0000 +++ b/lisp/t-mouse.el Sun Apr 22 09:08:14 2007 +0000 @@ -166,6 +166,8 @@ (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)))