cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/egg-keymap.el

   1 ;; Useful 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-buffer-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] 'japanese-zenkaku-region)
  73 (define-key global-map [f6] 'japanese-hankaku-region)
  74 (define-key global-map [f7] 'japanese-katakana-region)
  75 (define-key global-map [f8] 'japanese-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-buffer-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~" 'japanese-zenkaku-region) ; F5
 103 (define-key sun-fkeymap "17~" 'japanese-hankaku-region) ; F6
 104 (define-key sun-fkeymap "18~" 'japanese-katakana-region); F7
 105 (define-key sun-fkeymap "19~" 'japanese-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