私は現在、この記事で説明されているように、OS/X で Emacs 24 の Git HEAD バージョンを試しています。
Macintosh 拡張キーボードのテンキーのいくつかを Emacs 関数にバインドしたいのですが、うまくいかないようです。キーの詳細を確認するために「ch k」を実行すると、キーの押下が認識されません。(global-set-key (kbd "kp-minus") ...) 設定でそれらを参照する場合も同様です。
これは Emacs 24 の開発バージョンを使用する際の問題ですか、それとも Macintosh キーボード ハードウェアと Emacs の認識方法に関するものですか? これについて最善の方法をアドバイスできる人はいますか？
前もって感謝します、
ストゥ
emacs 24 をビルドするキーパッド キーで同じ問題が発生しました。この問題は emacs 23 でも同じです。この問題を修正するために、次のように emacs 24 コードにパッチを適用しました。これが良い解決策かどうかはわかりませんが、私にとっては十分に機能します。
index 91f0cbb..d537ee3 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -87,6 +87,7 @@ static unsigned convert_ns_to_X_keysym[] =
NSBeginFunctionKey, 0x58,
NSSelectFunctionKey, 0x60,
NSPrintFunctionKey, 0x61,
+ NSClearLineFunctionKey, 0x0B,
NSExecuteFunctionKey, 0x62,
NSInsertFunctionKey, 0x63,
NSUndoFunctionKey, 0x65,
@@ -134,6 +135,35 @@ static unsigned convert_ns_to_X_keysym[] =
0x1B, 0x1B /* escape */
};
+static unsigned convert_nskeypad_to_X_keysym[] =
+{
+ /* Arrow keys are both function and keypad keys */
+ NSLeftArrowFunctionKey, 0x51,
+ NSUpArrowFunctionKey, 0x52,
+ NSRightArrowFunctionKey, 0x53,
+ NSDownArrowFunctionKey, 0x54,
+
+ 0x41, 0xAE, /* KP_Decimal */
+ 0x43, 0xAA, /* KP_Multiply */
+ 0x45, 0xAB, /* KP_Add */
+ 0x4B, 0xAF, /* KP_Divide */
+ 0x4E, 0xAD, /* KP_Subtract */
+ 0x51, 0xBD, /* KP_Equal */
+ 0x52, 0xB0, /* KP_0 */
+ 0x53, 0xB1, /* KP_1 */
+ 0x54, 0xB2, /* KP_2 */
+ 0x55, 0xB3, /* KP_3 */
+ 0x56, 0xB4, /* KP_4 */
+ 0x57, 0xB5, /* KP_5 */
+ 0x58, 0xB6, /* KP_6 */
+ 0x59, 0xB7, /* KP_7 */
+ 0x5B, 0xB8, /* KP_8 */
+ 0x5C, 0xB9, /* KP_9 */
+
+ // The enter key is on the keypad but modifier isnt set
+ NSEnterCharacter, 0x8D
+};
+
static Lisp_Object Qmodifier_value;
Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper, Qnone;
@@ -1924,13 +1954,33 @@ ns_convert_key (unsigned code)
unsigned keysym;
/* An array would be faster, but less easy to read. */
for (keysym = 0; keysym < last_keysym; keysym += 2)
- if (code == convert_ns_to_X_keysym[keysym])
- return 0xFF00 | convert_ns_to_X_keysym[keysym+1];
+
+ if (code == convert_ns_to_X_keysym[keysym]) {
+ return 0xFF00 | convert_ns_to_X_keysym[keysym+1];
+ }
return 0;
/* if decide to use keyCode and Carbon table, use this line:
return code > 0xff ? 0 : 0xFF00 | ns_keycode_to_xkeysym_table[code]; */
}
+static unsigned
+ns_convert_keypad (unsigned code)
+/* --------------------------------------------------------------------------
+ Internal call used by NSView-keyDown.
+ -------------------------------------------------------------------------- */
+{
+ const unsigned last_keysym = (sizeof (convert_nskeypad_to_X_keysym)
+ / sizeof (convert_nskeypad_to_X_keysym[0]));
+ unsigned keysym;
+ /* An array would be faster, but less easy to read. */
+ for (keysym = 0; keysym < last_keysym; keysym += 2) {
+ if (code == convert_nskeypad_to_X_keysym[keysym]) {
+ return 0xFF00 | convert_nskeypad_to_X_keysym[keysym+1];
+ }
+ }
+ return 0;
+}
+
char *
x_get_keysym_name (int keysym)
@@ -4503,10 +4553,10 @@ ns_term_shutdown (int sig)
Mouse_HLInfo *hlinfo = MOUSE_HL_INFO (emacsframe);
int code;
unsigned fnKeysym = 0;
- int flags;
static NSMutableArray *nsEvArray;
static BOOL firstTime = YES;
int left_is_none;
+ unsigned int flags = [theEvent modifierFlags];
NSTRACE (keyDown);
@@ -4550,9 +4600,13 @@ ns_term_shutdown (int sig)
code = ([[theEvent charactersIgnoringModifiers] length] == 0) ?
0 : [[theEvent charactersIgnoringModifiers] characterAtIndex: 0];
/* (Carbon way: [theEvent keyCode]) */
+
/* is it a "function key"? */
- fnKeysym = ns_convert_key (code);
+ if (code < 0x00ff && (flags & NSNumericPadKeyMask) )
+ fnKeysym = ns_convert_keypad([theEvent keyCode]);
+ else
+ fnKeysym = ns_convert_key(code);
if (fnKeysym)
{
/* COUNTERHACK: map 'Delete' on upper-right main KB to 'Backspace',
@@ -4565,7 +4619,6 @@ ns_term_shutdown (int sig)
/* are there modifiers? */
emacs_event->modifiers = 0;
- flags = [theEvent modifierFlags];
if (flags & NSHelpKeyMask)
emacs_event->modifiers |= hyper_modifier;
古いEmacsでこれを試しました：
これは GNU Emacs 22.2.1 (powerpc-apple-darwin9.5.0、GTK+ バージョン 2.10.13) です。
ポート コレクションから +gtk +x11 で構築され、X11 サーバー XQuartz 2.1.6 (xorg-server 1.4.2-apple33) で使用されますC-h l。
<kp-0> ... <kp-9>
数字のために。と
<kp-enter> <kp-subtract> <kp-multiply> <kp-divide> <kp-equal>
その他のキーについて。
オプション +gtk および +x11 を使用して、MacPortsから最新の Emacs をビルドすることをお勧めします。
次に、最新のXQuartzを入手し、X11 で Emacs を実行します (よりネイティブなビルドよりもこれを好みます。別の OS でリモートで (通常は を介してssh -Y) 実行するか、ローカルで実行するかに関係なく、Emacs は常に同じように動作するからです。
来週、ポートを最新の Emacs にアップグレードし、これらの結果も追加します。
この問題は、emacs の Cocoa バリアントに限定されます。この問題は、emacs22 である Carbon バージョンには存在しませんでした。上記で投稿したパッチを更新したところ、より適切に機能するようになりました。XCode 3 を使用して Emacs23 コード ベースで動作する可能性があります。私のように XCode 4 を使用している場合は、現在 GIT リポジトリでのみ利用可能な Emacs24 コード ベースを使用する必要があります。これは、XCode 4 を介して Emacs24 をビルドするための非常に優れた説明です。
[http://mikbe.tk/2011/04/18/build-emacs-with-xcode-4/][1]
これは、このページに投稿された MD Marchionna の Emacs 24 パッチの Emacs 23.3 翻訳です。
--- nsterm-orig.m 2011-11-13 17:51:47.000000000 -0500
+++ nsterm.m 2011-11-13 17:39:56.000000000 -0500
@@ -87,6 +87,7 @@
NSBeginFunctionKey, 0x58,
NSSelectFunctionKey, 0x60,
NSPrintFunctionKey, 0x61,
+ NSClearLineFunctionKey, 0x0B,
NSExecuteFunctionKey, 0x62,
NSInsertFunctionKey, 0x63,
NSUndoFunctionKey, 0x65,
@@ -134,6 +135,33 @@
0x1B, 0x1B /* escape */
};
+static unsigned convert_nskeypad_to_X_keysym[] =
+{
+ /* Arrow keys are both function and keypad keys */
+ NSLeftArrowFunctionKey, 0x51,
+ NSUpArrowFunctionKey, 0x52,
+ NSRightArrowFunctionKey, 0x53,
+ NSDownArrowFunctionKey, 0x54,
+
+ 0x41, 0xAE, /* KP_Decimal */
+ 0x43, 0xAA, /* KP_Multiply */
+ 0x45, 0xAB, /* KP_Add */
+ 0x4B, 0xAF, /* KP_Divide */
+ 0x4E, 0xAD, /* KP_Subtract */
+ 0x51, 0xBD, /* KP_Equal */
+ 0x52, 0xB0, /* KP_0 */
+ 0x53, 0xB1, /* KP_1 */
+ 0x54, 0xB2, /* KP_2 */
+ 0x55, 0xB3, /* KP_3 */
+ 0x56, 0xB4, /* KP_4 */
+ 0x57, 0xB5, /* KP_5 */
+ 0x58, 0xB6, /* KP_6 */
+ 0x59, 0xB7, /* KP_7 */
+ 0x5B, 0xB8, /* KP_8 */
+ 0x5C, 0xB9, /* KP_9 */
+ // The enter key is on the keypad but modifier isnt set
+ NSEnterCharacter, 0x8D
+};
/* Lisp communications */
Lisp_Object ns_input_file, ns_input_font, ns_input_fontsize, ns_input_line;
@@ -1842,6 +1870,23 @@
return code > 0xff ? 0 : 0xFF00 | ns_keycode_to_xkeysym_table[code]; */
}
+static unsigned
+ns_convert_keypad (unsigned code)
+/* --------------------------------------------------------------------------
+ Internal call used by NSView-keyDown.
+ -------------------------------------------------------------------------- */
+{
+ const unsigned last_keysym = (sizeof (convert_nskeypad_to_X_keysym)
+ / sizeof (convert_nskeypad_to_X_keysym[0]));
+ unsigned keysym;
+ /* An array would be faster, but less easy to read. */
+ for (keysym = 0; keysym < last_keysym; keysym += 2) {
+ if (code == convert_nskeypad_to_X_keysym[keysym]) {
+ return 0xFF00 | convert_nskeypad_to_X_keysym[keysym+1];
+ }
+ }
+ return 0;
+}
char *
x_get_keysym_name (int keysym)
@@ -4349,7 +4394,7 @@
struct ns_display_info *dpyinfo = FRAME_NS_DISPLAY_INFO (emacsframe);
int code;
unsigned fnKeysym = 0;
- int flags;
+ unsigned int flags = [theEvent modifierFlags];
static NSMutableArray *nsEvArray;
static BOOL firstTime = YES;
@@ -4397,6 +4442,9 @@
/* (Carbon way: [theEvent keyCode]) */
/* is it a "function key"? */
+ if (code < 0x00ff && (flags & NSNumericPadKeyMask) )
+ fnKeysym = ns_convert_keypad([theEvent keyCode]);
+ else
fnKeysym = ns_convert_key (code);
if (fnKeysym)
{
@@ -4410,8 +4458,6 @@
/* are there modifiers? */
emacs_event->modifiers = 0;
- flags = [theEvent modifierFlags];
-
if (flags & NSHelpKeyMask)
emacs_event->modifiers |= hyper_modifier;