Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-keymap.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children fe104dbd9147
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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