-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# \91\8b\8eg\82¢\82Ì\97J\9fT - emacsedit.mayu
-# Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>
-#
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# Emacs \95\97\88Ú\93®\83R\83}\83\93\83h
-#
-
-keymap EmacsMove : Global
- key Home = C-Home # \95¶\93ª
- key End = C-End # \95¶\96\96
- key C-Space = &Undefined # Mark
- key C-A = Home # \8ds\93ª
- key C-B = Left # \81©
- key M-B = C-Left # \81©(\92P\8cê)
- key C-E = End # \8ds\96\96
- key C-F = Right # \81¨
- key M-F = C-Right # \81¨(\92P\8cê)
- key C-G = Escape # CANCEL
- key C-L = &WindowRedraw &Recenter # \8dÄ\95`\89æ
- key C-N = Down # \81«
- key C-P = Up # \81ª
- key C-Q = &Prefix(KeymapDefault) # mayu \82É\8d¶\89E\82³\82ê\82È\82¢\83L\81[\93ü\97Í
- key C-S = C-F # \8c\9f\8dõ
- if ( !ZXCV ) key C-V = Next # \8e\9f\95Å
- key M-V = Prior # \91O\95Å
- key S-Home = S-C-Home # \95¶\93ª(\91I\91ð)
- key S-End = S-C-End # \95¶\96\96(\91I\91ð)
- key S-M-Comma = C-Home # \95¶\93ª
- key S-M-Period = C-End # \95¶\96\96
-
- if ( EmacsMove/ShiftSelection )
- key S-C-A = S-Home # \8ds\93ª(\91I\91ð)
- key S-C-B = S-Left # \81©(\91I\91ð)
- key S-C-E = S-End # \8ds\96\96(\91I\91ð)
- key S-C-F = S-Right # \81¨(\91I\91ð)
- key S-C-N = S-Down # \81«(\91I\91ð)
- key S-C-P = S-Up # \81ª(\91I\91ð)
- key S-C-V = S-Next # \8e\9f\95Å(\91I\91ð)
- key S-M-V = S-Prior # \91O\95Å(\91I\91ð)
- endif
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# Emacs \95\97\95Ò\8fW\83R\83}\83\93\83h
-#
-
- keyseq $EmacsEdit/kill-word = S-C-Right C-X
- keyseq $EmacsEdit/backward-kill-word = S-C-Left C-X
- keyseq $EmacsEdit/transpose-chars = S-Right C-X Left C-V Right
- keyseq $EmacsEdit/upcase-word = S-C-Right C-C *&Sync \
- &ClipboardUpcaseWord C-V
- keyseq $EmacsEdit/downcase-word = S-C-Right C-C *&Sync \
- &ClipboardDowncaseWord C-V
- keyseq $EmacsEdit/kill-line = &EmacsEditKillLineFunc S-End C-X \
- &Sync &EmacsEditKillLinePred((Delete), (Return Left))
- keyseq $EmacsMark/cancel = Left Right
-
-
-keymap EmacsEdit : EmacsMove
-keymap2 EmacsMark : EmacsEdit = $EmacsMark/cancel &KeymapWindow
-keymap2 EmacsMarkEscape : EmacsMark = &KeymapParent
-
-keymap2 EmacsC-X : EmacsEdit
- event prefixed = &HelpMessage("EmacsEdit C-x-", "C-x u\tundo")
- event before-key-down = &HelpMessage
- key *U = C-Z # UNDO
-
-keymap2 EmacsC-U0_9C-U : Global \
- = &Repeat((&KeymapWindow), 100) &HelpMessage &Variable(0, 0)
- key C-G = &HelpMessage &Variable(0, 0) &Ignore
-
-keymap2 EmacsC-U0_9 : EmacsC-U0_9C-U
- event prefixed = &HelpVariable("\8cJ\82è\95Ô\82µ")
- key _0 Num0 = &Variable(10, 0) &Prefix(EmacsC-U0_9)
- key _1 Num1 = &Variable(10, 1) &Prefix(EmacsC-U0_9)
- key _2 Num2 = &Variable(10, 2) &Prefix(EmacsC-U0_9)
- key _3 Num3 = &Variable(10, 3) &Prefix(EmacsC-U0_9)
- key _4 Num4 = &Variable(10, 4) &Prefix(EmacsC-U0_9)
- key _5 Num5 = &Variable(10, 5) &Prefix(EmacsC-U0_9)
- key _6 Num6 = &Variable(10, 6) &Prefix(EmacsC-U0_9)
- key _7 Num7 = &Variable(10, 7) &Prefix(EmacsC-U0_9)
- key _8 Num8 = &Variable(10, 8) &Prefix(EmacsC-U0_9)
- key _9 Num9 = &Variable(10, 9) &Prefix(EmacsC-U0_9)
- key C-U = &Prefix(EmacsC-U0_9C-U)
-
-keymap2 EmacsC-U : EmacsC-U0_9C-U
- event prefixed = &HelpVariable("\8cJ\82è\95Ô\82µ")
- key _0 Num0 = &Variable(0, 0) &Prefix(EmacsC-U0_9)
- key _1 Num1 = &Variable(0, 1) &Prefix(EmacsC-U0_9)
- key _2 Num2 = &Variable(0, 2) &Prefix(EmacsC-U0_9)
- key _3 Num3 = &Variable(0, 3) &Prefix(EmacsC-U0_9)
- key _4 Num4 = &Variable(0, 4) &Prefix(EmacsC-U0_9)
- key _5 Num5 = &Variable(0, 5) &Prefix(EmacsC-U0_9)
- key _6 Num6 = &Variable(0, 6) &Prefix(EmacsC-U0_9)
- key _7 Num7 = &Variable(0, 7) &Prefix(EmacsC-U0_9)
- key _8 Num8 = &Variable(0, 8) &Prefix(EmacsC-U0_9)
- key _9 Num9 = &Variable(0, 9) &Prefix(EmacsC-U0_9)
- key C-U = &Variable(4, 0) &Prefix(EmacsC-U)
-
-keymap EmacsEdit
- key C-Space = &Prefix(EmacsMark) # Mark
- key M-BackSpace = $EmacsEdit/backward-kill-word # BS(\92P\8cê)
- key C-D = Delete # \8dí\8f\9c
- key M-D = $EmacsEdit/kill-word # \8dí\8f\9c(\92P\8cê)
- key C-H = BackSpace # BS
- key C-J = Return # RETURN
- key C-K = $EmacsEdit/kill-line # \8ds\96\96\82Ü\82Å\8dí\8f\9c
- key C-M = Return # RETURN
- key C-O = Return Left # \88ê\8ds\91\9d\82â\82·
- if ( !GANA ) key C-T = $EmacsEdit/transpose-chars # \95¶\8e\9a\93ü\82ê\91Ö\82¦
- key C-W = C-X # CUT
- key M-W = C-C # COPY
- key C-U = &Variable(0, 4) &Prefix(EmacsC-U)
- if ( !ZXCV ) key C-X = &Prefix(EmacsC-X)
- key C-Y = C-V # PASTE
- key C-Slash = C-Z # UNDO
- key M-U = $EmacsEdit/upcase-word # \91å\95¶\8e\9a
- key M-L = $EmacsEdit/downcase-word # \8f¬\95¶\8e\9a
-
-keymap2 EmacsMark
- key Home = S-C-Home &Prefix(EmacsMark) # \95¶\93ª
- key End = S-C-End &Prefix(EmacsMark) # \95¶\96\96
- key C-A = S-Home &Prefix(EmacsMark) # \8ds\93ª
- key C-B = S-Left &Prefix(EmacsMark) # \81©
- key M-B = S-C-Left &Prefix(EmacsMark) # \81©(\92P\8cê)
- key C-E = S-End &Prefix(EmacsMark) # \8ds\96\96
- key C-F = S-Right &Prefix(EmacsMark) # \81¨
- key M-F = S-C-Right &Prefix(EmacsMark) # \81¨(\92P\8cê)
- key C-G = $EmacsMark/cancel &Undefined # \83L\83\83\83\93\83Z\83\8b
- key C-N = S-Down &Prefix(EmacsMark) # \81«
- key C-P = S-Up &Prefix(EmacsMark) # \81ª
- if ( !ZXCV ) key C-V = S-Next &Prefix(EmacsMark) # \8e\9f\95Å
- key M-V = S-Prior &Prefix(EmacsMark) # \91O\95Å
- key C-W = C-X Left Right # CUT
- key M-W = C-C Left Right # COPY
- key S-M-Comma = S-C-Home &Prefix(EmacsMark) # \95¶\93ª
- key S-M-Period = S-C-End &Prefix(EmacsMark) # \95¶\96\96
- key Left = S-Left &Prefix(EmacsMark) # \81©
- key Up = S-Up &Prefix(EmacsMark) # \81ª
- key Right = S-Right &Prefix(EmacsMark) # \81¨
- key Down = S-Down &Prefix(EmacsMark) # \81«
- if ( MAP-ESCAPE-TO-META )
- key Escape = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
- if ( KBD109 ) and ( ! KBD104on109 )
- key \94¼\8ap/\91S\8ap = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
- endif
- endif
-
-keymap2 EmacsMarkEscape
- event prefixed = &HelpMessage("EmacsMark ESC-", " ")
- event before-key-down = &HelpMessage
- key M-C-G = &Ignore
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
+# \91\8b\8eg\82¢\82Ì\97J\9fT - emacsedit.mayu\r
+# Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>\r
+#\r
+\r
+\r
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
+# Emacs \95\97\88Ú\93®\83R\83}\83\93\83h\r
+#\r
+\r
+keymap EmacsMove : Global\r
+ key Home = C-Home # \95¶\93ª\r
+ key End = C-End # \95¶\96\96\r
+ key C-Space = &Undefined # Mark\r
+ key C-A = Home # \8ds\93ª\r
+ key C-B = Left # \81©\r
+ key M-B = C-Left # \81©(\92P\8cê)\r
+ key C-E = End # \8ds\96\96\r
+ key C-F = Right # \81¨\r
+ key M-F = C-Right # \81¨(\92P\8cê)\r
+ key C-G = Escape # CANCEL\r
+ key C-L = &WindowRedraw &Recenter # \8dÄ\95`\89æ\r
+ key C-N = Down # \81«\r
+ key C-P = Up # \81ª\r
+ key C-Q = &Prefix(KeymapDefault) # mayu \82É\8d¶\89E\82³\82ê\82È\82¢\83L\81[\93ü\97Í\r
+ key C-S = C-F # \8c\9f\8dõ\r
+ if ( !ZXCV ) key C-V = Next # \8e\9f\95Å\r
+ key M-V = Prior # \91O\95Å\r
+ key S-Home = S-C-Home # \95¶\93ª(\91I\91ð)\r
+ key S-End = S-C-End # \95¶\96\96(\91I\91ð)\r
+ key S-M-Comma = C-Home # \95¶\93ª\r
+ key S-M-Period = C-End # \95¶\96\96\r
+\r
+ if ( EmacsMove/ShiftSelection )\r
+ key S-C-A = S-Home # \8ds\93ª(\91I\91ð)\r
+ key S-C-B = S-Left # \81©(\91I\91ð)\r
+ key S-C-E = S-End # \8ds\96\96(\91I\91ð)\r
+ key S-C-F = S-Right # \81¨(\91I\91ð)\r
+ key S-C-N = S-Down # \81«(\91I\91ð)\r
+ key S-C-P = S-Up # \81ª(\91I\91ð)\r
+ key S-C-V = S-Next # \8e\9f\95Å(\91I\91ð)\r
+ key S-M-V = S-Prior # \91O\95Å(\91I\91ð)\r
+ endif\r
+\r
+\r
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
+# Emacs \95\97\95Ò\8fW\83R\83}\83\93\83h\r
+#\r
+\r
+ keyseq $EmacsEdit/kill-word = S-C-Right C-X\r
+ keyseq $EmacsEdit/backward-kill-word = S-C-Left C-X\r
+ keyseq $EmacsEdit/transpose-chars = S-Right C-X Left C-V Right\r
+ keyseq $EmacsEdit/upcase-word = S-C-Right C-C *&Sync \\r
+ &ClipboardUpcaseWord C-V\r
+ keyseq $EmacsEdit/downcase-word = S-C-Right C-C *&Sync \\r
+ &ClipboardDowncaseWord C-V\r
+ keyseq $EmacsEdit/kill-line = &EmacsEditKillLineFunc S-End C-X \\r
+ &Sync &EmacsEditKillLinePred((Delete), (Return Left))\r
+ keyseq $EmacsMark/cancel = Left Right\r
+\r
+\r
+keymap EmacsEdit : EmacsMove\r
+keymap2 EmacsMark : EmacsEdit = $EmacsMark/cancel &KeymapWindow\r
+keymap2 EmacsMarkEscape : EmacsMark = &KeymapParent\r
+\r
+keymap2 EmacsC-X : EmacsEdit\r
+ event prefixed = &HelpMessage("EmacsEdit C-x-", "C-x u\tundo")\r
+ event before-key-down = &HelpMessage\r
+ key *U = C-Z # UNDO\r
+\r
+keymap2 EmacsC-U0_9C-U : Global \\r
+ = &Repeat((&KeymapWindow), 100) &HelpMessage &Variable(0, 0)\r
+ key C-G = &HelpMessage &Variable(0, 0) &Ignore\r
+ \r
+keymap2 EmacsC-U0_9 : EmacsC-U0_9C-U\r
+ event prefixed = &HelpVariable("\8cJ\82è\95Ô\82µ")\r
+ key _0 Num0 = &Variable(10, 0) &Prefix(EmacsC-U0_9)\r
+ key _1 Num1 = &Variable(10, 1) &Prefix(EmacsC-U0_9)\r
+ key _2 Num2 = &Variable(10, 2) &Prefix(EmacsC-U0_9)\r
+ key _3 Num3 = &Variable(10, 3) &Prefix(EmacsC-U0_9)\r
+ key _4 Num4 = &Variable(10, 4) &Prefix(EmacsC-U0_9)\r
+ key _5 Num5 = &Variable(10, 5) &Prefix(EmacsC-U0_9)\r
+ key _6 Num6 = &Variable(10, 6) &Prefix(EmacsC-U0_9)\r
+ key _7 Num7 = &Variable(10, 7) &Prefix(EmacsC-U0_9)\r
+ key _8 Num8 = &Variable(10, 8) &Prefix(EmacsC-U0_9)\r
+ key _9 Num9 = &Variable(10, 9) &Prefix(EmacsC-U0_9)\r
+ key C-U = &Prefix(EmacsC-U0_9C-U)\r
+\r
+keymap2 EmacsC-U : EmacsC-U0_9C-U\r
+ event prefixed = &HelpVariable("\8cJ\82è\95Ô\82µ")\r
+ key _0 Num0 = &Variable(0, 0) &Prefix(EmacsC-U0_9)\r
+ key _1 Num1 = &Variable(0, 1) &Prefix(EmacsC-U0_9)\r
+ key _2 Num2 = &Variable(0, 2) &Prefix(EmacsC-U0_9)\r
+ key _3 Num3 = &Variable(0, 3) &Prefix(EmacsC-U0_9)\r
+ key _4 Num4 = &Variable(0, 4) &Prefix(EmacsC-U0_9)\r
+ key _5 Num5 = &Variable(0, 5) &Prefix(EmacsC-U0_9)\r
+ key _6 Num6 = &Variable(0, 6) &Prefix(EmacsC-U0_9)\r
+ key _7 Num7 = &Variable(0, 7) &Prefix(EmacsC-U0_9)\r
+ key _8 Num8 = &Variable(0, 8) &Prefix(EmacsC-U0_9)\r
+ key _9 Num9 = &Variable(0, 9) &Prefix(EmacsC-U0_9)\r
+ key C-U = &Variable(4, 0) &Prefix(EmacsC-U)\r
+\r
+keymap EmacsEdit\r
+ key C-Space = &Prefix(EmacsMark) # Mark\r
+ key M-BackSpace = $EmacsEdit/backward-kill-word # BS(\92P\8cê)\r
+ key C-D = Delete # \8dí\8f\9c\r
+ key M-D = $EmacsEdit/kill-word # \8dí\8f\9c(\92P\8cê)\r
+ key C-H = BackSpace # BS\r
+ key C-J = Return # RETURN\r
+ key C-K = $EmacsEdit/kill-line # \8ds\96\96\82Ü\82Å\8dí\8f\9c\r
+ key C-M = Return # RETURN\r
+ key C-O = Return Left # \88ê\8ds\91\9d\82â\82·\r
+ if ( !GANA ) key C-T = $EmacsEdit/transpose-chars # \95¶\8e\9a\93ü\82ê\91Ö\82¦\r
+ key C-W = C-X # CUT\r
+ key M-W = C-C # COPY\r
+ key C-U = &Variable(0, 4) &Prefix(EmacsC-U)\r
+ if ( !ZXCV ) key C-X = &Prefix(EmacsC-X)\r
+ key C-Y = C-V # PASTE\r
+ key C-Slash = C-Z # UNDO\r
+ key M-U = $EmacsEdit/upcase-word # \91å\95¶\8e\9a\r
+ key M-L = $EmacsEdit/downcase-word # \8f¬\95¶\8e\9a\r
+\r
+keymap2 EmacsMark\r
+ key Home = S-C-Home &Prefix(EmacsMark) # \95¶\93ª\r
+ key End = S-C-End &Prefix(EmacsMark) # \95¶\96\96\r
+ key C-A = S-Home &Prefix(EmacsMark) # \8ds\93ª\r
+ key C-B = S-Left &Prefix(EmacsMark) # \81©\r
+ key M-B = S-C-Left &Prefix(EmacsMark) # \81©(\92P\8cê)\r
+ key C-E = S-End &Prefix(EmacsMark) # \8ds\96\96\r
+ key C-F = S-Right &Prefix(EmacsMark) # \81¨\r
+ key M-F = S-C-Right &Prefix(EmacsMark) # \81¨(\92P\8cê)\r
+ key C-G = $EmacsMark/cancel &Undefined # \83L\83\83\83\93\83Z\83\8b\r
+ key C-N = S-Down &Prefix(EmacsMark) # \81«\r
+ key C-P = S-Up &Prefix(EmacsMark) # \81ª\r
+ if ( !ZXCV ) key C-V = S-Next &Prefix(EmacsMark) # \8e\9f\95Å\r
+ key M-V = S-Prior &Prefix(EmacsMark) # \91O\95Å\r
+ key C-W = C-X Left Right # CUT\r
+ key M-W = C-C Left Right # COPY\r
+ key S-M-Comma = S-C-Home &Prefix(EmacsMark) # \95¶\93ª\r
+ key S-M-Period = S-C-End &Prefix(EmacsMark) # \95¶\96\96\r
+ key Left = S-Left &Prefix(EmacsMark) # \81©\r
+ key Up = S-Up &Prefix(EmacsMark) # \81ª\r
+ key Right = S-Right &Prefix(EmacsMark) # \81¨\r
+ key Down = S-Down &Prefix(EmacsMark) # \81«\r
+ if ( MAP-ESCAPE-TO-META )\r
+ key Escape = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
+ if ( KBD109 ) and ( ! KBD104on109 )\r
+ key \94¼\8ap/\91S\8ap = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
+ key E0\94¼\8ap/\91S\8ap = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
+ endif\r
+ endif\r
+\r
+keymap2 EmacsMarkEscape\r
+ event prefixed = &HelpMessage("EmacsMark ESC-", " ")\r
+ event before-key-down = &HelpMessage\r
+ key M-C-G = &Ignore\r
OSDN Git Service
