mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -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

5
lisp/ChangeLog
View file

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

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)