diff options
| author | Jan D <jan.h.d@swipnet.se> | 2010-07-14 19:53:42 +0200 |
|---|---|---|
| committer | Jan D <jan.h.d@swipnet.se> | 2010-07-14 19:53:42 +0200 |
| commit | 243881ed1372458823182c219d71c43e9d174ddc (patch) | |
| tree | 66ba4d34d811af98adf6ecf28bfcd75ad0ac509c | |
| parent | 5cbce271a61935fe07103b94cfad678d129f06c9 (diff) | |
| download | emacs-243881ed1372458823182c219d71c43e9d174ddc.tar.gz | |
* xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127
now that unicode is used (Bug#6594).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/xt-mouse.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4655469ed54..b44d00d72d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 2d38c6e827c..f802103fbd7 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -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) |