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 /lisp/xt-mouse.el | |
| 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).
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |