/[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.20 by dann, Wed Jul 27 18:02:07 2005 UTC revision 1.21 by ttn, Mon Aug 1 15:44:22 2005 UTC
# Line 1  Line 1 
1  ;;; xterm.el --- define function key sequences and standard colors for xterm  ;;; xterm.el --- define function key sequences and standard colors for xterm
2    
3  ;; Copyright (C) 1995, 2002, 2005  Free Software Foundation, Inc.  ;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4    
5  ;; Author: FSF  ;; Author: FSF
6  ;; Keywords: terminals  ;; Keywords: terminals
# 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")          (load "term/rxvt")
38          (terminal-init-rxvt))          (terminal-init-rxvt))
39    
# Line 45  Line 45 
45      ;; function-key-map. This substitution is needed because if a key      ;; function-key-map. This substitution is needed because if a key
46      ;; definition if found in function-key-map, there are no further      ;; definition if found in function-key-map, there are no further
47      ;; lookups in other keymaps.      ;; lookups in other keymaps.
48      (substitute-key-definition [f13] [S-f1] function-key-map)      (substitute-key-definition [f13] [S-f1] function-key-map)
49      (substitute-key-definition [f14] [S-f2] function-key-map)      (substitute-key-definition [f14] [S-f2] function-key-map)
50      (substitute-key-definition [f15] [S-f3] function-key-map)      (substitute-key-definition [f15] [S-f3] function-key-map)
51      (substitute-key-definition [f16] [S-f4] function-key-map)      (substitute-key-definition [f16] [S-f4] function-key-map)
# Line 58  Line 58 
58      (substitute-key-definition [f23] [S-f11] function-key-map)      (substitute-key-definition [f23] [S-f11] function-key-map)
59      (substitute-key-definition [f24] [S-f12] function-key-map)      (substitute-key-definition [f24] [S-f12] function-key-map)
60    
61      (substitute-key-definition [f25] [C-f1] function-key-map)      (substitute-key-definition [f25] [C-f1] function-key-map)
62      (substitute-key-definition [f26] [C-f2] function-key-map)      (substitute-key-definition [f26] [C-f2] function-key-map)
63      (substitute-key-definition [f27] [C-f3] function-key-map)      (substitute-key-definition [f27] [C-f3] function-key-map)
64      (substitute-key-definition [f28] [C-f4] function-key-map)      (substitute-key-definition [f28] [C-f4] function-key-map)
# Line 71  Line 71 
71      (substitute-key-definition [f35] [C-f11] function-key-map)      (substitute-key-definition [f35] [C-f11] function-key-map)
72      (substitute-key-definition [f36] [C-f12] function-key-map)      (substitute-key-definition [f36] [C-f12] function-key-map)
73    
74      (substitute-key-definition [f37] [C-S-f1] function-key-map)      (substitute-key-definition [f37] [C-S-f1] function-key-map)
75      (substitute-key-definition [f38] [C-S-f2] function-key-map)      (substitute-key-definition [f38] [C-S-f2] function-key-map)
76      (substitute-key-definition [f39] [C-S-f3] function-key-map)      (substitute-key-definition [f39] [C-S-f3] function-key-map)
77      (substitute-key-definition [f40] [C-S-f4] function-key-map)      (substitute-key-definition [f40] [C-S-f4] function-key-map)
# Line 84  Line 84 
84      (substitute-key-definition [f47] [C-S-f11] function-key-map)      (substitute-key-definition [f47] [C-S-f11] function-key-map)
85      (substitute-key-definition [f48] [C-S-f12] function-key-map)      (substitute-key-definition [f48] [C-S-f12] function-key-map)
86    
87      (substitute-key-definition [f49] [A-f1] function-key-map)      (substitute-key-definition [f49] [A-f1] function-key-map)
88      (substitute-key-definition [f50] [A-f2] function-key-map)      (substitute-key-definition [f50] [A-f2] function-key-map)
89      (substitute-key-definition [f51] [A-f3] function-key-map)      (substitute-key-definition [f51] [A-f3] function-key-map)
90      (substitute-key-definition [f52] [A-f4] function-key-map)      (substitute-key-definition [f52] [A-f4] function-key-map)

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

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