/[emacs]/emacs/lisp/term/xterm.el
ViewVC logotype

Diff of /emacs/lisp/term/xterm.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by ttn, Mon Aug 1 15:44:22 2005 UTC revision 1.22 by dann, Fri Sep 2 16:59:56 2005 UTC
# Line 33  Line 33 
33    ;; better in that case to use rxvt's initializion function.    ;; better in that case to use rxvt's initializion function.
34    (if (and (getenv "COLORTERM")    (if (and (getenv "COLORTERM")
35             (string-match "\\`rxvt" (getenv "COLORTERM")))             (string-match "\\`rxvt" (getenv "COLORTERM")))
36        (progn        (progn
37          (load "term/rxvt")          (eval-when-compile (load "term/rxvt"))
38          (terminal-init-rxvt))          (terminal-init-rxvt))
39    
40      ;; The terminal intialization C code file might have initialized      ;; The terminal intialization C code file might have initialized
# Line 98  Line 98 
98      (substitute-key-definition [f60] [A-f12] function-key-map)      (substitute-key-definition [f60] [A-f12] function-key-map)
99    
100      (let ((map (make-sparse-keymap)))      (let ((map (make-sparse-keymap)))
101        (define-key map "\e[A" [up])        ;; xterm from X.org 6.8.2 uses these key definitions.
102        (define-key map "\e[B" [down])        (define-key map "\eOP" [f1])
103        (define-key map "\e[C" [right])        (define-key map "\eOQ" [f2])
104        (define-key map "\e[D" [left])        (define-key map "\eOR" [f3])
105        (define-key map "\e[1~" [home])        (define-key map "\eOS" [f4])
       (define-key map "\e[2~" [insert])  
       (define-key map "\e[3~" [delete])  
       (define-key map "\e[4~" [select])  
       (define-key map "\e[5~" [prior])  
       (define-key map "\e[6~" [next])  
       (define-key map "\e[11~" [f1])  
       (define-key map "\e[12~" [f2])  
       (define-key map "\e[13~" [f3])  
       (define-key map "\e[14~" [f4])  
106        (define-key map "\e[15~" [f5])        (define-key map "\e[15~" [f5])
107        (define-key map "\e[17~" [f6])        (define-key map "\e[17~" [f6])
108        (define-key map "\e[18~" [f7])        (define-key map "\e[18~" [f7])
# Line 120  Line 111 
111        (define-key map "\e[21~" [f10])        (define-key map "\e[21~" [f10])
112        (define-key map "\e[23~" [f11])        (define-key map "\e[23~" [f11])
113        (define-key map "\e[24~" [f12])        (define-key map "\e[24~" [f12])
       (define-key map "\e[29~" [print])  
   
       (define-key map "\eOP" [f1])  
       (define-key map "\eOQ" [f2])  
       (define-key map "\eOR" [f3])  
       (define-key map "\eOS" [f4])  
114    
115        (define-key map "\eO2P" [S-f1])        (define-key map "\eO2P" [S-f1])
116        (define-key map "\eO2Q" [S-f2])        (define-key map "\eO2Q" [S-f2])
# Line 179  Line 164 
164        (define-key map "\e[23;3~" [A-f11])        (define-key map "\e[23;3~" [A-f11])
165        (define-key map "\e[24;3~" [A-f12])        (define-key map "\e[24;3~" [A-f12])
166    
167          (define-key map "\eOA" [up])
168          (define-key map "\eOB" [down])
169          (define-key map "\eOC" [right])
170          (define-key map "\eOD" [left])
171          (define-key map "\eOF" [end])
172          (define-key map "\eOH" [home])
173    
174        (define-key map "\e[1;2A" [S-up])        (define-key map "\e[1;2A" [S-up])
175        (define-key map "\e[1;2B" [S-down])        (define-key map "\e[1;2B" [S-down])
176        (define-key map "\e[1;2C" [S-right])        (define-key map "\e[1;2C" [S-right])
# Line 207  Line 199 
199        (define-key map "\e[1;3F" [A-end])        (define-key map "\e[1;3F" [A-end])
200        (define-key map "\e[1;3H" [A-home])        (define-key map "\e[1;3H" [A-home])
201    
202          (define-key map "\e[2~" [insert])
203          (define-key map "\e[3~" [delete])
204          (define-key map "\e[5~" [prior])
205          (define-key map "\e[6~" [next])
206    
207        (define-key map "\e[2;2~" [S-insert])        (define-key map "\e[2;2~" [S-insert])
208        (define-key map "\e[3;2~" [S-delete])        (define-key map "\e[3;2~" [S-delete])
209        (define-key map "\e[5;2~" [S-prior])        (define-key map "\e[5;2~" [S-prior])
# Line 227  Line 224 
224        (define-key map "\e[5;3~" [A-prior])        (define-key map "\e[5;3~" [A-prior])
225        (define-key map "\e[6;3~" [A-next])        (define-key map "\e[6;3~" [A-next])
226    
227        (define-key map "\eOA" [up])        (define-key map "\e[4~" [select])
228        (define-key map "\eOB" [down])        (define-key map "\e[29~" [print])
229        (define-key map "\eOC" [right])  
230        (define-key map "\eOD" [left])        ;; Other versions of xterm might emit these.
231        (define-key map "\eOF" [end])        (define-key map "\e[A" [up])
232        (define-key map "\eOH" [home])        (define-key map "\e[B" [down])
233          (define-key map "\e[C" [right])
234          (define-key map "\e[D" [left])
235          (define-key map "\e[1~" [home])
236    
237        (define-key map "\eO2A" [S-up])        (define-key map "\eO2A" [S-up])
238        (define-key map "\eO2B" [S-down])        (define-key map "\eO2B" [S-down])
# Line 248  Line 248 
248        (define-key map "\eO5F" [C-end])        (define-key map "\eO5F" [C-end])
249        (define-key map "\eO5H" [C-home])        (define-key map "\eO5H" [C-home])
250    
251          (define-key map "\e[11~" [f1])
252          (define-key map "\e[12~" [f2])
253          (define-key map "\e[13~" [f3])
254          (define-key map "\e[14~" [f4])
255    
256        ;; Use inheritance to let the main keymap override those defaults.        ;; Use inheritance to let the main keymap override those defaults.
257        ;; This way we don't override terminfo-derived settings or settings        ;; This way we don't override terminfo-derived settings or settings
258        ;; made in the .emacs file.        ;; made in the .emacs file.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26