(define (convert-csi-input port)
(let ((char (read-char port)))
(case char
((#\A) 'up)
((#\B) 'down)
((#\C) 'right)
((#\D) 'left)
((#\H) 'home)
((#\F) 'end)
((#\1) (if (eat!-char? #\~ port) 'home #f)) ; vt220 find / linux home
((#\2) (if (eat!-char? #\~ port) 'insert-here #f)) ; numpad enter???
((#\3) (if (eat!-char? #\~ port) #\del #f))
((#\4) (if (eat!-char? #\~ port) 'end #f)) ; vt220 select / linux end
((#\5) (if (eat!-char? #\~ port) 'page-up #f))
((#\6) (if (eat!-char? #\~ port) 'page-down #f))
(else ; unknown CSI input follow-up XXX just beep
(print " CSI ")
(print-safely char)
unrecognized-input) )))
** Attachment added: "viper-c0-alfa.tar"
https://bugs.launchpad.net/ubuntu/+source/linux/+bug/1468283/+attachment/4420409/+files/viper-c0-alfa.tar
--
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
https://bugs.launchpad.net/bugs/1468283
Title:
Wrong Escape Sequences for Home and End keys
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/linux/+bug/1468283/+subscriptions
--
ubuntu-bugs mailing list
[email protected]
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
