Re: Keybindings for Emacs with no X?

[Philipp Haselwarter]

fwiw, here's the section of my key-config dealing with terminal
emulators, cascaded screen etc.

#+begin_src elisp
;; {{{2 input quirks

;; gnome-terminal 3.0.1 + screen 4.01.00devel (GNU8cf5efc) 2-May-06 on nzebook
(define-key input-decode-map (kbd "M-[ 1 ; 3 A") [M-up])
(define-key input-decode-map (kbd "M-[ 1 ; 3 B") [M-down])
(define-key input-decode-map (kbd "M-[ 1 ; 3 C") [M-right])
(define-key input-decode-map (kbd "M-[ 1 ; 3 D") [M-left])
(define-key input-decode-map (kbd "M-[ 1 ; 7 A") [C-M-up])
(define-key input-decode-map (kbd "M-[ 1 ; 7 B") [C-M-down])
(define-key input-decode-map (kbd "M-[ 1 ; 7 C") [C-M-right])
(define-key input-decode-map (kbd "M-[ 1 ; 7 D") [C-M-left])
;; terminal 0.4.7 (Xfce 4.8.0) +
;; screen 4.01.00devel (GNU8cf5efc) 2-May-06 on nzebook
(define-key input-decode-map (kbd "M-O a") (kbd "C-<up>"))
(define-key input-decode-map (kbd "M-O b") (kbd "C-<down>"))
(define-key input-decode-map (kbd "M-O c") (kbd "C-<right>"))
(define-key input-decode-map (kbd "M-O d") (kbd "C-<left>"))
(define-key input-decode-map (kbd "M-[ 1 ; 5 A") [C-up])
(define-key input-decode-map (kbd "M-[ 1 ; 5 B") [C-down])
(define-key input-decode-map (kbd "M-[ 1 ; 5 C") [C-right])
(define-key input-decode-map (kbd "M-[ 1 ; 5 D") [C-left])
(define-key input-decode-map (kbd "M-[ a") [S-up])
(define-key input-decode-map (kbd "M-[ b") [S-down])
(define-key input-decode-map (kbd "M-[ c") [S-right])
(define-key input-decode-map (kbd "M-[ d") [S-left])
;; urxvt v9.11 - released: 2011-05-02 +
;; screen 4.01.00devel (GNU8cf5efc) 2-May-06 on nzebook
(define-key input-decode-map (kbd "ESC M-O A") [M-up])
(define-key input-decode-map (kbd "ESC M-O B") [M-down])
(define-key input-decode-map (kbd "ESC M-O C") [M-right])
(define-key input-decode-map (kbd "ESC M-O D") [M-left])
;; urxvt v9.11 - released: 2011-05-02
(define-key input-decode-map (kbd "ESC M-[ A") [M-up])
(define-key input-decode-map (kbd "ESC M-[ B") [M-down])
(define-key input-decode-map (kbd "ESC M-[ C") [M-right])
(define-key input-decode-map (kbd "ESC M-[ D") [M-left])
(define-key input-decode-map (kbd "ESC M-O a") [C-M-up])
(define-key input-decode-map (kbd "ESC M-O b") [C-M-down])
(define-key input-decode-map (kbd "ESC M-O c") [C-M-right])
(define-key input-decode-map (kbd "ESC M-O d") [C-M-left])

;; urxvt v9.12 - released: 2011-06-29, ssh
(define-key input-decode-map (kbd "M-[ a") [S-up])
(define-key input-decode-map (kbd "M-[ b") [S-down])
(define-key input-decode-map (kbd "M-[ c") [S-right])
(define-key input-decode-map (kbd "M-[ d") [S-left])

;; (define-key input-decode-map (kbd "M-O 3 A") [M-up])
;; (define-key input-decode-map (kbd "M-O 3 B") [M-down])
;; (define-key input-decode-map (kbd "M-O 3 C") [M-right])
;; (define-key input-decode-map (kbd "M-O 3 D") [M-left])
#+end_src

It feels a bit kludgy, but well, it works…

-- 
Philipp Haselwarter