mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127

Browse source 
now that unicode is used (Bug#6594).
This commit is contained in:
Jan D 2010-07-14 19:53:42 +02:00
parent 5cbce271a6
commit 243881ed13
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/xt-mouse.el
View file

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