mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
error message.
This commit is contained in:
Nick Roberts 2007-04-22 09:08:14 +00:00
parent af0f5c395f
commit 73e9b6a4e0
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/t-mouse.el
View file

@ -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)))