|
70
|
1 ;; Usefull key binding for Sun Function keys
|
|
|
2 ;; Coded by Yutaka Ishikawa at ETL (yisikawa@etl.junet)
|
|
|
3
|
|
|
4 ;; This file is part of Egg on Mule (Multilingual Environment)
|
|
|
5
|
|
|
6 ;; Egg is free software; you can redistribute it and/or modify
|
|
|
7 ;; it under the terms of the GNU General Public License as published by
|
|
|
8 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
9 ;; any later version.
|
|
|
10
|
|
|
11 ;; Egg is distributed in the hope that it will be useful,
|
|
|
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
14 ;; GNU General Public License for more details.
|
|
|
15
|
|
|
16 ;; You should have received a copy of the GNU General Public License
|
|
|
17 ;; along with Mule; see the file COPYING. If not, write to
|
|
|
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
19
|
|
|
20 ;;; 92.4.16 modified for Mule Ver.0.9.3 by K.Handa <handa@etl.go.jp>
|
|
|
21
|
|
|
22 ;;
|
|
|
23 ;; Table of Function key codes:
|
|
|
24 ;;
|
|
|
25 ;;; x11term xterm
|
|
|
26 ;;;
|
|
|
27 ;;; XK_F1: [f1] "\e[11~"
|
|
|
28 ;;; XK_F2: [f2] "\e[12~"
|
|
|
29 ;;; XK_F3: [f3] "\e[13~"
|
|
|
30 ;;; XK_F4: [f4] "\e[14~"
|
|
|
31 ;;; XK_F5: [f5] "\e[15~"
|
|
|
32 ;;; XK_F6: [f5] "\e[17~"
|
|
|
33 ;;; XK_F7: [f7] "\e[18~"
|
|
|
34 ;;; XK_F8: [f8] "\e[19~"
|
|
|
35 ;;; XK_F9: [f9] "\e[20~"
|
|
|
36 ;;;
|
|
|
37 ;;; XK_F10: [f10] "\e[21~"
|
|
|
38 ;;; XK_F11: [f11] "\e[23~"
|
|
|
39 ;;; XK_F12: [f12] "\e[24~"
|
|
|
40 ;;; XK_F13: [f13] "\e[25~"
|
|
|
41 ;;; XK_F14: [f14] "\e[26~"
|
|
|
42 ;;; XK_F15: [f15] "\e[28~"
|
|
|
43 ;;; XK_Help: [help] "\e[28~"
|
|
|
44 ;;; XK_F16: [f16] "\e[29~"
|
|
|
45 ;;; XK_Menu: ??? "\e[29~"
|
|
|
46 ;;; XK_F17: [f17] "\e[31~"
|
|
|
47 ;;; XK_F18: [f18] "\e[32~"
|
|
|
48 ;;; XK_F19: [f19] "\e[33~"
|
|
|
49 ;;; XK_F20: [f20] "\e[34~"
|
|
|
50 ;;;
|
|
|
51 ;;; XK_Find : [find] "\e[1~"
|
|
|
52 ;;; XK_Insert: [insert] "\e[2~"
|
|
|
53 ;;; XK_Delete: [delete] "\e[3~"
|
|
|
54 ;;; XK_Select: ??? "\e[4~"
|
|
|
55 ;;; XK_Prior: [prior] "\e[5~"
|
|
|
56 ;;; XK_Next: [next] "\e[6~"
|
|
|
57 ;;;
|
|
|
58 ;;; XK_Left: [left] "\eOC"(XK_R12)
|
|
|
59 ;;; XK_Right: [right] "\eOD"(XK_R10)
|
|
|
60 ;;; XK_Up: [up] "\eOA"(XK_R8)
|
|
|
61 ;;; XK_Down: [down] "\eOB"(XK_R10)
|
|
|
62 ;;;
|
|
|
63
|
|
|
64 ;;;
|
|
|
65 ;;; Key bindings for X11 terminals(x11term)
|
|
|
66 ;;;
|
|
|
67
|
|
|
68 (define-key global-map [f1] 'set-file-coding-system)
|
|
|
69 (define-key global-map [f2] 'edit-dict-item)
|
|
|
70 (define-key global-map [f3] 'jis-code-input)
|
|
|
71 (define-key global-map [f4] 'toroku-region)
|
|
|
72 (define-key global-map [f5] 'zenkaku-region)
|
|
|
73 (define-key global-map [f6] 'hankaku-region)
|
|
|
74 (define-key global-map [f7] 'katakana-region)
|
|
|
75 (define-key global-map [f8] 'hiragana-region)
|
|
|
76 (define-key global-map [f9] 'henkan-region)
|
|
|
77
|
|
|
78 (define-key global-map [f11] 'insert-buffer)
|
|
|
79 (define-key global-map [f12] 'insert-file)
|
|
|
80 (define-key global-map [f13] 'eval-region)
|
|
|
81 (define-key global-map [f14] 'eval-current-buffer)
|
|
|
82 (define-key global-map [f15] 'enlarge-window)
|
|
|
83 (define-key global-map [f16] 'shrink-window)
|
|
|
84 (define-key global-map [f17] 'revert-buffer)
|
|
|
85 (define-key global-map [f18] 'revert-buffer)
|
|
|
86 (define-key global-map [f19] 'beginning-of-buffer)
|
|
|
87 (define-key global-map [f20] 'end-of-buffer)
|
|
|
88
|
|
|
89 ;;;
|
|
|
90 ;;; Key bindings for non X11 terminal([kx]term)
|
|
|
91 ;;;
|
|
|
92
|
|
|
93 (defvar sun-fkeymap (make-keymap))
|
|
|
94 (fset 'sun-fprefix sun-fkeymap)
|
|
|
95
|
|
|
96 (define-key global-map "\e[" 'sun-fprefix)
|
|
|
97 (define-key sun-fkeymap "[" 'backward-paragraph) ; old "\e[" assignment
|
|
|
98 (define-key sun-fkeymap "11~" 'set-file-coding-system) ; F1 92.4.16 by K.Handa
|
|
|
99 (define-key sun-fkeymap "12~" 'edit-dict-item) ; F2
|
|
|
100 (define-key sun-fkeymap "13~" 'jis-code-input) ; F3
|
|
|
101 (define-key sun-fkeymap "14~" 'toroku-region) ; F4
|
|
|
102 (define-key sun-fkeymap "15~" 'zenkaku-region) ; F5
|
|
|
103 (define-key sun-fkeymap "17~" 'hankaku-region) ; F6
|
|
|
104 (define-key sun-fkeymap "18~" 'katakana-region) ; F7
|
|
|
105 (define-key sun-fkeymap "19~" 'hiragana-region) ; F8
|
|
|
106 (define-key sun-fkeymap "20~" 'henkan-region) ; F9
|
|
|
107
|
|
|
108 (define-key sun-fkeymap "23~" 'insert-buffer) ; F11 or L1
|
|
|
109 (define-key sun-fkeymap "24~" 'insert-file) ; F12 or L2
|
|
|
110 (define-key sun-fkeymap "25~" 'eval-region) ; F13 or L3
|
|
|
111 (define-key sun-fkeymap "26~" 'eval-current-buffer) ; F14 or L4
|
|
|
112 (define-key sun-fkeymap "28~" 'enlarge-window) ; F15 or Help or L5
|
|
|
113 (define-key sun-fkeymap "29~" 'shrink-window) ; F16 or Menu or L6
|
|
|
114 (define-key sun-fkeymap "31~" 'revert-buffer) ; F17 or L7
|
|
|
115 (define-key sun-fkeymap "32~" 'revert-buffer) ; F18 or L8
|
|
|
116 (define-key sun-fkeymap "33~" 'beginning-of-buffer) ; F19 or L9
|
|
|
117 (define-key sun-fkeymap "34~" 'end-of-buffer) ; F20 or L10
|
