Mercurial > emacs
changeset 109329:a6e068e858a4
* xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127
now that unicode is used (Bug#6594).
| author | Jan D <jan.h.d@swipnet.se> |
|---|---|
| date | Wed, 14 Jul 2010 19:53:42 +0200 |
| parents | 548603211765 |
| children | d03ee75f7be2 |
| files | lisp/ChangeLog lisp/xt-mouse.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jul 14 12:11:39 2010 -0400 +++ b/lisp/ChangeLog Wed Jul 14 19:53:42 2010 +0200 @@ -1,3 +1,8 @@ +2010-07-14 Jan Djärv <jan.h.d@swipnet.se> + + * xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127 + now that unicode is used (Bug#6594). + 2010-07-14 Chong Yidong <cyd@stupidchicken.com> * simple.el (push-mark-command): Set the selection if
--- a/lisp/xt-mouse.el Wed Jul 14 12:11:39 2010 -0400 +++ b/lisp/xt-mouse.el Wed Jul 14 19:53:42 2010 +0200 @@ -122,8 +122,8 @@ ;; read xterm sequences above ascii 127 (#x7f) (defun xterm-mouse-event-read () (let ((c (read-char))) - (if (< c 0) - (+ c #x8000000 128) + (if (> c #x3FFF80) + (+ 128 (- c #x3FFF80)) c))) (defun xterm-mouse-truncate-wrap (f)