diff options
| author | Nick Roberts | 2007-04-22 09:08:14 +0000 |
|---|---|---|
| committer | Nick Roberts | 2007-04-22 09:08:14 +0000 |
| commit | 73e9b6a4e026a5728472337fb208f809e48fbcaa (patch) | |
| tree | ab6036d8df00a9606b9311e3b84c284d604b450e | |
| parent | af0f5c395ff10dcf1ec672f211e525ff8b15d43e (diff) | |
| download | emacs-73e9b6a4e026a5728472337fb208f809e48fbcaa.tar.gz emacs-73e9b6a4e026a5728472337fb208f809e48fbcaa.zip | |
(t-mouse-make-event): Pass on mev's more informative
error message.
| -rw-r--r-- | lisp/t-mouse.el | 2 |
1 files changed, 2 insertions, 0 deletions
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." | |||
| 166 | (if (or (eq (car ob-pos) 'STILL) (eq (car ob-pos) '***) (not ob-pos)) | 166 | (if (or (eq (car ob-pos) 'STILL) (eq (car ob-pos) '***) (not ob-pos)) |
| 167 | nil | 167 | nil |
| 168 | (setq ob (car ob-pos)) | 168 | (setq ob (car ob-pos)) |
| 169 | (if (string-match "mev:$" (prin1-to-string ob)) | ||
| 170 | (error "Can't open mouse connection")) | ||
| 169 | (setq t-mouse-filter-accumulator | 171 | (setq t-mouse-filter-accumulator |
| 170 | (substring t-mouse-filter-accumulator (cdr ob-pos))) | 172 | (substring t-mouse-filter-accumulator (cdr ob-pos))) |
| 171 | 173 | ||